çift tıklama örneği

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Data sayfasında öğrenci numaraları var, birinci satırda da öğrencilerin sınıfları var. Sınıflardakilerin detay bilgileri sekmelerde. istediğim; hangi numaraya çift tıkladıysam, kursor, o numaranın bulunduğu sayfada numaranın bulunduğu hücreye gitsin istiyorum.
Saygılarımla

 

[DoğanD]

Merhaba,

Sayfanın kod kısmına aşağıdaki kodları yapıştırıp dener misiniz? Eğer aranan değer sayfada yoksa, o sayfada A1 hücresini seçecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim sayf As Variant
On Error GoTo son
 sayf = Sayfa1.Cells(1, Target.Column + 1).Text
Sheets(sayf).Select
Sheets(sayf).Cells.Find(what:=Target.Value, LookIn:=xlValues).Select
Exit Sub
son:
Sheets(sayf).Cells(1, 1).Select
End Sub

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim arkadaşım.
Saygılarımla

 

[uzmanamele]

Merhaba

Sınıf numaralarını aynı sütunda olsun.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Syf = Cells(1, (Target.Column)).Text
Set S1 = Sheets(Syf)
    If Not IsEmpty(Target) Then
    Set ara = S1.Cells.Find(Target, lookat:=xlWhole)
    If Not ara Is Nothing Then
    S1.Select
    S1.Range("" & ara.Address).Select
    Set ara = Nothing
    End If
    End If
End Sub

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim arkadaşım.
Saygılarımla