köprü hakkında!

[u0cans]

sayfa 1 de bütün araç plakaları bulunmakta
ben araçları tıkladığım zaman o araç plakasının sayfasının a1 hücresini seçsin istiyorum, nası yapabilirim

ekte de paylaştım anlaşılabilmesi açısından

 

[lark]

Plaka üzerinde sağ-klik yaparak köprü'yü seçin o sizi yönlendirir.

 

[Muzaffer Ali]

Aşağıdaki kodları "araclistesi" sayfasının kod editörüne yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plaka As String
    If Target.Column = 3 Then 'Eğer 3. kolonda bir hücre seçildi ise
        Plaka = Target.Text
        On Error GoTo SayfaYok 'Eğer seçilen plakaya ait sayfa yoksa hata verecektir
                                'burada hata kontrolü yapıyoruz.
        Worksheets(Plaka).Activate
        Worksheets(Plaka).Range("A1").Select
SayfaYok: 'Eğer seçili plakaya ait sayfa yoksa üs iki satırı atlayıp buradan devam et
        If Err.Number = 9 Then
            MsgBox "Bu plakaya ait sayfa yok."
        End If
    End If
End Sub

 

[uzmanamele]

sayfa 1 de bütün araç plakaları bulunmakta
ben araçları tıkladığım zaman o araç plakasının sayfasının a1 hücresini seçsin istiyorum, nası yapabilirim

ekte de paylaştım anlaşılabilmesi açısından

merhaba

sayfanın kod bölümüne yazarak, C sütununda çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo dip
If Intersect(Target, Range("c3:c64")) Is Nothing Then Exit Sub
Sheets(Target.Text).Select
Sheets(Target.Text).Range("a1").Select
Exit Sub
dip:
MsgBox "sayfa bulunamadı!"
End Sub