Mangsud’e saya tuh gini lho bu… Ada tombol atau shortcut (tapi tombol aja lebih enak) untuk me-rekap terlebih dahulu.
Karena tidak semua Do akan di cek, hanya do tertentu saja yang ada masalah Jadi, melakukan pencariannya itu sesuai dengan keinginan user. Yang tadi mbakyu siti kasih, di tampilan saya, Saat saya klik sebuah nomor do, dia melakukan pencarian dan baru rekap-nya muncul. Karena yang dipentingkan adalah rekapnya terlebih dahulu, baru mencari detail apabila ada permasalahan. Begitu mbakyu siti :D Thks & Rgds From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of STDEV(i) Sent: Wednesday, May 04, 2011 11:11 PM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Cell Reference coba lihat ini (kutipan dari makro yg sudah dikirim) dengan teliti dengan seksama dan dalam tempoh yang sesingkat-singkatnya... If DoRange(r, 1).Value = NrDO Then .Cells(i, 2) = .Cells(i, 2) & sh.Name & ", " .Cells(i, 3) = Chr(DoRange(r, 1).Column + 64) .Cells(i, 4) = .Cells(i, 4) & DoRange(r, 1).Row & ", " DoRange.Parent.Activate DoRange(r, 1).EntireRow.Select MsgBox "Lanjutkan", 64, "Hasil Pencarian" .Activate End If lihat bagian BIRU; lalu llihat bagian MERAH itu sudah SANGAT sesuai dengan apa yg anda minta yaitu mencatat dulu (di tabel rekap); baru menselect ( di tabel yg dicari daanya) Apa di pc pak Nico kelihatannya LAIN ?? Saya juga tidak tahu apa perlunya harus melihat data aslinya lalu di select ?? dan diselect pun kalau tanpa dihentikan (di paused) dengan MsgBox, kan juga tidak kelihatan (tidak tahu) kalau diselect; terutama jika data yg dicari ketemu lebih dari satu... On Wed, May 4, 2011 at 10:45 PM, nicodemus <nicode...@cj.net> wrote: mBakyu Siti, bisa ngga ya di buatnya rekap dulu baru mencari ? bukan melihat dulu baru me-rekap. . . jadi yang dinyatakan tempatnya dulu jadi kalau sudah yakin, tidak perlu melihat lagi datanya. Rgds, Anto From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of STDEV(i) Sent: Wednesday, May 04, 2011 4:55 PM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Cell Reference --modul standar--- Public DONr Sub Cari(NrDO, i As Long) ' by siti Vi / may 04, 2011 Dim sh As Worksheet, DoRange As Range, r As Long With Sheets("REKAP") For Each sh In Worksheets r = 0 If Not UCase(sh.Name) = "REKAP" Then Set DoRange = sh.Cells(1).CurrentRegion.Offset(1, 0) Set DoRange = DoRange.Resize(DoRange.Rows.Count - 1, 1) For r = 1 To DoRange.Rows.Count If DoRange(r, 1).Value = NrDO Then .Cells(i, 2) = .Cells(i, 2) & sh.Name & ", " .Cells(i, 3) = Chr(DoRange(r, 1).Column + 64) .Cells(i, 4) = .Cells(i, 4) & DoRange(r, 1).Row & ", " DoRange.Parent.Activate DoRange(r, 1).EntireRow.Select MsgBox "Lanjutkan", 64, "Hasil Pencarian" .Activate End If Next r End If Next sh If InStr(1, .Cells(i, 2), ",", vbTextCompare) > 0 Then .Cells(i, 2) = Left(.Cells(i, 2), Len(.Cells(i, 2)) - 2) .Cells(i, 4) = Left(.Cells(i, 4), Len(.Cells(i, 4)) - 2) End If End With End Sub '---module sheet ReKAP--- Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' by siti Vi / may 04, 2011 If Target.Count = 1 Then If Len(Target) > 0 Then If Target.Column = 1 Then If Target.Row > 2 Then DONr = Target.Value Cari DONr, Target.Row End If End If End If End If End Sub sebenarnya menggabung hasil seperti itu ( y.i. jika ketemu dua item hasil digabung dlm cells yg sama) akan mempersulit diri sendiri jika tabel hasil makro ini masih akan diolah lebih lanjut
