Soru Makro sütun gizleme Hk.

[link_me]

Merhabalar
ekte görselini ve kodlarını paylaştığım dosyamda excel sayfasında filtreleme yapıyorum bazen 1 firma bazen birkaç firmayı aktar diyince başka sayfaya aktarma yapıyorum ona göre hesaplama yapıyor burada satırı sabit olmadığı için yapamadım nakliye faturalar kısmı sütunu gizlemek istiyorum bunu nasıl yapabilirim.

 

[34jet05]

Merhaba
Kendi Kullanış olduğum Satır Ve Sütün Gizleme Kodlarını İhtiyacınıza Göre Uyarlayabilirsiniz. Umarın işinizi Görür


'Satır Gizlemek için
Private Sub ToggleButton1_Click()
Dim Veri As Range, Alan As Range
For Each Veri In Range("I13:I40")
If Veri.Value = 0 Then
If Alan Is Nothing Then
Set Alan = Veri
Else
Set Alan = Union(Alan, Veri)
End If
End If
Next

If Not Alan Is Nothing Then
With ToggleButton1
If .Value Then
Alan.EntireRow.Hidden = True
.Caption = "Boş SATIR Göster"
Else
Alan.EntireRow.Hidden = False
.Caption = "Boş SATIR Gizle"
End If
End With
End If
End Sub

'-------------------------------------------------------------------------------------------------------------------

'Sütun Gizlemek için
Private Sub ToggleButton2_Click()
With ToggleButton2
If .Value Then
'SÜTUN GÖSTERME
Columns("K:R").Select
Selection.EntireColumn.Hidden = True
Range("C10").Select
.Caption = "GÖSTER"
ToggleButton2.BackColor = vbBlue ' düğme zeminine renk verir
Else
'SÜTUN GİZLEME
ActiveWindow.DisplayHeadings = True
Columns("K:R").Select
Selection.EntireColumn.Hidden = False
Range("C10").Select
.Caption = "GiZLE"
ToggleButton2.BackColor = &H0 ' düğme zeminine renk verir
End If
End With
End Sub

 

[link_me]

Teşekkür ederim cevabınız için fakat burada sabit sütunlar için bir gizleme kodu yazılmış benim sütunlar sabit değil nasıl yapmam gerekir

 

[YUSUF44]

s2 yani gelen data sayfasında V sütununda son dolu satırı bulma:

sonV = s2.Cells(Rows.Count, "V").End(3).Row

Bu satırı gizleme:

s2.Rows(sonV).Hidden = True

s4 yani pdf sayfasında Q sütununda son dolu satırı bulma:

sonQ = s4.Cells(Rows.Count, "Q").End(3).Row

Bundan bir önceki satırı gizleme:

s4.Rows(sonQ-1).Hidden = True

 

[link_me]

hocam gizleme yapıyor yanlız birkaç firmayı seçince pdf sayfasındaki otomatik 15 satır veya 20 satır otomatik gizleniyor.

 

[YUSUF44]

Bu kodda sadece tek satır gizleme var. 15 20 satır gizleme yok.

 

[link_me]

Bu kodda sadece tek satır gizleme var. 15 20 satır gizleme yok.

Yok yanlış izah ettim şimdi gelen Data sayfasında sıkıntı yok ama pdf sayfasında birkaç firmayı seçince 15.satır ile 20.satır arasını gizliyor isterseniz özelden dosyamı gönderebilirim

 

[link_me]

başka fikri olan yardımcı olabilecek arkadaşlar varmı acaba