Hücre değerini TextBox'a yazdırma

[geniu125]

Merhaba arkadaşlar,

Yapmak istediğim:
A ve B sütünlarında listelerim var. A sütünunda ürün numarası, B sütünunda ise fiyatları.
TextBox1'e ürün numarasını girince ve bul butonuna basınca, TextBox2'ye B sütünunda onun karşılığı olan fiyatı alsın. Eğer girilen numara A sütünunda ki listede yok ise - uyarı mesajı versin.

Yardımlarınız için şimdiden teşekkürler.

 

[Murat OSMA]

Merhabalar, foruma hoş geldiniz.

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton1_Click()
    Dim evn As Range
    Set evn = Columns(1).[COLOR="Red"]Find[/COLOR](TextBox1.Value, , , [COLOR="red"]1[/COLOR])
    If [COLOR="red"]Not [/COLOR]evn Is Nothing Then
        TextBox2.Value = evn.[COLOR="red"]Offset[/COLOR](0, 1).Value
    End If
End Sub[/SIZE][/FONT]

 

[geniu125]

Hocam eline sağlık çok güzel çalışıyor.
Peki bu verileri başka sayfadan almak istesem, bunun da örneğini verebilirmisiniz.

Teşekkürler.

 

[Murat OSMA]

Rica ederim.

Kodlardaki bu satırda;
Set evn = Sheets("Sayfa2").Columns(1).Find(TextBox1.Value, , , 1)

Columns'tan önce sayfa adını belirtmelisiniz. Parantez içindeki 1 rakamı da 1. sütun yani A sütunu anlamındadır.
Bu iki kısmı değiştirerek, istediğiniz bir sayfanın istediğiniz bir sütununda arama yapabilir ve TextBox2'ye bulunan hücrenin bir sağındaki veriyi yazdırabilirsiniz.​

 

[geniu125]

Çok teşekkürler hocam - nekadar işime yaradığını bi bilseniz...
Elleriniz dert görmesin...

 

[Murat OSMA]

Tahmin edebiliyorum.

Hoşça kalın.​