newbie coba bantu, pake VBA (yang super berantakan :)
maap kalo kurang berkenan :)
'for belajar-excel
'28 feb 2014
Sub gabung()
Dim lastrowGab As Long
Dim lastrowGab2 As Long
Worksheets("DATA1").Activate
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'ActiveSheet.Previous.Select
Worksheets("GAB").Activate
Range("a7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
lastrowGab = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1
Worksheets("DATA2").Activate
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("GAB").Activate
Range("A" & lastrowGab).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
lastrowGab2 = Worksheets("GAB").Range("A65536").End(xlUp).Row + 1
Range("A" & lastrowGab2).Select
End Sub
2014-02-28 16:33 GMT+07:00 Eko Noviyanto <[email protected]>:
>
>
> Dear Master XL,
>
> Mohon bantuannya untuk file terlampir, dimana yang menjadi pertanyaan
> adalah menggabungkan data dari 2 sheet menjadi 1 sheet.
>
> Teriimakasih atas bantuannya.
>
> Salam,
> Nopenk
>
>
>
--
regards, Wira 鄧又銘
on desktop FireFox
