I want to do the following:
I want to select a cell in sheet 1:
Find that cell contant in sheet 2
Copy that row.
Find sheet 1 cell contant in sheet 3
Pate row from sheet 2
Correct row numbering in column A on sheet 3
Go back to sheet 1
I have the following example, but can't automated!
I want to select a cell in sheet 1:
Find that cell contant in sheet 2
Copy that row.
Find sheet 1 cell contant in sheet 3
Pate row from sheet 2
Correct row numbering in column A on sheet 3
Go back to sheet 1
I have the following example, but can't automated!
Code:
Sub copy_row()'
' copy_row Macro
Range("F783").Select
Selection.Copy
Sheets("OldBom").Select
Cells.Find(What:="1111 222 33333", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows("391:391").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("NewBom").Select
Cells.FindNext(After:=ActiveCell).Activate
Rows("394:394").Select
ActiveSheet.Paste
Range("A392:A393").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A392:A412")
Range("A392:A412").Select
Sheets("Datasheet v1").Select
Range("F783").Select
ActiveCell.Offset(395, 6).Range("A1").Select
Sheets("OldBom").Select
ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.Select
ActiveCell.Offset(-17, 5).Range("A1").Activate
End Sub