Kod:
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
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.