Makro ile sütun gizleme

Ergün GÖKER · 24 Aralık 2015

Öncelikle herkese iyi geceler.
Bu gün altın üyeliğim bittiği için dosyamı bu şekilde yüklemek zorunda kaldım.

yapmak istediğim makro ile ekli dosyada da açıklamaya çalıştım.
cammandbuton larla istediğim sütunları gizlemek istiyorum.
1 inci butona bastığımda belli sütunları gizleyecek
2 butona bastığımda hepsini açacak ve diğer istediklerimi gizleyecek

ilgilenenlere şimdiden teşekkürler

http://dosya.co/gb3gycfltywm/SATIRLARI_GİZLEME.xls.html

PLİNT · 25 Aralık 2015

ergungoker03' Alıntı:
yapmak istediğim makro ile ekli dosyada da açıklamaya çalıştım.
cammandbuton larla istediğim sütunları gizlemek istiyorum.
1 inci butona bastığımda belli sütunları gizleyecek
2 butona bastığımda hepsini açacak ve diğer istediklerimi gizleyecek

Merhaba
Aşağıdaki gibi denermisiniz?
Örneğinizdeki 1 ve 2. satırlarda gizlenmeyecek sütunlarda değer bulunmalı
gizlenecek sütunlarda ilgili hücreler boş veya değişik değer olmalı
http://s3.dosya.tc/server7/vmxkg8/SATIRLARI_GIZLEME.zip.html

Kod:

 Private Sub CommandButton1_Click()
Cells.EntireColumn.Hidden = False
Set c1 = ActiveSheet.Rows(1).RowDifferences(Comparison:=ActiveSheet.Range("A1"))
c1.EntireColumn.Hidden = True
End Sub

Private Sub CommandButton2_Click()
Cells.EntireColumn.Hidden = False
Set c1 = ActiveSheet.Rows(2).RowDifferences(Comparison:=ActiveSheet.Range("A2"))
c1.EntireColumn.Hidden = True
End Sub

muygun · 25 Aralık 2015

Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Sub turuncu_göster()
On Error Resume Next
Call sütun_göster
Application.ScreenUpdating = False
For i = 1 To 193
If Cells(1, i).Interior.ColorIndex <> 45 Then Columns(i).Hidden = True
If Cells(1, i) = "" Then Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Sub sarı_göster()
On Error Resume Next
Call sütun_göster
Application.ScreenUpdating = False
For i = 1 To 193
If Cells(2, i).Interior.ColorIndex <> 6 Then Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Sub sütun_göster()
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To 193
Columns(i).Hidden = False
Next i
Application.ScreenUpdating = True
End Sub

Kodlarını ekleyerek bir butona bağlayın.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/iwm9fg/ergungoker03-SATIRLARI_GIZLEME.zip.html

Ergün GÖKER · 25 Aralık 2015

muygun hocam öncelikle teşekkür ederim elinize sağlık tam istediğim gibi olmuş. ancak bir konuda yardımınıza tekrar ihtiyacım var. Ben renkleri hangi sütunların nasıl kapanacağı ile ilgili yapmıştım. ben renkleri iptal etmek istiyorum bu SÜTUN GİZLE GÖSTER i sutun adı ile yapmak mümkünmüdür. tekrar teşekkür ederim

Saban Sertkaya · 25 Aralık 2015

Mesaj kotan dolmuş. Bilgine...

Ergün GÖKER · 25 Aralık 2015

Abi merhaba evet bugün dolmuş inşallah pazartesi yenileyeceğiz abi. bu akşam fark ettim

muygun · 25 Aralık 2015

Merhaba;

Sub gizle()
Columns("B:C").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
Range("B:C,F:F").EntireColumn.Hidden = True
End Sub

Bu 3 satırdan istediğinizi yada istediklerinizi (sütun adlarını kendinize göre düzenleyerek) kullanabilirsiniz.
İyi çalışmalar.

Ergün GÖKER · 26 Aralık 2015

sorum hala devam etmektedir. verilen örnekleri yaptığım zaman "Renge sınıfının Hidden özelliği kurulamıyor" uyarısı hata 1004 alıyorum

dosyamın bir örneğini ekledim. dosyam üzerinden yapılırsa ilgilenen tüm ustalara teşekkürlerimi borç bilirim. şimdiden sağolun
dosyamda açıklamaya çalıştım

http://s6.dosya.tc/server5/7rqcp2/SUTUN_GIZLE_MAKROSU.xls.html

PLİNT · 26 Aralık 2015

ergungoker03' Alıntı:
sorum hala devam etmektedir. verilen örnekleri yaptığım zaman "Renge sınıfının Hidden özelliği kurulamıyor" uyarısı hata 1004 alıyorum

dosyamın bir örneğini ekledim. dosyam üzerinden yapılırsa ilgilenen tüm ustalara teşekkürlerimi borç bilirim. şimdiden sağolun
dosyamda açıklamaya çalıştım

http://s6.dosya.tc/server5/7rqcp2/SUTUN_GIZLE_MAKROSU.xls.html

Merhaba
Ek dosyayı inceleyin

http://s6.dosya.tc/server5/jnwy69/SUTUN_GIZLE_MAKROSU.zip.html
Makro kaydet ile çıkan sonuç

Ergün GÖKER · 26 Aralık 2015

Hocam öncelikle ilginizden dolayı teşekkür ederim. Sizin gönderdiğiniz dosya tam istediğim gibi çalışıyor sorun yok. ancak kodu kendi çalışmama kopyaladığım zaman "Renge sınıfının Hidden özelliği kurulamıyor" hatasını yine veriyor.
Sayfayı kontrol ediyorum aynen sizin gönderdiğiniz gibi. birleştirilmiş hücre vs. yok bütün hücreler tek olmasına rağmen aynı hatayı alıyorum.

Orion1 · 26 Aralık 2015

ergungoker03' Alıntı:
Hocam öncelikle ilginizden dolayı teşekkür ederim. Sizin gönderdiğiniz dosya tam istediğim gibi çalışıyor sorun yok. ancak kodu kendi çalışmama kopyaladığım zaman "Renge sınıfının Hidden özelliği kurulamıyor" hatasını yine veriyor.
Sayfayı kontrol ediyorum aynen sizin gönderdiğiniz gibi. birleştirilmiş hücre vs. yok bütün hücreler tek olmasına rağmen aynı hatayı alıyorum.

Sayfa koruma olmasın.

PLİNT · 26 Aralık 2015

Sayfa görünümü yakınlaştırma %60 ın altında olduğundada yapabilir.
Öyle ise Kodları şöyle deneyelim

Kod:

 Option Explicit

Private Sub CommandButton1_Click()
'turuncular
Dim m As Double
Application.ScreenUpdating = False
m = ActiveWindow.Zoom
ActiveWindow.Zoom = 62
Cells.EntireColumn.Hidden = False
    Range("B:C,CI:CI,CI:CJ,DA:DB,DP:DP,DV:DV,ED:ED,EL:EL").EntireColumn.Hidden = True
 ActiveWindow.Zoom = m
Application.ScreenUpdating = False
End Sub

Private Sub CommandButton2_Click()
'sadece sarılar görünsün
Dim m As Double
Application.ScreenUpdating = False
m = ActiveWindow.Zoom
ActiveWindow.Zoom = 62
Cells.EntireColumn.Hidden = False
Range("B:C,E:F,L:N,P:S,AL:CE,CK:CN,CR:CR,CT:CU,CW:CY,DC:DG,DL:DO,DQ:DU,EA:EC,EF:EI,EM:GA,GB:GK").EntireColumn.Hidden = True
 ActiveWindow.Zoom = m
Application.ScreenUpdating = False
End Sub

Private Sub CommandButton3_Click()
Cells.EntireColumn.Hidden = False
End Sub

Ergün GÖKER · 26 Aralık 2015

Sayfa koruması yok hocam

Ergün GÖKER · 26 Aralık 2015

hocam sayfamın orijinal halini yükledim bakma şansınız olursa çok sevinirim. sayfa koruması yada % 100 de duruyor

http://s6.dosya.tc/server5/0wi9x5/SUTUN_GIZLE_MAKROSU.xls.html

muygun · 27 Aralık 2015

Merhaba;
Sayfanın kod bölümüne;

Sub gizle()
On Error Resume Next
Columns("B:C").EntireColumn.Hidden = True
Columns("E:F").EntireColumn.Hidden = True
Columns("L:N").EntireColumn.Hidden = True
Columns("P:S").EntireColumn.Hidden = True
Columns("AL:CE").EntireColumn.Hidden = True
Columns("CK:CN").EntireColumn.Hidden = True
Columns("CR:CR").EntireColumn.Hidden = True
Columns("CT:CU").EntireColumn.Hidden = True
Columns("CW:CY").EntireColumn.Hidden = True
Columns("DC

G").EntireColumn.Hidden = True
Columns("DL

O").EntireColumn.Hidden = True
'Columns("DQ

U").EntireColumn.Hidden = True
Columns("EA:EC").EntireColumn.Hidden = True
Columns("EF:EI").EntireColumn.Hidden = True
Columns("EM:GA").EntireColumn.Hidden = True
Columns("GB:GK").EntireColumn.Hidden = True
End Sub

Sub açç()
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A29").Select
End Sub

Şeklinde yazarak deneyin.
İyi çalışmalar.

Not: Rem'lediğim ;

'Columns("DQ

U").EntireColumn.Hidden = True

Satırındaki adresi kontrol edin.

Ergün GÖKER · 27 Aralık 2015

muygun hocam öncelikle teşekkür ederim. Ben yapmak istediğimi anlatamadım sanırım ben istediğim satırları gizlemek sonrada hepsini açmak istemiyorum.
şöyle anlatayım
elimde sağa doğru sütunlarda bulunan isimleri var. ben bu sütünların altına girişler yapıyorum.
1 konu girişlerimde bazı satırların açık diğerlerinin gizli olmasını istiyorum çünkü girdiğim konu ile ilgisi yok.
2 konu girişimde hem ortak kullanılan başlıklar var hemde yeniden başka sütunların açılması nı istiyorum bu günlük giriş konusu elimdeki konu türüne göre değişebiliyor

muygun · 27 Aralık 2015

Ergün Bey;
Aç butonu yada kodlarını ister kullanın ister kullanmayın.
Ama ikinci bir sütun gizleme kullanacaksanız önce hepsini açar sonrada istediklerinizi gizlersiniz. (belki hata mesajını bundan dolayı alıyorsunuzdur.)

Ekteki dosyayı deneyin. Gizlenmeyen sütun varsa tekrar bakalım.
İyi çalışmalar.

Link:

http://s3.dosya.tc/server7/jqdoce/ergungoker03-SUTUN_GIZLE_MAKROSU.zip.html

Ergün GÖKER · 27 Aralık 2015

muygun hocam baştan bir kaç sütunu gizliyor diğerlerini gizlemiyor. altın üyeliğim dün bittiği için dosya indiremiyorum. Sanırım sorun bende çünkü sorunumu anlatamıyorum.
Aslında çok basit 1 ve 2 satırda x işareti olan hücreler var 1 ve 2 satırda x ortak işaretli olan hücreler de var 1 butona bastığım zaman 1 satırdaki x işareti olanlar kalacak diğerleri gizlenecek
1 diğer butonla ikinci satırdaki x işareti olanlar kalacak 2 satırda boş olanlar gizlenecek
kod geçişlerinde önce tümünü açıp kodu sonramı tetiklemesi gerekir. Kafam iyice karıştı doğrusu.
umarım yardımcı olabilirsiniz

muygun · 27 Aralık 2015

Birde bu eki deneyin.
İşlem döngü ile yapıldı. (makro içine sütun adı yazmanıza gerek yok. 1 ve 2. satırlarda açık kalacak için=a , kapalı olacak için=k yazın yeterli.)

İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/6z9qod/ergungoker03-SUTUN_GIZLE_MAKROSU-1.zip.html

Ergün GÖKER · 27 Aralık 2015

hocam 2 satırda k harfi olmasına rağmen o sütunları gizlemiyor.

Makro ile sütun gizleme

Ergün GÖKER

PLİNT

muygun

Özel Üye

Ekli dosyalar

Ergün GÖKER

Saban Sertkaya

Ergün GÖKER

muygun

Özel Üye

Ergün GÖKER

PLİNT

Ergün GÖKER

Orion1

Uzman

PLİNT

Ergün GÖKER

Ergün GÖKER

muygun

Özel Üye

Ergün GÖKER

muygun

Özel Üye

Ekli dosyalar

Ergün GÖKER

muygun

Özel Üye

Ekli dosyalar

Ergün GÖKER