Activex Run Time Error 438 Hatası

[bebar]

Merhaba,

Aşıdaki kod için;

Run Time Error 438
object doesn't support property or method

Hatası alıyorum yardımcı olursanız memnun olurum

Private Sub Worksheet_Initialize()
With Me.ListBox1
.RowSource = "Genel!AQ15:AQ" & [Genel!AQ65536].End(3).Row
End With
End Sub

Teşekkür ederim.

 

[yanginci34]

Aşağıdaki gibi denermisiniz.

Private Sub Worksheet_Initialize()
With Me.ListBox1
.RowSource ="Genel!AQ15:AQ"& Sheets("Genel").Cells(Rows.Count, "AQ").End(3).Row
End With
End Sub

 

[bebar]

Malesef yine aynı hatayı aldım, yardımcı olacaksa örnek dosyam ektedir.

Teşekkür ederim.

 

[Zeki Gürsoy]

Worksheet_Initialize isminde bir event yoktur.

Düzeltme : Sayfa üzerine çizilen ListBox nesnesinin "RowSource" özelliği yokmuş.


Me.ListBox1.ListFillRange = "AQ15:AQ" & Sheets("Genel").Cells(Rows.Count, "AQ").End(3).Row

 

[bebar]

Odu hocam çok teşekkür ederim.