HEllo,
Please see the below code i have used to copy rows of data with specific text in a cell from one worksheet in excel to another. The code worked twice and now i am getting the run time error 92. Please check out my coding and let me know where i have gone wrong. I appreciate the help in advanace.
Dim objcell As Object
For Each objcell In ActiveSheet.Cells
Sheets("PBB Data").Select
Columns("AB:AB").Select
Selection.Find(What:="LD", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -27).Select
ActiveCell.EntireRow.Select
Selection.Cut
Sheets("LD").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Next objcell
Please see the below code i have used to copy rows of data with specific text in a cell from one worksheet in excel to another. The code worked twice and now i am getting the run time error 92. Please check out my coding and let me know where i have gone wrong. I appreciate the help in advanace.
Dim objcell As Object
For Each objcell In ActiveSheet.Cells
Sheets("PBB Data").Select
Columns("AB:AB").Select
Selection.Find(What:="LD", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -27).Select
ActiveCell.EntireRow.Select
Selection.Cut
Sheets("LD").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Next objcell