Ara dediğimde ismi bulmuyor

[Mdemir63]

Arkadaşlar Günaydın

Ekteki dosyada ARA düğmesine bastığımda çıkan InputBox penceresine isim giriyorum OK diyorum Açılan kutu içerisine aradığım ismi getirmiyor. Acaba kodlarda mı bir eksiklik var bilemedim. Bir çözüm bulabilirseniz çok sevinirim.

Saygılar

 

[alpi]

Şu kodları kullanın

Sub Bul()
Dim Açılan1 As String
Açılan1 = InputBox("Aradığınız İsim Giriniz...")
On Error Resume Next
Sayfa2.Select
Sayfa2.Range("A1:A20").Find(What:=Açılan1).Activate
End Sub

 

[Mdemir63]

Şu kodları kullanın

Sub Bul()
Dim Açılan1 As String
Açılan1 = InputBox("Aradığınız İsim Giriniz...")
On Error Resume Next
Sayfa2.Select
Sayfa2.Range("A1:A20").Find(What:=Açılan1).Activate
End Sub

Sn:alpi Günaydınlar
kodları girdim fakat sayfa 2 ye gidiyor buluyor tamam ama ben açılan kutunun içine getirsin istiyorum.

Saygılar

 

[alpi]

Sayın Komutan yapmak istediğiniz şeyi tam olarak açıklar mısınız. Aranan ismin Sayfa2 de bulunup açılan kutuya yazılması pekde mantıklı gelmiyor. Ama yapmak istediğiniz şey gerçekten buysa bunu yapabiliriz.

 

[Mdemir63]

Sayın Komutan yapmak istediğiniz şeyi tam olarak açıklar mısınız. Aranan ismin Sayfa2 de bulunup açılan kutuya yazılması pekde mantıklı gelmiyor. Ama yapmak istediğiniz şey gerçekten buysa bunu yapabiliriz.

Sn:alpi dosyaya baktıysanız orada açıklamıştım ama tekrar söyleyim. ARA butonuna bastığımda çıkan InputBox a isim girdiğimde Açılan kutunun içene yazsın hepsi bu

Saygılar sunuyorum

Ayrıca VBA 'da Kod yazma ipuçlar içinde çok teşekkürler emeğinize sağlık çok güzel bir çalışma yeni buldum bu çalışmanızdan çok faydalanacağımı düşünüyorum.

 

[alpi]

Dosyanız ekte.

 

[Mdemir63]

Dosyanız ekte.

Çok teşekkür ederim elinize sağlık
İyi çalışmalar

Saygılar