Koşullu bul

[ETEKİN]

Merhaba Arkadaşlar;
Ekli dosyada, yapmaya çalıştığım;
Bul butonuna bastığım zaman çıkan inputbox kutusuna a sütununda bulunan isim girilecek ve o ismin yanında olan sütunların sonunda bulunan son boş hücreye gidilecek.Örneğin;
İnputbox' a b dediğimde, H16 hücresine gidecek.
Ekte yapmaya çalıştım ama başarılı olamadım.Yardımlarınızı bekliyorum.
Saygılarımla

 

[hımmmmmmmm]

bu şekilde değiştir

Sub deneme()
Set S = Sheets("SAYFA1")

mx = InputBox("İŞLEMLER")
SATIR = S.Range("A:A").Find(mx).Row
SUTUN = S.Range(Trim(SATIR) + ":" + Trim(SATIR)).End(xlToRight).Column + 1
S.Cells(SATIR, SUTUN).Select
End Sub

 

[ETEKİN]

Sayın Hımm...

Çok teşekkürler.