combobox ile ilgili bir makro yazdım
Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Personel Girişi").Select
If Range("C1") = "" Then
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAdisoyadi.RowSource = "Personel Girişi!C1:C" & say + 1
Else
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAdisoyadi.RowSource = "Personel Girişi!C1:C" & say
End If
txt1.Value = say
cbAdisoyadi.SetFocus
End Sub
ama,
Run-time Error '380'
Coult not set the RowSourceproperty.İnvalit property value
hata mesajı geliyor. üstadların bilgisine
Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Personel Girişi").Select
If Range("C1") = "" Then
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAdisoyadi.RowSource = "Personel Girişi!C1:C" & say + 1
Else
say = WorksheetFunction.CountA(Range("C1:C65000"))
cbAdisoyadi.RowSource = "Personel Girişi!C1:C" & say
End If
txt1.Value = say
cbAdisoyadi.SetFocus
End Sub
ama,
Run-time Error '380'
Coult not set the RowSourceproperty.İnvalit property value
hata mesajı geliyor. üstadların bilgisine