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
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
