buton ismine göre düşeyara kullanımı

[sserkanmurata]

Merhabalar,

Menü sayfası içerisinde Ali butonuna bastığımda düşeyara ile Şifre sayfasında bulunan Kullanıcı adı ve Şifreyi getirmek istiyorum. Desteğiniz ve yönlendirmeniz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub Test()
    Dim X_User As Range, User_Name As String
    
    User_Name = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, -1).Value
    Set X_User = Sheets("Sifre").Range("A:A").Find(User_Name, Lookat:=xlWhole)
    MsgBox X_User.Offset(, 1).Value & vbCrLf & _
           X_User.Offset(, 2).Value
End Sub

 

[Necdet]

Merhaba,

Buton işlemlerini Korhan bey vermiş.
Bana göre butonlara hiç gerek yok. Doğrudan A sütununda ilgili kişinin bulunduğu hücreye çift tıklamak yeterli.

Aşağıdaki kod Menü sayfasının kod bölümünde olmalı.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub

Dim c As Range

Set c = Sheets("Şifre").Range("a:a").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
    Cells(Target.Row, "B") = c.Offset(0, 1).Value
    Cells(Target.Row, "C") = c.Offset(0, 2).Value
Else
    Cells(Target.Row, "B") = ""
    Cells(Target.Row, "C") = ""
End If

End Sub