Hi...Please help me with my first vb code.....
Am combine all sheet into one named "AIO". Am getting all data including the heading (A1, A2, A3) from all 3 sheets...
I need assistance in three ways
1. Need heading from only one sheet (Omit rest)
2. Differentiate the data copied and pasted to AIO from other sheets like font color or background etc
3. Set print area for the AIO document (7 columns x (data) rows
Please suggest if am wrong in coding
<
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "AIO"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(3, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
>
Please guide and Thanks
Am combine all sheet into one named "AIO". Am getting all data including the heading (A1, A2, A3) from all 3 sheets...
I need assistance in three ways
1. Need heading from only one sheet (Omit rest)
2. Differentiate the data copied and pasted to AIO from other sheets like font color or background etc
3. Set print area for the AIO document (7 columns x (data) rows
Please suggest if am wrong in coding
<
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "AIO"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(3, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
>
Please guide and Thanks