listboxta kolon gizleme

[ismailozkan4224]

değerli arkadaşlar ekteki dosyada verileri listbox1 alıp kayıt işlemi yapabiliyorum. seçtiğim chekbox lar sütunları göstersin onlarla yeni listemi yapayım istiyorum , ya da chekbox larla sütunları gizleyerek, istemediğim sütunların verilerini aktarmak istemiyorum. .yani kendi listemi ben yapabileyim istiyorum. yardımlarınız için teşekkür ederim.

DOSYA LİNKİ:

http://s3.dosya.tc/server13/fz8o8i/LISTEAC.EXCEL.WEB.TR.rar.html

 

[Orion1]

Listboxın 2nci ve 4ncü satırları gizleniyor.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "30;0;40;0"
ListBox1.RowSource = "A2:D10"
End Sub

 

[ismailozkan4224]

Listboxın 2nci ve 4ncü satırları gizleniyor.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "30;0;40;0"
ListBox1.RowSource = "A2:D10"
End Sub

evren bey öncelikle yardımınız için teşekkür ederim. ama benim istediğim chekbox ile bu işi yapabilmek. ve listboxta sütun gizlemek.bunun için bir çözümünüz var mı?

 

[PLİNT]

Merhaba
İsteğiniz aşağıdaki gibi olabilir

[SIZE="2"]'Private Sub CommandButton20_Click()
Sub gizle()
Dim g As String, a As Integer, f As String
Dim deg As String, sh As Worksheet
Dim yer As String, x As Integer
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To ListBox1.ColumnCount
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
If ListBox1.ColumnWidths <> deg Then ListBox1.ColumnWidths = deg
r = ListBox1.ColumnWidths
For a = 0 To ListBox1.ColumnCount - 1
f = Split(r, " pt;")(a)
If a < 24 Then
If Controls("CheckBox" & a + 1) = True Then
x = 1: f = "0"
End If: End If
g = g & f & ";"
Next
If x = 1 Then
ListBox1.ColumnWidths = g
Else
ListBox1.ColumnWidths = deg
End If
End Sub[/SIZE]

"Checbox" lara tek tek yazmanız gerek

[SIZE="2"]Private Sub CheckBox1_Click()
gizle
End Sub

Private Sub CheckBox2_Click()
gizle
End Sub

'...
'..
Private Sub CheckBox24_Click()
gizle
End Sub
[/SIZE]

Veya bunların yerine "Sub gizle" başlığı yerine
'Private Sub CommandButton20_Click()
seçimler yapıldıktan sonra butonlada olabilir

 

[ismailozkan4224]

sayın plint ilginiz için teşekkür ederim. ancak sub gizle makrosunda
for a döngüsü ve if conrols satırlarında hata veriyor. dosyada denemeniz mümkün mü acaba. belki de ben uyarlayamadım

 

[PLİNT]

Merhaba
Uyguladığınız dosyada eksik "checkbox" mı var acaba örnek dosyanızda 1 den 24 e kadar düzenli, sıralıydı
ilk 6 "checkbox" a uygulanmış şekli ektedir, "combobox" dan mesela "1-A" seçili iken denermisiniz
http://s3.dosya.tc/server13/ia8gpc/LISTEAC.EXCEL.WEB.TR2.zip.html

 

[ismailozkan4224]

Merhaba
Uyguladığınız dosyada eksik "checkbox" mı var acaba örnek dosyanızda 1 den 24 e kadar düzenli, sıralıydı
ilk 6 "checkbox" a uygulanmış şekli ektedir, "combobox" dan mesela "1-A" seçili iken denermisiniz
http://s3.dosya.tc/server13/ia8gpc/LISTEAC.EXCEL.WEB.TR2.zip.html

sayın plint çok teşekkür ederim. harika oldu