Değer yoksa Sütun gizlensin

[sirkülasyon]

Ekders sayfasında bazı sütunlara değer girince bazı sütunlarda hesaplama yapıyor. Değer girsen de girmesen de hesaplama sütunu ekders bordrosunda görünüyor.
Değer girdikçe görünsün. Değer yoksa hesaplama sütunu görünmesin istiyorum. Yardımcı olacak ağabeylerime teşekkür ederim.


E5 - E50 arasında değer yoksa "Değer Girilen Sütun"
J5 - J50 Sütunu otomatik olarak gizlensin "Hesaplama Yapılan Sütun"
F5 - F50 arasında değer yoksa "Değer Girilen Sütun"
K5 - K50 Sütunu otomatik olarak gizlensin "Hesaplama Yapılan Sütun"
G5 - G50 arasında değer yoksa "Değer Girilen Sütun"
L5 - L50 Sütunu otomatik olarak gizlensin "Hesaplama Yapılan Sütun"
H5 -H50 arasında değer yoksa "Değer Girilen Sütun"
M5 - M50 Sütunu otomatik olarak gizlensin "Hesaplama Yapılan Sütun"
I5 - I50 arasında değer yoksa "Değer Girilen Sütun"
N5 - N50 Sütunu otomatik olarak gizlensin "Hesaplama Yapılan Sütun"

O5 - O50 Sütununda değer yoksa otomatik olarak gizlensin (Bu sütun da formül var.

 

[dellerlim]

Örnek dosya yüklerseniz çözülecektir mutlaka.

 

[sirkülasyon]

örnek dosyada
veri girişi yok ise
D8 : D25 veri girişi yok ise J8:J25 aralığı gizlensin
E8 : E25 veri girişi yok ise K8:K25 aralığı gizlensin
F8 : F25 veri girişi yok ise L8:L25 aralığı gizlensin
G8 : G25 veri girişi yok ise M8:M25 aralığı gizlensin
H8 : H25 veri girişi yok ise N8:N25 aralığı gizlensin
I8 : I25 veri girişi yok ise O8:O25 aralığı gizlensin

Veri Girişi olduğu zamanda gizlenen sütunlardan veri girişi yapılan sütuna karşılık gizlenen sütun açılsın

Teşekkür ederim

 

[askm]

Aşağıdaki kodlar işinizi görür sanırım.

Sub askm_Gizle()
Dim SonSatir As Long
Columns("J:O").Hidden = False
SonSatir = Range("D" & Rows.Count).End(xlUp).Row
For i = 4 To 9
    Sayi = Application.Application.CountIf(Range(Cells(8, i), Cells(25, i)), "<>")
    If Sayi = 0 Then
        kelime = kelime & "," & (i + 6)
        Columns(i + 6).Hidden = True
    End If

Next i
MsgBox Mid(kelime, 2, Len(kelime)) & " numaralı sütunlar gizlendi...", vbInformation, "ASKM"
End Sub

 

[sirkülasyon]

Sayın askm
Teşekkür ederim. Ellerinize sağlık.

 

[askm]

Rica ederim. Kolaylıklar dilerim.