HansVogelaar, thanks for the advice. I would like to use a For loop to delete the entire row if "Success" is found in each row. However, i got an error msg pop up stating "Run time error 424, Object required".
Pop out error: Run time error 13 Type Mismatch when executing macro. Error was displayed at this line of code below: Set successrng = Find(What:="Success", After:=ActiveCell, LookIn:=xlValues _ ... hrh_dash I inserted the second line for lastRow because the original value ...
DTS_E_BITASK_ERROR_IN_LOAD_FROM_XML Field DTS_E_BITASK_ERROR_IN_SAVE_TO_XML Field DTS_E_BITASK_EXECUTE_FAILED Field DTS_E_BITASK_EXECUTION_FAILED Field DTS_E_BITASK_HANDLER_NOT_FOUND Field DTS_E_BITASK_INITIALIZATION_WITH_WRONG_XML_ELEMENT Field DTS_E_BITASK_INVALID_CONNECTION Field ...
DTS_E_BITASK_ERROR_IN_LOAD_FROM_XML Field DTS_E_BITASK_ERROR_IN_SAVE_TO_XML Field DTS_E_BITASK_EXECUTE_FAILED Field DTS_E_BITASK_EXECUTION_FAILED Field DTS_E_BITASK_HANDLER_NOT_FOUND Field DTS_E_BITASK_INITIALIZATION_WITH_WRONG_XML_ELEMENT Field DTS_E_BITASK_INVALID_CONNECTION Field ...
ws.Columns("A:A").TextToColumns Destination:=Range("A1"),DataType:=xlDelimited,_TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False,Tab:=False,_Semicolon:=False,Comma:=False,Space:=False,Other:=True,OtherChar_:=";"ws.Range("H:H").EntireColumn.Insert ...
ws.Columns("A:A").TextToColumns Destination:=Range("A1"),DataType:=xlDelimited,_TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False,Tab:=False,_Semicolon:=False,Comma:=False,Space:=False,Other:=True,OtherChar_:=";"ws.Rows("1").EntireRow.Delete ...
DTS_E_BITASK_ERROR_IN_LOAD_FROM_XML Field DTS_E_BITASK_ERROR_IN_SAVE_TO_XML Field DTS_E_BITASK_EXECUTE_FAILED Field DTS_E_BITASK_EXECUTION_FAILED Field DTS_E_BITASK_HANDLER_NOT_FOUND Field DTS_E_BITASK_INITIALIZATION_WITH_WRONG_XML_ELEMENT Field DTS_E_BITASK_INVALID_CONNECTION Field ...
Error was displayed at this line of code below: Set successrng = Find(What:="Success", After:=ActiveCell, LookIn:=xlValues _ ...Show More excel Formulas and Functions Macros and VBA Like 0 Reply HansVogelaar to hrh_dashAug 12, 2022 hrh_dash Try this: Sub daily_installmen...
ws.Columns("A:A").TextToColumns Destination:=Range("A1"),DataType:=xlDelimited,_TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False,Tab:=False,_Semicolon:=False,Comma:=False,Space:=False,Other:=True,OtherChar_:=";"ws.Rows("1").EntireRow.Delete ...
ws.Columns("A:A").TextToColumns Destination:=ws.Range("A1"),DataType:=xlDelimited,_TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False,Tab:=False,_Semicolon:=False,Comma:=False,Space:=False,Other:=True,OtherChar:=";"lastRow=ws.Cells(ws.Rows.Count,"B").End(xlUp).Row ...