Ada 2 kondisi yang perlu diperhatikan: - Judul harus dibuat terlebih dahulu - Data sudah disortir (seperti contoh)
Sebagai bahan latihan, coba modifikasi (gabungkan, tambahkan, ubah dan non aktifkan) Code berwarna merah ----- Forwarded Message ----- From: hendrik karnadi <[email protected]> To: [email protected] Sent: Saturday, 8 December 2012, 9:11 Subject: Re: [belajar-excel] group Saya coba macro versi pemula (bermain2 di range), versi canggihnya kita serahkan ke Mr. Kid, Ms. Jan dan para pakar lainnya. Macronya seperti ini : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim a As String Dim b As String Dim r as Integer, i as Integer r = 13 For i = 2 To 10 a = Sheet1.Range("A" & i) & Sheet1.Range("B" & i) & Sheet1.Range("C" & i) b = Sheet1.Range("A" & i + 1) & Sheet1.Range("B" & i + 1) & Sheet1.Range("C" & i + 1) If b <> a Then Sheet1.Range("A" & i + 1).Resize(, 3).Copy Range("A" & r + 1) Else Range("A" & r + 1) = "" r = r - 1 End If Sheet1.Range("A" & i + 1).Select r = r + 1 Next i End Sub Semoga dapat menjadi masukan bagi rekan2 yang baru mau belajar macro. Salam, Hendrik Karnadi ________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, 7 December 2012, 20:33 Subject: Re: [belajar-excel] group ms Jan, pinjem filenya yang dari Pak Bagus ya... Coba file terlampir. Formula yang agak beda dengan formula Pak Bagus dan fitur pivot table. Kita tunggu bersama-sama solusi dengan VBA. :) Wassalam, Kid. 2012/12/7 Jan Raisin <[email protected]> > >Dear pak Bagus, pinjam filenya ya :D > > >pak Ihsan, coba lihat file terlampir dengan memanfaatkan Advanced Filter > > >btw, semoga ada member yang bersedia menambahkan solusi dengan memanfaatkan >Pivot Table, formula, atau cara yang lain agar millis ini semakin ramai. >karena Jan yakin bahwa banyak member yang bisa memberikan solusi-solusi jitu >tapi masih malu-malu. > > >Best Regard, > > >-Ms. Jan Raisin- > > >Pada 7 Desember 2012 15:19, Bagus <[email protected]> menulis: > > > >> >> >>Dear Pak Ihsan; >> >>File terlampir semoga sesuai harapan >> >>Bagus >> >>----- Original Message ----- >>>From: IHSAN NURDIN >>>To: [email protected] >>>Sent: Friday, December 07, 2012 2:05 PM >>>Subject: [belajar-excel] group >>> >>> >>>Rekan milis. Mohon bantuan nya. Saya punya permasalahan, data nya sbb : >>> >>> >>>Nomor induk Nama Tgl msk >>>10 Ira 23/10/12 >>>11 Ari 23/10/12 >>>11 Ari 23/10/12 >>>12 Adi 23/10/12 >>>13 Adu 23/10/12 >>>14 Ika 23/10/12 >>>14 Ika 23/10/12 >>>14 Ika 23/10/12 >>> >>> >>>Saya akan groupkan Nomor induk tp hasilnya setiap Nomor induk yg sama >>>mengeluarkan nilai 1 atau terhitung 1 saja.Jd untuk data di atas ada 5 >>>orang yg masuk kerja pd tanggal 23/10/12. Tk banyak seblmnya rekan milis. >>> >>> >>> >>>salam excel. >>>
