Makro ile sütun gizleme

[muygun]

Ergün Bey;
Sizin dosyanızda bir sorun var ama ne olduğunu anlayamadım.
Kodları boş dosyada denedim. Sorunsuz işlem yapıyor.
(belki hücre birleştirmelerinden olabilir.)
Belki işinize yaramayacak ama birleştirmenin olmadığı dosyada sizde deneyebilirsiniz.

İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/gxzzc0/ergungoker03-bos_dosya.zip.html

 

[Ergün GÖKER]

Muygun hocam dosyamın orijinal halini diğer eklieri ile birlikte gönderiyorum
yapmak istediğim şu YARALAMALI Butonuna bastığım zaman 1 satırdak X işareti olan sütunlar görünecek boş olanlar gizlenecek

MADDİ HASARLI BUTONA bastığımda 2 satırda X işaretli olanlar açılacak 2 satırda boş olanlar gizlenecek

sizede zahmet veriyorum hocam hakkınızı helal edin .
umarım anlatabilmişimdir

 

[PLİNT]

Ek dosyayı denermisiniz.

http://s6.dosya.tc/server5/ry63ap/KAZAMATIK_2016_-_26.12.2015.xls.html
Sorun Sayfadaki açıklamaların biçimlendirme şekli hücrelerle taşınması engelleniyor.
kaldırmak için: kırmızı bölümü ekleyiniz.
Sayfaya başka açıklama ekleyeceğinizde açıklama biçimlendirmeden "Hücrelerle taşı ve boyutlandırı" işaretleyiniz.
Bu durumda aşağıdaki ek koda ihtiyaç kalmayacaktır.

  Option Explicit

Private Sub CommandButton1_Click()
'turuncular
Cells.EntireColumn.Hidden = False
    Range("B:C,CI:CI,CI:CJ,DA:DB,DP:DP,DV:DV,ED:ED,EL:EL").EntireColumn.Hidden = True
End Sub

Private Sub CommandButton2_Click()
[COLOR="Red"]Dim a
For Each a In Cells.SpecialCells(xlCellTypeComments)
If Not Range(a.Address).Comment Is Nothing Then
    With Range(a.Address).Comment.Shape
        .Locked = False
        .Placement = xlMoveAndSize
    End With
End If
Next[/COLOR]


'sadece sarılar görünsün
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

End Sub

 

[Ergün GÖKER]

Ek dosyayı denermisiniz.

http://s6.dosya.tc/server5/ry63ap/KAZAMATIK_2016_-_26.12.2015.xls.html
Sorun Sayfadaki açıklamaların biçimlendirme şekli hücrelerle taşınması engelleniyor.
kaldırmak için: kırmızı bölümü ekleyiniz.

  Option Explicit

Private Sub CommandButton1_Click()
'turuncular
Cells.EntireColumn.Hidden = False
    Range("B:C,CI:CI,CI:CJ,DA:DB,DP:DP,DV:DV,ED:ED,EL:EL").EntireColumn.Hidden = True
End Sub

Private Sub CommandButton2_Click()
[COLOR="Red"]Dim a
For Each a In Cells.SpecialCells(xlCellTypeComments)
If Not Range(a.Address).Comment Is Nothing Then
    With Range(a.Address).Comment.Shape
        .Locked = False
        .Placement = xlMoveAndSize
    End With
End If
Next[/COLOR]


'sadece sarılar görünsün
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

End Sub

Hocam ellerin dert görmesin hakkınız helal edin sanırım şimdi oldu
muygun hocamada çok teşekkürler

 

[PLİNT]

Ek dosyayı denermisiniz.

http://s6.dosya.tc/server5/ry63ap/KAZAMATIK_2016_-_26.12.2015.xls.html
Sorun Sayfadaki açıklamaların biçimlendirme şekli hücrelerle taşınması engelleniyor.
kaldırmak için: kırmızı bölümü ekleyiniz.
Sayfaya başka açıklama ekleyeceğinizde açıklama biçimlendirmeden "Hücrelerle taşı ve boyutlandırı" işaretleyiniz.
Bu durumda aşağıdaki ek koda ihtiyaç kalmayacaktır.

Rica ederim kolay gelsin.
Üst mesajımda düzeltme bölümünü dikkate alın.

 

[Ergün GÖKER]

Hocam ne demek istediğinizi tam olarak anlayamadım. Sayfaya başka açıklama eklemeyeceğim. Kodu sizin eklediğiniz gibi kullanıyorum. Kırmızı alandan kastınızı anlayamadım

 

[muygun]

Merhaba;
Syn. PLİNT'i Tebrik ederim.
Beni kafayı yemekten kurtardı...
))

 

[Ergün GÖKER]

Hocam İkinizede ilgiden dolayı çok teşekkür ederim. Ben iki gündür kafayı yemek üzereydim. Sorun bende anlatamıyorum diye düşünüyordum. İyiki varsınız.

 

[PLİNT]

Merhaba;
Syn. PLİNT'i Tebrik ederim.

Teşekkür ederim.
Sabır ve özveriyle verdiğiniz cevaplardan dolayı asıl tebriği hakeden sizsiniz sağolun, varolun. Saygılarımla.

Hocam ne demek istediğinizi tam olarak anlayamadım. Sayfaya başka açıklama eklemeyeceğim. Kodu sizin eklediğiniz gibi kullanıyorum. Kırmızı alandan kastınızı anlayamadım

Kastettiğim kodlara eklediğimiz açıklamaları biçimlendiren aşağıdaki
döngü kodudur. İlgili sayfaya başka açıklamada eklemeyeceğinize göre onu bir kere çalıştırıp, dosyayı kaydettikten sonra gereği kalmaz,
silin gitsin, her butona bastğınızda boşa çalışıp zaman kabettirmesin

Private Sub CommandButton2_Click()
[COLOR="red"]Dim a
For Each a In Cells.SpecialCells(xlCellTypeComments)
If Not Range(a.Address).Comment Is Nothing Then
    With Range(a.Address).Comment.Shape
        .Locked = False
        .Placement = xlMoveAndSize
    End With
End If
Next[/COLOR]


'sadece sarılar görünsün
'.....