hai all,
I have the code for selecting multiple text files into a single excel file with multiple sheets
and i have code to combine multiple sheets into a single sheet
Code
- Sub Combine()]Dim J As Integer
- On Error Resume Next
- Sheets(1).Select
- Worksheets.Add
- Sheets(1).Name = "Combined"
- 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(1, 0).Resize(Selection.Rows.Count - 1).Select
- Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
- Next
- End Sub
i want these 2 code into a single one
please help me how to do that[/CODE]