Hi All
Thank you for your Supporting
I have small problem; I copy data between the “Standardization Code: “in single row. The “Standardization Code” part of the sentence
I Get below code but thin code not moving next
Sub SelectBetween()
Dim findrow As Long, findrow2 As Long
'On Error GoTo errhandler
Do While ActiveCell.Value <> Empty
Cells.Find(What:="Standardization Code:", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
findrow = Range("A:A").Find("Standardization Code:", Range("A1")).Row
findrow2 = Range("A:A").Find("Standardization Code:", Range("A" & findrow)).Row
Range("A" & findrow & ":A" & findrow2 - 1).Select
Range(Selection, Selection).EntireRow.Select
Selection.Copy
Sheet2.Select
Range("A1", Range("A" & Rows.Count).End(xlUp)).Offset(1, 0).Activate
ActiveCell.PasteSpecial
Sheet1.Activate
Loop
Thank you for your Supporting
I have small problem; I copy data between the “Standardization Code: “in single row. The “Standardization Code” part of the sentence
I Get below code but thin code not moving next
Sub SelectBetween()
Dim findrow As Long, findrow2 As Long
'On Error GoTo errhandler
Do While ActiveCell.Value <> Empty
Cells.Find(What:="Standardization Code:", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
findrow = Range("A:A").Find("Standardization Code:", Range("A1")).Row
findrow2 = Range("A:A").Find("Standardization Code:", Range("A" & findrow)).Row
Range("A" & findrow & ":A" & findrow2 - 1).Select
Range(Selection, Selection).EntireRow.Select
Selection.Copy
Sheet2.Select
Range("A1", Range("A" & Rows.Count).End(xlUp)).Offset(1, 0).Activate
ActiveCell.PasteSpecial
Sheet1.Activate
Loop