arabul da küçük bir soru

[gur_carn]

Sevgili Üstadlarım...
Aşağıya bir kod kopyaladım. Textbox2 değerini bulmaya çalışıorum

("B:B") sutunu bağlantı kodlarının olduğu yer
("17:17") başlıkların olduğu yer.

İstedeğim şey bb sütunu ile 17. satırın kesiştiği değerin 3 satır altındaki değeri çeksin



""""
If OptionButton4.Value = True Then

Set BULX = Sayfa1.Range("B:B").Find(TextBox18, LookAt:=xlWhole)
Set BULY = Sayfa1.Rows("17:17").Find(ComboBox2, LookAt:=xlWhole)
Set BULZ = Sayfa1.Rows("17:").Find("MİKTAR", LookAt:=xlWhole)
If Not BULX Is Nothing And Not BULY Is Nothing Then
TextBox1 = Sayfa1.Cells(BULX.Row, BULY.Column) * 1000
TextBox2 = Sayfa1.Cells(BULX.Row, BULZ.Column)

Else
TextBox1 = Empty
TextBox2 = Empty
End If
End If
"""""
TextBox2 = Sayfa1.Cells(BULX.Row, BULZ.Column+3) gibi bişi olcak inşallah

Yorumlarınızı bekliyorum

Şimdiden teşekkürler arkadaşlar...

 

[Ergün Güler]

Sevgili Üstadlarım...
Aşağıya bir kod kopyaladım. Textbox2 değerini bulmaya çalışıorum

("B:B") sutunu bağlantı kodlarının olduğu yer
("17:17") başlıkların olduğu yer.

İstedeğim şey bb sütunu ile 17. satırın kesiştiği değerin 3 satır altındaki değeri çeksin

Selam,
Yukarıdaki ifadenize göre bb sütunu ile 17.satırın kesiştiği yer zaten "BB17" dir. 3 satır altı da "BB20"dir. isteğinizden öyle anlaşılıyor.

Sayfa1.Range("BB20") yada Sayfa1.Cells(20, "BB") olarak kullanmanız gerekmez mi? değil ise örnek dosya ekleyiniz.