Soru Find İle Bulduğum Değerin Adresini Kullanmak?

[ywzyilmaz]

Merhaba

Yapmaya çalıştığım şey şu :
Userform içerisindeki textbox1 içindeki değeri ürün sayfasında c sütununda arayıp bulacak yoksa boş geçecek. Bu kısmı hallettim.

Bulduğum değerin satırında diğer sütunlarda diğer veriler var. Mesela e sütununda adı var vs. Benim diğer sütunlardaki verileri değişkene tanımlamam gerekiyor.
Bunu nasıl yapabilirim? bir önerisi olan var mı?

İyi geceler herkese.

 

[Necdet]

Merhaba,
Aşağıdaki kodları inceleyip, kendinize uyarlayınız.

Private Sub CommandButton1_Click()

    Dim c   As Range
    Dim s1  As Worksheet
    
    Set s1 = Sheets("Ürün")
    
    Set c = s1.Range("C:C").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        MsgBox "Bulunulan Satır : " & c.Row
        'E sütunundaki değeri 2 şekilde alabilirsiniz.
        MsgBox "E sütundaki değer : " & c.Offset(0, 2).Value
        MsgBox "B sütundaki değer : " & c.Offset(0, -1).Value
        'Ya da
        MsgBox "E sütunundaki değer : " & s1.Range("E" & c.Row)
    Else
        MsgBox "Aranan Değer Bulunmadı..."
        
    End If
    
End Sub

 

[ywzyilmaz]

geçecek. Bu kısmı

Merhaba,
Aşağıdaki kodları inceleyip, kendinize uyarlayınız.

Private Sub CommandButton1_Click()

    Dim c   As Range
    Dim s1  As Worksheet
   
    Set s1 = Sheets("Ürün")
   
    Set c = s1.Range("C:C").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        MsgBox "Bulunulan Satır : " & c.Row
        'E sütunundaki değeri 2 şekilde alabilirsiniz.
        MsgBox "E sütundaki değer : " & c.Offset(0, 2).Value
        MsgBox "B sütundaki değer : " & c.Offset(0, -1).Value
        'Ya da
        MsgBox "E sütunundaki değer : " & s1.Range("E" & c.Row)
    Else
        MsgBox "Aranan Değer Bulunmadı..."
       
    End If
   
End Sub

Yanıt için çok teşekkürler. İhtiyacım olan şekilde uyarlayıp kullandım.