RE: [belajar-excel] Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?

[zainul_ulum[at]yahoo[dot]com]

Mencoba membantu dengan menggunakan macro dan filter.

Dalam file terlampir dalam sheet Utama ditulis kode macro sbb:
'=============================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
    Dim shtDataAnak As Worksheet
    Dim shtDataPekerjaan As Worksheet
    Dim rgDbClick As Range
    
    Set shtDataAnak = Sheet2 'bisa diganti dengan = worksheets("DataAnak")
    Set shtDataPekerjaan = Sheet3 'bisa diganti dengan =
worksheets("DataPekerjaan")
    'cek yang didouble klik ada di kolom J dan K
    Set rgDbClick = Range("J:K")
    If Not Intersect(Target, rgDbClick) Is Nothing Then 'jika double click
di kolom "J:K"
        Select Case Target.Column
            Case 10 'jika double click di kolom J
                With shtDataAnak
                    .Activate
                    If .FilterMode Then .ShowAllData
                    .ListObjects("Table2").Range.AutoFilter Field:=2, _
                    Criteria1:=Target.Value
                End With
            Case 11 'jika double click di kolom K
                With shtDataPekerjaan
                    .Activate
                    If .FilterMode Then .ShowAllData
                    .ListObjects("Table1").Range.AutoFilter Field:=2, _
                    Criteria1:=Target.Value
                End With
        End Select
    End If
End Sub
'======================
Semoga membantu

----- Forwarded Message -----
From: Nori Z 
To: "belajar-excel@yahoogroups.com" 
Sent: Thursday, January 10, 2013 4:18 PM
Subject: Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan
kode yang bersesuaian?


Dear Master Excel,
Saya ingin menampilkan informasi dari sheet yang berbeda. File terlampir.

Dari sheet 'Utama', pada kolom J (informasi mengenai anak responden),
misalnya jika sel 'DataAnak1.1' didobel klik, maka akan menuju dan
menampilkan row dengan kode 'DataAnak1.1' di sheet 'DataAnak'.

Demikian juga ketika sel 'DataPA1.1'pada kolom K didobel klik akan menuju
dan menampilkan row dengan kode 'DataPA1.1' pada sheet 'DataPekerjaan'.�

Intinya, ketika sel dengan kode tertentu didobel klik akan menuju dan
menampilkan record pada baris dengan kode yang bersesuaian dan dari sheet
yang bersesuaian pula...�

Mohon bantuannya,,
Sekalian juga saya ingin bertanya kepada master semua apakah cara ini
efektif dalam menampilkan sebuah informasi mengenai data seorang responden?
Terimakasih bantuannya

Best,
Nori.

dbase_penelitianAnak-macro.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12