ComboBox daki veriyi Sayfa2 de aratmak.

[kelkitli]

Değerli Dostlar Selamlar,
Sayfa1 ComboBox1 deki kişiyi Sayfa2 B sütununda arayıp kaydırarak veri almaya çalışıyorum. Kodlar aşağıda nerede hata yapıyorum.

Private Sub ComboBox1_Change()
On Error Resume Next
Set s1 = Sayfa1
Set s2 = Sayfa2
Set KRİTER = s1.ComboBox1
S1.Select
[C9:C17].Clearcontens
s2.Select
ara = [A3:A65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate
s1.Range("C9") = ActiveCell.Offset(0, 2).Value
s1.Select
Range("A1").Select
Set s1 = Nothing
Set s2 = Nothing
Exit Sub
End Sub

 

[Orion1]

Aşağıdaki satırı değiştirip deneyiniz.

ara = [Sayfa2!A3:A65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate

 

[Orion1]

Yok aşağıdaki gibi değiştirin.

ara = [[B][COLOR="Red"]B[/COLOR][/B]3:[B][COLOR="red"]B[/COLOR][/B]65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate

 

[kelkitli]

Sayın Evren Gizlen Üstadım teşekkür ederim. Kodları yazarken foruma hatalı aktarmışım [A3:A65536] özür. İlk cevabınızı B olarak değiştirdim, oldu. Sağolun.

 

[Orion1]

Sayın Evren Gizlen Üstadım teşekkür ederim. Kodları yazarken foruma hatalı aktarmışım [A3:A65536] özür. İlk cevabınızı B olarak değiştirdim, oldu. Sağolun.

Bende sonradan yeni mesajımda(3 numaralı mesajda) bunu ,sizin yaptığınızı izah etmiştim.

 

[Orion1]

Ama kodlarınız hatalı çalışacaktır.
Ne zamanmı?
Aradığını bulamadağı zaman.
Dağa önceden aktif olan hücredeki kaydırılmış veriyi verecektir.

 

[kelkitli]

Sayın Evren Hocam,
Bunu ben de düşündüm. Ancak bu mümkün değil. Şundan dolayı: Benim ComboBox ta listelediğim isimler zaten aynı listeden seçili. Benim bununla ilgili değilde şöyle bir sıkıntım oldu. ComboBox ta B sütunundan listelediğim isimleri boşluksuz ve son satıra yeni eklenenleri listeye alacak şekil bir düzenleme yapamadım. Eğer bu hususta yardımınız olursa müteşekkir olurum.

 

[Orion1]

Sayın Evren Hocam,
Bunu ben de düşündüm. Ancak bu mümkün değil. Şundan dolayı: Benim ComboBox ta listelediğim isimler zaten aynı listeden seçili. Benim bununla ilgili değilde şöyle bir sıkıntım oldu. ComboBox ta B sütunundan listelediğim isimleri boşluksuz ve son satıra yeni eklenenleri listeye alacak şekil bir düzenleme yapamadım. Eğer bu hususta yardımınız olursa müteşekkir olurum.

Öylemi diyorsunuz?
Sayfa1deki C1 hücresini silin sonrada combobox'a elle olmayan bir değer girin ve aratın.
Bakalım ne sonuç alacaksınız.
Eğer combobox'ın styl özelliğini değiştirmediyseniz veya keydown olayına kod yazmadıysanız hatalı sonuç üretecektir.

 

[kelkitli]

Haklısınız Sayın Üstadım. Ben bunu düşünemedim. Peki nasıl bir kod olmalı?