Private Sub UserForm_Activate()
Sheets(4).Select
ListBox5.RowSource = Empty
With ListBox5
Sheets(4).Select
.ColumnCount = 5
.ColumnWidths = "150;60;150;60"
.RowSource = "a7:d26"
End With
End Sub
Yukarıdaki listbox'ın 2.ve 4.kolonuna çekilen bilgilerin sağa dayalı 1.ve 3. kolonuna çekilen bilgilerin de sola dayalı görüntülenmesini istiyorum ?
Sheets(4).Select
ListBox5.RowSource = Empty
With ListBox5
Sheets(4).Select
.ColumnCount = 5
.ColumnWidths = "150;60;150;60"
.RowSource = "a7:d26"
End With
End Sub
Kod:
Yukarıdaki listbox'ın 2.ve 4.kolonuna çekilen bilgilerin sağa dayalı 1.ve 3. kolonuna çekilen bilgilerin de sola dayalı görüntülenmesini istiyorum ?
