Combobox'a veri ekleme

[die4you]

Arkadaşlar excell 2007 de bir sayfada A2 den başlayıp A sütunundaki son bilgiye kadar olan verileri Combobox'a ekleyen VBA kodunu aşağıdaki gibi yazdım ama kırmızı renkli yerde 70 nolu hatayı veriyor yardım olabilirmisinizz

Private Sub dagit()
Dim sat As Integer
sat = 2
Dim gsayfa As Worksheet
Set gsayfa = Sheets("Ogretmenler")
gsayfa.Select
Do While ( gsayfa.Cells(sat, 1).Value<> "")
ComboBox1.Additem(gsayfa.Cells(sat, 1).Value)
sat = sat + 1
Loop
Application.ScreenUpdating = True
End Sub

 

[Orion1]

şöyle deneyiniz.

ComboBox1.Additem
gsayfa.Cells(sat, 1).Value

 

[die4you]

yok hocam olmadıııı

 

[Orion1]

yok hocam olmadıııı

Düzenleme yaptım
tekrar deneyiniz.

 

[die4you]

orion hocam tamam hallettim saollasınnn

 

[Orion1]

Alternatif.
Aşağıdaki yöntemle (eğer sorgulama yapmayacaksanız) daha hızlı verilerinizi alabilirsiniz.

ComboBox1.RowSource = "gsayfa!A2:A" & _
Sheets("gsayfa").Cells(Rows.Count, "A").End(xlUp).Row