satır ve sütun no bulamıyorum.

[enegen]

değerli arkadaşlar ve ustalarım
label11=Application.VLookup(UserForm1.TextBox1.Value, Sayfa10.Range("B1:T131"), 2, False)
yukarıdaki kodu yazarak label11 e sayfa 10 daki o seçilen hücredeki değeri yazdırıyorum. benim yapamadığım ise o hücrenin satır ve sütun numaralarını bulmak. fakat aktif sayfam sayfa1. Sayfayı aktif yapınca aktivecell ile bulabiliyorum ama ben sadece kod olarak bulmak istiyorum. yani yapacağım formülde o sayfanın hücresinin satır ve sütun numarasını kullanmam gekiyor.
yardımcı olursanız sevinirim. çok araştırdım bu şekilde bi kod bulamadım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
Private Sub CommandButton1_Click()
    Dim BUL As Range, SATIR As Long, SÜTUN As Byte
    Set BUL = Sheets("Sayfa10").Range("B:B").Find(TextBox1)
        If Not BUL Is Nothing Then
        SATIR = BUL.Row
        SÜTUN = BUL.Column
        MsgBox SATIR & " - " & SÜTUN
        End If
    Set BUL = Nothing
End Sub