Lİstbox SÜtun AraliĞi

[ANTALYA 01]

Merhaba
Ekteki Çalışmada Combox tan seçim yapıldığında Listboxa Veriler geliyor fakat Sütun aralıkları çok açık aynı exel sayfasında olduğu gibi sütunları yaklaştıran kod hangisidir.Birde Comboxta seçim yapıldığında 1 Satır sabit kalsın istiyorum yani Bölmeleri dondur gibi bir şey.Ekteki örnekte anlatmaya çalıştım

 

[hamitcan]

Birinci sorunuz için; kolon genişlikliklerini ayarlayarak sorunu halledebilirsiniz.

 

[ANTALYA 01]

Merhaba

Bu kodun neresinde Kolon
Genişliği Ben deneme yanılma yoluyla bulamadım.Yada başka bir yerden mi ayarlanıyor

Private Sub UserForm_Initialize()
Dim i As Long, sonsat As Long, a As Long
Sheets("DATA").Select
ListBox1.ColumnCount = 35
sonsat = Cells(65536, "B").End(xlUp).Row
ReDim myarr(1 To 1, 1 To sonsat)
a = 1
myarr(1, 1) = "HEPSİ"
For i = 2 To sonsat
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
a = a + 1
ReDim Preserve myarr(1 To 1, 1 To a)
myarr(1, a) = Cells(i, "A").Value
End If
Next i
ComboBox1.Column = myarr
ComboBox1.ListIndex = 0
End Sub

 

[Ferhat Pazarçevirdi]

Gönderdiğiniz kodlarda; kolon genişlik ayarlarına ilişkin bir satır yok.

Kırmızı olan, yeni eklenmiş satır, sütun genişliklerini ayarlar. Kendinize göre ayarlayınız ...

NOT : Tırnak içindeki sayılar, 1.sütundan başlayarak son sütuna kadar sırasıyla sütun genişliklerini gösterir ...

Private Sub UserForm_Initialize()
Dim i As Long, sonsat As Long, a As Long
Sheets("DATA").Select
ListBox1.ColumnCount = 35
[COLOR=red]ListBox1.ColumnWidths = "10;10;30;30;40;50;20;10;20"[/COLOR]
.....
.....
End Sub

 

[ANTALYA 01]

D

Hocam
Teşekkür ederim.

 

[ANTALYA 01]

D

Merhaba
Peki Comboxta seçim yapıldığında 1 Satırın sabit kalması için yani Bölmeleri dondur gibi bir şey nasıl bir kod eklemek gerekecek