Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-12-2017, 20:52   #1
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 73
Excel Vers. ve Dili:
2007 türkçe
Varsayılan listboxta kolon gizleme

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/L...EB.TR.rar.html
Eklenmiş Dosyalar
Dosya Türü: xlsm LİSTEAC.EXCEL.WEB.TR.xlsm (579.6 KB, 3 Görüntülenme)

Bu mesaj en son " 29-12-2017 " tarihinde saat 22:15 itibariyle ismailozkan4224 tarafından düzenlenmiştir....
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 21:58   #2
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Listboxın 2nci ve 4ncü satırları gizleniyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "30;0;40;0"
ListBox1.RowSource = "A2:D10"
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 22:13   #3
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 73
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
Listboxın 2nci ve 4ncü satırları gizleniyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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ı?
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 22:39   #4
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,329
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
İsteğiniz aşağıdaki gibi olabilir
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
'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
"Checbox" lara tek tek yazmanız gerek
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CheckBox1_Click()
gizle
End Sub

Private Sub CheckBox2_Click()
gizle
End Sub

'...
'..
Private Sub CheckBox24_Click()
gizle
End Sub
Veya bunların yerine "Sub gizle" başlığı yerine
'Private Sub CommandButton20_Click()
seçimler yapıldıktan sonra butonlada olabilir
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-12-2017, 15:50   #5
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 73
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-12-2017, 21:08   #6
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,329
Excel Vers. ve Dili:
Excel 2010
Varsayılan

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/L...B.TR2.zip.html
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 18:08   #7
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 73
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
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/L...B.TR2.zip.html
sayın plint çok teşekkür ederim. harika oldu
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:43


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden