List Box da Sütun Genişliğini Ayarlamak

[Ulucdinc]

Değerli arkadaşlar:
Bir tabloya veri aktarımda kullanılan Listtbox da ilgili Excel Tablosunun başlıklarından kaynaklanan, 3 sütunluk bir bilgi girişi söz konusu olmaktadır. Bu sütunlar başlıkları ile beraber ListBox da gözükmekte ancak, tabloda yer alan yazılı veriler textbox alanındaki ilgili sütununa sığmamaktadır. ListBox da ilgili sütun araları nasıl genişletilebilir. Yardımınızı bekliyor iyi çalışmalar diliyorum. Kodlama şöyle idi:

Private Sub ComboBox1_Change()
On Error Resume Next
veri = ComboBox1.Value
Range("A1:C100").AutoFilter Field:=2, Criteria1:=veri & "*"
If veri = "" Then
Selection.AutoFilter Field:=2
End If
[a1:c100].SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(3).Range("A1")
ListBox1.RowSource = vbNullString
ListBox1.RowSource = "=Sayfa2!A1:C100"
End Sub
Private Sub ComboBox2_Change()
On Error Resume Next
veri = ComboBox2.Value
Range("A1:C100").AutoFilter Field:=3, Criteria1:=veri & "*"
If veri = "" Then
Selection.AutoFilter Field:=3
End If
[a1:c100].SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(3).Range("F1")
ListBox1.RowSource = vbNullString
ListBox1.RowSource = "=Firmalar!A1:C100"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
ListBox1.RowSource = vbNullString
ListBox1.RowSource = "=Firmalar!A1:C100"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Sheets("Sayfa2").Cells.ClearContents
End Sub

 

[Mahmut Kök]

listekutusunu (listbox) tıklayıp seçin. Sol tarafta Columnwidths yazan yere sayılar girerek ayarlayabilirsiniz. Mesela 55,60,65 gibi. Değerler, uygun hale kendiliğinden gelir. Kod bölümüne de Columnwidths koduyla yazabilirsiniz. ListBox1.ColumnWidths = "40;260;50" gibi

 

[Ulucdinc]

Çok teşekkür ediyorum.

Size teşekkür ediyorum yardımınız için, işiniz rast gitsin.