terima kasih lagi mas jan....ilmu tambahan buat saya yang newbie hehe ^^
________________________________ Dari: Jan Raisin <miss.jan.rai...@gmail.com> Kepada: belajar-excel@yahoogroups.com Dikirim: Jumat, 17 Mei 2013 14:55 Judul: Re: Bls: [belajar-excel] memisahkan nama yang sama???? ooh.. maunya kalo datanya dikedipin langsung berubah ya? kalo gitu coba pakai VBA, boleh gak? Om Bagus, Jan izin pinjam fikenya ya.. :D scriptnya ditulis dalam sheet VBE memanfaatkan event Change (BERUBAH hohoho.. [gaya sinchan]) bunyi script dan penjelasannya seperti ini: ' wajib menggunakan script ini untuk pengecekan variabel Option Explicit ' prosedur yang bekerja jika ada cell yang berubah nilainya Private Sub Worksheet_Change(ByVal Target As Range) ' deklarasi variabel sesuai kebutuhan Dim iCnt As Integer, iTrgt As Integer Dim lRow As Long, lTrgt As Long Dim rgData As Range, rgTrgt As Range ' bekerja pada target cell yang berubah With Target ' jika jumlah cell yang berubah hanya 1 maka.. If .Cells.Count = 1 Then ' jika baris cell yang berubah > 1 dan kolomnya = 1 ' atau bahasa lainnya yang berubah mulai cell A2 ke bawah If .Row > 1 And .Column = 1 Then ' cari nilai baris data terakhir ' simpan dalam variabel lRow lRow = Cells(Rows.Count, 1).End(xlUp).Row ' set lokasi rgData, yaitu mulai baris 2 kolom 1 / cell A2 / Cells(2, 1) ' sampai baris terakhir data pada kolom 1 atau Cells(lRow, 1) Set rgData = Range(Cells(2, 1), Cells(lRow, 1)) ' hitung jumlah data yang sama pada rgData berdasarkan nilai cell yang berubah ' gunakan fungsi worksheet yang dipanggil melalui VBA ' lalu simpan jumlah datanya ke dalam variabel iCnt iCnt = Application.WorksheetFunction.CountIf(rgData, .Value) ' jika ada data yang sama maka If iCnt > 1 Then ' hitung nilai baris data terakhir pada kolom 3 atau kolom C ' ini adalah lokasi penulisan data yang dobel ' cari mencari nilainya sama seperti mencari nilai lRow di atas lTrgt = Cells(Rows.Count, 3).End(xlUp).Row ' set range target penulisan data yang dobel ' mulai baris 2 kolom 3 / cell C3 / Cells(2, 3) ' sampai dengan baris data terakhir pada kolom 3 / Cells(lTrgt, 3) Set rgTrgt = Range(Cells(2, 3), Cells(lTrgt, 3)) ' hitung jumlah data yang sama pada range target penulisan / rgTrgt ' berdasarkan nilai pada cell yang berubah ' lalu simpan ke dalam variabel iTrgt iTrgt = Application.WorksheetFunction.CountIf(rgTrgt, .Value) ' jika belum ada data dobel yang ditulis maka If iTrgt = 0 Then ' tulis nilai data yang dobel tadi Cells(lTrgt + 1, 3).Value = .Value ' ini adalah akhir pengecekan data dobel yang sudah/belum ditulis End If ' ini adalah akhir pengecekan apakah datanya dobel atau tidak End If ' ini adalah akhir pengecekan apakah cell yang berubah mulai cell A2 ke bawah atau tidak End If ' ini adalah akhir pengecekan apakah cell yang berubah hanya 1 atau tidak End If ' akhir bekerja pada cell target yang berubah End With ' akhir dari prosedur End Sub Karena maunya kalo mata kedip dan datanya berubah, maka cara pakai datanya harus sesuai petunjuk ya. 1. download file terlampir 2. buka file yang sudah didownlaod 3. izinkan mantra saktinya bekerja dengan menekan tombol Enable Macro 4. isi data mulai dari cell A2 ke arah bawah -- ini yang paling penting -- 5. Mata harus berkedip saat menekan tombol Enter (ini wajib ya) tring.. kalo datanya dobel maka akan muncul di cell C ke arah bawah kalo gak muncul berarti datanya gak dobel atau petunjuk di atas tidak diikuti dengan benar # sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikut http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3 Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain Wassalam, -Miss Jan Raisin- >>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab >>> kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan >>> yang diajukan; >>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke >>> belajar-excel@yahoogroups.com; >>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan >>> orang-orang yang sabar QS 2:153; Pada 17 Mei 2013 13.32, hendrik karnadi <hendrikkarn...@yahoo.com> menulis: > >Hi Shenly, > > >Kalau mau otomatis bisa pake formula Den Bagus, dengan mengganti >Range("A2:A11") dengan nama Range yang dinamis mis "Nama". >Cara membuatnya dengan mengkli Formula, Name Manager. Pada kotak kosong di >samping "Name" diketik NAMA dan pada kotak kosong di samping "Refers to" >diketik formula ini =Offset(Sheet1!$A$1,0,0,CountA(Sheet1!$A:$A)-1,1). > > >Salam, >HK > > > >________________________________ > From: Shenly Ruchman <shenly_excelma...@yahoo.co.id> >To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> >Sent: Friday, 17 May 2013, 11:54 >Subject: Bls: [belajar-excel] memisahkan nama yang sama???? > > > > >kalo menggunakan menu tersebut nanti kalo ada penambahan nama baru ga akan >otomatis dong?? > > > > > > >________________________________ > Dari: Heri Pamungkas ( Gmail ) <ghery.dha...@gmail.com> >Kepada: belajar-excel@yahoogroups.com >Dikirim: Jumat, 17 Mei 2013 12:51 >Judul: Re: [belajar-excel] memisahkan nama yang sama???? > > > > >Haduh,.. > >Berarti saya belum master nie,.. >Dari tadi di kedip2in ga gerak2 datanya,...:'( :'( :'( > >Tapi kalau mau di coba bisa dengan Remove Duplicate yang ada di Tab Data > > ># sampaikan masalah yang sering anda temui saat menggunakan Excel pada >http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3 > Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat >berharga untuk Be-Exceler yang lain Salam Excell-ent >On 17/05/2013 11:08, Shenly Ruchman wrote: > >>haloo master...minta tolong lagi.... >>dari judulnya juga, sepertinya kasus saya ini pernah dibahas, mohon maaf jika >>saya tanya lagi soalnya belum tau hehehehe >> >> >>langsung aja ya, gimana caranya memisahkan nama yang sama seperti di bawah >>ini master...?? >> >> >>Nama >>dede >>nanang >>indra >>deri >>isma >>dede >>nanang >>deri >>jaka >>indra >> >> >> >> >> >> >> >> >>yang di inginkan... >> >> >>Nama >>dede >>nanang >>indra >>deri >>isma >>jaka >>indra >> >> >> >> >> >> >>mungkin buat para master tinggal mengedipkan mata saja, tapi buat saya begitu >>susah, hehehehe >>mohon bantuannya ^^ >> > > > >
