UserForm Düzenleme

[ms_6647]

Merhabalar,

Ekte bulunan dosyada user formu çağırdığımda veriler forma sığmıyor Formu genişletmeden sığdırma veya alta sağa sola kaydırma çubuğu koyma şansım varmıdır.

 

[Levent Menteşoğlu]

Commandbuttondaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
For a = 1 To 15
genislik = Round(Sheets("BN").Columns(a).Width, 0)
deger = deger & isaret & genislik
isaret = ";"
Next
ListBox1.ColumnWidths = Replace(deger, ",", ".")
ListBox1.ColumnCount = 15
ListBox1.ColumnHeads = True
ListBox1.RowSource = "BN!a20:o32"
End Sub