MAKRO SÜTUN GENİŞLİGİ

[dilekgüç]

MAKRO SÜTUN GENÝÞLÝGÝ

Makro penceresinde çıkak verilerin bölümündeki sütunları istege göre genişletebilirmiyim
iyi çalışmalar

 

[Levent Menteşoğlu]

Listboxtaki kolon genişliklerini ayarlamak için aşağıdaki kodu kullanabilirsiniz. Bu kodda 4 kolon içindir, kolon sayısı kadar ilave edebilirsiniz. Uygun genişlikleri sayıları değiştirerek deneme-yanılma ile bulabilirsiniz.

[vb:1:9f4cf1f37a]Private Sub UserForm_Click()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "50;60;70;80"
End Sub
[/vb:1:9f4cf1f37a]

 

[dilekgüç]

Private Sub ListBox1_Click()
For a = 1 To 12
Controls("TextBox" & a) = ListBox1.Column(a - 1)
Next
End Sub
bu veriyi silip yerine onumu kuyacam

 

[dilekgüç]

verdiginiz komutun tamamını yazdığım zaman (ListBox1) veriler çalışmıyor

ama böyle yaptıgım zaman veriler çalışıyor

Private Sub ListBox1_Click()
For a = 1 To 12
Controls("TextBox" & a) = ListBox1.Column(a - 1)
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "50;60;200;50"
Next

genişleme yapmadı
iyi çalışmalar
End Sub

 

[Levent Menteşoğlu]

Çok özür kodu yanlış vermişim initialize olayı olacaktı. Aşağıdaki gibi deneyin.

[vb:1:4c24e04f8a]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "50;60;70;80"
End Sub
[/vb:1:4c24e04f8a]

 

[dilekgüç]

sayın leventm bey kusura bakmayın beceremedim birde siz denermisimiz en son halini yolluyorum iyi çalışmalar

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu kopyalayın.

[vb:1:21ca6103fa]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "50;40;300;40;40;40;40;40;40;40;40;40"
ListBox1.RowSource = "sayfa1!b4:m" & [b65536].End(3).Row
End Sub[/vb:1:21ca6103fa]

 

[dilekgüç]

:hihoho: tesekkürler oldu :arkadas: