(13/06/2019, 13:33)nightashes yazdı: 1- İkinci forma listeden aldığım bilgiler verdiğim aralığı alıyor fakat istediğim son satırda bitmesi. Çünkü listede boş satırlarda görünmekte ve bu listeyi çok uzun tutmakta.

1. sorunuza cevap aşağıdaki kodu dener misiniz?

Private Sub UserForm_Initialize()

Dim sayfa As Worksheet

Dim SonSatir As Long

    SonSatir = Worksheets("Liste-Maliyet").Cells(4, 3).End(xlDown).Row

ListBox1.Clear

ListBox1.ColumnCount = 1

ListBox1.ColumnWidths = "50"

For Each sayfa In Worksheets

ListBox1.AddItem sayfa.Name

Next

With ListBox2

    Do While .ListCount > 0

      .RemoveItem 0

    Loop

  End With



ListBox2.List = Worksheets("Liste-Maliyet").Range("B4:C" & SonSatir).Value

End Sub