hello.. i want to ask if anyone can help me about this... i have one worksheet with atleast 5 different sheets with 7 columns...
i want on sheet 1 will appear all the data i encoded in sheet 2 and up..but it must be continous,,,
example;
sheet2
row number name address
1 juan canada
2
sheet 3
row number name address
1 diane usa
2
then on sheet 1
row number name address
1 juan canada
2 diane usa
please help
thank you
Sub macyrasia()
Dim i As Long
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Range("A1").EntireRow.Copy Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp)(2)
Next i
End Subthanks john,,,but i have no idea regarding the vb.. and when i tried pasting the codes it doesnt work
| Excel Workbook | |||||||||
|---|---|---|---|---|---|---|---|---|---|
| A | B | C | D | E | F | G | |||
| 1 | name | address | C | D | E | F | G | ||
| 2 | |||||||||
| 3 | |||||||||
| 4 | |||||||||
| 5 | |||||||||
Sheet1 | |||||||||
| Excel Workbook | |||||||||
|---|---|---|---|---|---|---|---|---|---|
| A | B | C | D | E | F | G | |||
| 1 | name | address | C | D | E | F | G | ||
| 2 | juan | canada | 2 | 2 | 2 | 2 | 2 | ||
| 3 | |||||||||
Sheet2 | |||||||||
| Excel Workbook | |||||||||
|---|---|---|---|---|---|---|---|---|---|
| A | B | C | D | E | F | G | |||
| 1 | name | address | C | D | E | F | G | ||
| 2 | diane | usa | 3 | 3 | 3 | 3 | 3 | ||
| 3 | macyrasia | ? | 3 | 3 | 3 | 3 | 3 | ||
| 4 | |||||||||
Sheet3 | |||||||||
| Excel Workbook | |||||||||
|---|---|---|---|---|---|---|---|---|---|
| A | B | C | D | E | F | G | |||
| 1 | name | address | C | D | E | F | G | ||
| 2 | juan | canada | 2 | 2 | 2 | 2 | 2 | ||
| 3 | diane | usa | 3 | 3 | 3 | 3 | 3 | ||
| 4 | macyrasia | ? | 3 | 3 | 3 | 3 | 3 | ||
| 5 | |||||||||
Sheet1 | |||||||||
Option Explicit
Sub macyrasia()
' hiker95, 07/27/2011
' http://www.mrexcel.com/forum/showthread.php?t=566872
Dim ws As Worksheet, LR As Long, NR As Long
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Sheet1" Then
LR = ws.Cells(Rows.Count, 1).End(xlUp).Row
If LR > 1 Then
NR = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
ws.Range("A2:G" & LR).Copy Worksheets("Sheet1").Range("A" & NR)
End If
End If
Next ws
Sheets("Sheet1").Activate
Application.ScreenUpdating = True
End Sub
