Terima kasih kasih Mr Kid dan para suhu lainnya, maaf baru bisa balas karena kesibukan pekerjaan dan baru hari ini bisa buka lagi milis
thx niky n From: "Kid Mr." <[email protected]> To: [email protected] Date: 05-09-2012 03:06 AM Subject: Re: [belajar-excel] Gabung data 2 kolom menjadi 1 kolom Sent by: [email protected] Coba file terlampir. Prosedur PakeVBA : Public Sub PakeVBA(Optional bState As Boolean = False) Dim lVer As Long, lRecA As Long, lRecB As Long Dim rngA As Range, rngB As Range, rngDT As Range, rngAdvF As Range 'init object range data 'sesuaikan rujukan lokasi header data dan object sheet-nya Set rngA = Sheet1.Range("a3").CurrentRegion.Resize(, 1).Offset(1) Set rngB = Sheet1.Range("c3").CurrentRegion.Resize(, 1).Offset(1) lRecA = rngA.Rows.Count - 1 lRecB = rngB.Rows.Count - 1 'init object range hasil (header kolom pertama saja sebagai anchor) Set rngDT = Sheet3.Range("a1") With rngDT .CurrentRegion.Offset(1).EntireRow.Delete 'hapus data lama 'satukan data If lRecA > 0 Then rngA.Copy .Offset(1, 1) 'selalu paste ke baris ke-2 di sheet hasil di kolom B .Offset(1).Resize(lRecA).Value = "Data1" End If lRecA = .CurrentRegion.Rows.Count 'ganti isi dengan jumlah baris di sheet hasil If lRecB > 0 Then rngB.Copy .Offset(lRecA, 1) 'paste ke baris baru dari data yang sudah ada di hasil .Offset(lRecA).Resize(lRecB).Value = "Data2" End If .CurrentRegion.Name = "myVBAData" 'beri nama range (siapa tahu nanti mau dipakai oleh pivot table) .CurrentRegion.Sort .Offset(0, 1), xlAscending, Header:=xlYes 'sort data 'advanced filter Set rngAdvF = Sheet3.Range("g1") rngAdvF.CurrentRegion.Offset(1).Delete xlShiftUp 'delete hasil filter lama .CurrentRegion.Offset(0, 1).Resize(, 1).AdvancedFilter xlFilterCopy, copytorange:=rngAdvF, unique:=True End With MsgBox "Done.", vbInformation, "GetData" End Sub Wassalam, Kid. 2012/9/4 <[email protected]> Dear Mr. Kid, Bagaimana caranya kalo menggunakan macro apakah bisa? ttd niky n From: "Kid Mr." <[email protected]> To: [email protected] Date: 03-09-2012 09:32 PM Subject: [Caution: Message contains Suspicious URL content] Re: [belajar-excel] Gabung data 2 kolom menjadi 1 kolom Sent by: [email protected] Pakai susun ulang datanya saja ya (copy paste ke sheet lain) seperti file terlampir. Wassalam, Kid. 2012/9/3 <[email protected]> Dear Para Master Excel, Saya ingin menggabungkan data dari 2 kolom menjadi 1 kolom dan gabungan tersebut datanya menjadi terurut. Untuk lebih jelasnya dapat dilihat dari datanya di excel yang saya lampirkan terima kasih, niky n [attachment "re-gabungan kolom.xls" deleted by Niky Nugraha/Asia Division/Manulife] [attachment "re-gabungan kolom_r1.xls" deleted by Niky Nugraha/Asia Division/Manulife]
<<image/gif>>
<<image/gif>>
