Excel sayfasındaki nesneler arasında tab order

[kemal turan]

merhaba,
excel sayfasında bir combobox' um var burada seçim yaptıktan sonra textbox1 e mause ile seçmeye gerek kalmadan veri girmek istiyorum.
aşağıdaki olaya kodun .... bölümüne yazmamız gerekiyor herhalde

Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("TL", "$", "€")
'......
End Sub

 

[Emir Hüseyin Çoban]

. . .

Textbox1' e ne yazdırmak istiyorsunuz.

. . .

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.List = Array("TL", "$", "€")
End Sub

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1
End Sub

 

[kemal turan]

Merhaba,
Hüseyin ve Korhan hocam
Textbox a yazacağımız herhangi bir şey olabilir.
Userformda tab order sıralaması gibi veya Set focus olayı gibi.
ComboBox1_Change() olayına textbox1..setfocus kodu hata veriyor.
Teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Private Sub ComboBox1_Change()
    TextBox1.SetFocus
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.List = Array("TL", "$", "€")
End Sub

. . .

 

[kemal turan]

Merhaba Hüseyin bey,
Run-time error '438:
object doesn't support this proprty or method
hatası veriyor

 

[Korhan Ayhan]

Setfocus form üzerinde kullanılır. Sayfa üzerinde Activate komutu geçerlidir.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.List = Array("TL", "$", "€")
End Sub

Private Sub ComboBox1_Change()
    TextBox1.Activate
End Sub

 

[calecale]

Merhabalar.Buralarda yeniyim vba da da hiç bir bilgim yok ama bulduğum kodlarla kendime bir hesap takip yapmaya çalışıyorum.Listbox a veri çekmede bir sıkıntım var bulduğum kod tarih aralında veri var ise listeliyor yok ise hata veriyor.Yeni mesaj nereden atılabiliyor? Bir türlü bulamadım.Yardım edebilecek var mı acaba.

 

[kemal turan]

KORHAN Hocam merhaba,
Şehir dışında idim. cevabınızı yeni gördüm.
Tam istediğim gibi,
Çok teşekkür ederim.
Selametle kalınız