Listbox' Veri Aldırma Sorunu

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kodlar Userformun initialize yordamında. Form ilk açıldığında Eğer "üb" ve "üp" sayfalarında veri yok ise üst satırdaki başlıkları alıyor. Veri girince düzeliyor ama form ilk açıldığında eklediğim ekran görüntüsündeki gibi geliyor. "üp" sayfasında 8. satırdan, "üb" sayfasında da 6. satırdan itibaren yazıyor kodlarda. (Kırmızı renkli olan yerler. site de bazı örnek kodları uyarlamaya çalıştım ama olmadı . İki gündür çözemedim, yardımcı olabilir misiniz.

Sheets("üp").Select
Range("b8").Select
'ListBox1.Clear
With UserForm10.ListBox1
.ColumnCount = 38
.ColumnWidths = "18;150;83;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;48;48;48"
.RowSource = "a8:Ak" & Cells(Rows.Count, "B").End(xlUp).Row
End With

Sheets("üb").Select
Range("b6").Select
'ListBox9.Clear
With UserForm10.ListBox9
.ColumnCount = 21
.ColumnWidths = "18;150;83;25;25;25;25;50;50;40;40;40;40;40;40;40;40;40;40;40;45;40"
.RowSource = "a6:u" & Cells(Rows.Count, "B").End(xlUp).Row
End With

 

[ÖmerFaruk]

Aşağıdaki düzeltmeleri yapın.
.RowSource = "a8:Ak" & Max(8,Cells(Rows.Count, "B").End(xlUp).Row)
.RowSource = "a6:u" & Max(6,Cells(Rows.Count, "B").End(xlUp).Row)

 

[ahmed_ummu]

Aşağıdaki düzeltmeleri yapın.
.RowSource = "a8:Ak" & Max(8,Cells(Rows.Count, "B").End(xlUp).Row)
.RowSource = "a6:u" & Max(6,Cells(Rows.Count, "B").End(xlUp).Row)

Teşekkürler Ömer Faruk bey.
Max kelimesini seçip, resimdeki uyarıyı verdi.

 

[ÖmerFaruk]

Pardon
WorksheetFunction.Max olarak yazacaksınız.

 

[ahmed_ummu]

Pardon
WorksheetFunction.Max olarak yazacaksınız.

Çok teşekkür ederim, Ömer Faruk bey düzeldi.