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 2011/5/4 nicodemus <nicode...@cj.net> > > Dear B-Excellers, > > Rekans, mohon pencerahan untuk coding-nya untuk permasalahan di bawah ini. > Bisakah sebuah DONumber, dinyatakan posisinya dimana saja (SHEET,COLUMN,ROW), > lalu pada saat klik DONumber tersebut, langsung mengarah ke area yang > dimaksud. > File terlampir. > > Rgds, Anto
