• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

UserForm Düzenleme

  • Konbuyu başlatan Konbuyu başlatan ms_6647
  • Başlangıç tarihi Başlangıç tarihi
Katılım
27 Aralık 2006
Mesajlar
59
Excel Vers. ve Dili
2003 Türkçe
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.
 

Ekli dosyalar

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

Kod:
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
 
Geri
Üst