Kalau menggunakan macro khan mudah , tapi membuat koding macro dengan VBA ,
perlu usaha yang cukup. Cobalah belajar menjalankan macro. mungkin Ebook dari
ibu Hapsari bisa di pinta secara pribadi. Catatan : untuk Ibu Hapsari,
jika diperkenankan saya dikirimi juga ebooknya .Trim's
To: [email protected]
From: [email protected]
Date: Tue, 6 Mar 2012 07:47:45 +0700
Subject: RE: [belajar-excel] menggabungkan 2 tabel
Terimakasih bapak sudarsono, Saya masih newbie dalam excel, dan belum
bisa menggunakan macro, kirakira untuk formula tanpa macro bisa nggak ya ?
Terimakasih Afdhol From: [email protected]
[mailto:[email protected]] On Behalf Of jkssxls Sudarsono
Sent: 05 Maret 2012 15:57
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] menggabungkan 2 tabel Saya gunakan macro sbb:
Sub Gabung()
Dim barisawal, jumlahkolom As Integer
Dim tujuan As Range
Dim asal As Range
barisawal = 2
jumlahkolom = 4
Set tujuan = Sheets("Hasil").Range("A" & barisawal)
' jika sel A2 kosong , berarti tak ada data
If tujuan.Value <> "" Then
tujuan.Select
' menuju akhir baris
Range(Selection, Selection.End(xlDown)).Select
' pilih sampai selebar kolom
Selection.Resize(, jumlahkolom).Select
' hapus isinya
Selection.ClearContents
End If
Sheets("tabel1").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' range berisi data
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' ke sel tujuan
asal.Copy tujuan
' hitung jumlah baris data
If tujuan.CurrentRegion.Row < barisawal Then
' misal baris awal 2 , maka yg dihitung 2,3,4,5
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
' ke akhir baris data
Set tujuan = Sheets("Hasil").Range("a" & barisawal).Offset(jumlahbaris - 1)
lab_Tabelkedua:
Sheets("tabel2").Activate
Range("B4").Select
If Selection = "" Then GoTo lab_selesai
' pilih satu baris data
Range("B4").Resize(1, jumlahkolom).Select
' menuju data terakhir
Range(Selection, Selection.End(xlDown)).Select
Set asal = Selection
' copy mulai 1 baris setelah baris data terakhir
asal.Copy tujuan.Offset(1)
lab_selesai:
' tujuan dari A2 sampai baris terakhir ( jumlahbaris )
' ke kolom sesuai jumlah kolom
If tujuan.CurrentRegion.Row < barisawal Then
jumlahbaris = tujuan.CurrentRegion.Rows.Count - barisawal + 1
Else
jumlahbaris = tujuan.CurrentRegion.Rows.Count
End If
Set tujuan = Range("A" & barisawal)
' melingkupi baris sebanyak jumlahbaris
' kolom sebanyak jumlahkolom
Set tujuan = tujuan.Resize(jumlahbaris, jumlahkolom)
' hapus sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Clear
' tambahkan sorting
ActiveWorkbook.Worksheets("hasil").Sort.SortFields.Add Key:=Range("A:A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sort sesuai dengan daerah tujuan
With ActiveWorkbook.Worksheets("hasil").Sort
.SetRange tujuan
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
To: [email protected]
From: [email protected]
Date: Mon, 5 Mar 2012 10:26:36 +0700
Subject: [belajar-excel] menggabungkan 2 tabel
Selamat Siang, Mohon bantuan dari pakar excel semua, bagaimana formula untuk
menggabungkan dua tabel yaitu tabel 1 dan tabel 2 menjadi table 3 dan tersusun
berurutan berdasarkan tanggalnya. Terimakasih Afdhol
