
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)
