combo arası geçiş

[heft]

Dim bassat, bitsat As Integer

Private Sub CommandButton1_Click()
bassat = Columns(45).Find(ComboBox1.Value).Row
bitsat = WorksheetFunction.CountIf(Columns(45), ComboBox1.Value) + bassat - 1
adres = "A!AT" & bassat & ":AT" & bitsat
ComboBox2.RowSource = adres
ComboBox2.Value = ""
End Sub

Object varible or With block varible no set.

hatası veriyor nerde hata yapıyorum?

AS kolonunu Combobox1 de gösteriyorum,seçtiğim Combobox1 özeeliklerindeki AT kolonundakilerin Combobox2 ye gelmesini istiyorum

 

[Ferhat Pazarçevirdi]

Merhabalar,

Öncelikle; "bassat" ve "bitsat" değişkenlerinden herhangi birinin "0" (sıfır) değer almadığından emin olun. Eğer sıfır (veya negatif) değer alıyorsa; "..AT0..." gibi bir hücre referansına başvuru yapıyor demektir ki, (Excel'de böyle bir referans yoktur) bu da hataya sebep olur.

İyi çalışmalar...


.