Run-Time error’380’

[alpay1]

Private Sub UserForm_Initialize()
a = WorksheetFunction.CountA(Sheets("FATURA1").Range("A5:I65000")) + 1
ListBox1.RowSource = "FATURA1!A5:I" & a
ListBox1.ColumnCount = 8
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "15;50;85;55;55;65;45;40"
End Sub

Herkese iyi çalışmalar,
Yukarıdaki kodlarla listboxta listeleme yapıyorum fakat “Run-Time error’380’ Could not set the RowSource property.Invalid property value” hatası veriyor.Deneme yanılma yoluyla bu hatayı sayfada hücrelere yazdığım formüllerden dolayı verdiğini anladım.Hatayı vermemesi için ne yapmalıyım?
Teşekkürler.

 

[Levent Menteşoğlu]

Formüllerden dolayı böyle bir hata vermesi garip, ne tür formüller kullanıyorsunuz,yada örnek bir dosya ekleyebilirmisiniz.

 

[alpay1]

Sayın leventm,

Ã?rnek dosyayı yolluyorum

 

[Levent Menteşoğlu]

a = WorksheetFunction.CountA(Sheets("FATURA1").Range("A5:G65000")) + 1

Yukarıdaki satırı aşağıdaki şekilde değiştirerek deneyin.

a = WorksheetFunction.CountA(Sheets("FATURA1").Range("A5:A65000")) + 5

 

[alpay1]

Sayın leventm,
Dediğiniz şekilde yaptım ve sorun çözüldü.
Çok teşekkür ederim.