Formdan sayfaya aktarma esnasında sütun gizleme

[sirkülasyon]

Sayfa1'in B:X sütununda 3. satırdan itibaren formdan sayfaya kayıt yapılıyor.
Ancak K:X aralığına tercihe bağlı veri kaydı yapılıyor.
Bu nedenle K:X aralığında hangi sütunlara veri aktarılırsa sütun görünür olsun, veri aktarılmayan sütunlar gizli olsun.
Böyle bir uygulamanın çalışması için gerekli kod için yardımcı olabilir misiniz?

 

[Korhan Ayhan]

İlk satırın başlık olduğunu varsaydım.

Deneyiniz.

Option Explicit

Sub Test()
    Dim Veri As Range
    
    For Each Veri In Range("K2:X2")
        If WorksheetFunction.CountA(Veri.Resize(Rows.Count - 1)) > 0 Then
            Veri.Columns.Hidden = False
        Else
            Veri.Columns.Hidden = True
        End If
    Next
End Sub

 

[sirkülasyon]

Var Olasın Korhan Abi. Teşekkür ederim.
Başlık dolu olsaydı eğer nasıl olurdu Korhan abi

 

[Korhan Ayhan]

Oltayı ve yemi verdim. Onu da siz geliştiriniz.

 

[sirkülasyon]

Eyvallah Ustam