Aktif Satırın Bir Soldaki Değerini Almak

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Aşağıdaki kod ile "T" sütununu son dolu satıra kadar kontrol edecek. Textbox62 deki değeri bulduğunda, bir soldaki hücrenin değerini "ad" değişkenine aktaracak. Bu hali ile ad değişkenine birşey atamıyor. Msgbox boş çıkıyor. Yardımcı olabilir misiniz.

For bak = 1 To [t65000].End(xlUp).Row
If Range("t" & bak) Like TextBox62 Then
ad = ActiveCell.Offset(bak, -1).Value
MsgBox ad
Exit Sub: End If
Next bak

 

[YUSUF44]

ad = ActiveCell.Offset(bak, -1).Value

Bu satırda aktif/seçili hücrenin bir solundaki değeri alıyorsunuz. Halbuki döngüde hücre seçmeyle ilgili bir kod yok.

Şöyle olabilir:

ad= Cells(bak,"S").value

Ancak döngü yavaş çalışır. Bunun yerine KAÇINCI yani MATCH kullanmanız daha iyi olur.

Deneyemiyorum ama şöyle olabilir:

ad=Cells(WorksheetFunction.Match("*"&TextBox62.Text&"*",[T:T],0),"S")

 

[ahmed_ummu]

ad = ActiveCell.Offset(bak, -1).Value

Bu satırda aktif/seçili hücrenin bir solundaki değeri alıyorsunuz. Halbuki döngüde hücre seçmeyle ilgili bir kod yok.

Şöyle olabilir:

ad= Cells(bak,"S").value

Ancak döngü yavaş çalışır. Bunun yerine KAÇINCI yani MATCH kullanmanız daha iyi olur.

Deneyemiyorum ama şöyle olabilir:

ad=Cells(WorksheetFunction.Match("*"&TextBox62.Text&"*",[T:T],0),"S")

Teşekkür ederim Yusuf bey

ad= Cells(bak,"S").value kod sorunu çözdü.