VIP
Trusted Members
June 25, 2016
Hi David
Your data is pretty messy. A lot of cleansing/converting/formatting is required before the report could be generated.
Since your attachment did not have the Invoice No so I didn't extract it.
From what I can see, all the Invoice number is the same except the PAGE No.
The macro will clear the data from the Extract Field sheet before extracting.
For your info the original sheet name Extract Field have an extra trailing space that I have removed.
Hope this helps.
Sunny
VIP
Trusted Members
June 25, 2016
VIP
Trusted Members
June 25, 2016
VIP
Trusted Members
June 25, 2016
VIP
Trusted Members
June 25, 2016
VIP
Trusted Members
June 25, 2016
December 5, 2016
How to make the following "Copy" VB script more precise and comprehensive
Sub Copy()
Sheets("Test").Activate
Range("A:F").ClearContents
With Sheets("Master")
.Range("H:H").Copy Range("A:A")
.Range("I:I").Copy Range("B:B")
.Range("M:M").Copy Range("C:C")
.Range("L:L").Copy Range("D:D")
.Range("AG:AG").Copy Range("E:E")
.Range("AI:AI").Copy Range("F:F")
Sheets("Test").Activate
Sheets("Extract Field").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test").Select
Range("D1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Extract Field").Select
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test").Select
Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Extract Field").Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test").Select
Range("E1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End With
End Sub
VIP
Trusted Members
June 25, 2016
1 Guest(s)