Makro ile boş satır saklama

[2008model]

Sarı renli alanlardaki hücrelerin içinde formül yazılı ancak herhangi bir değer göstermediği için tablonun bu kısmını gizlemek istiyorum.tablom bayağı uzun 700 satır kadar. Yardım aihtiyacım var şimdiden teşekkürler herkese

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_SATIR_GİZLE()
    Dim X As Long, VERİ As String
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    For X = 6 To [B65536].End(3).Row
    VERİ = Cells(X, 2) & Cells(X, 3) & Cells(X, 4) & Cells(X, 5) & Cells(X, 6) & Cells(X, 7) & Cells(X, 8)
    If Len(VERİ) = 0 Then
    Rows(X).Hidden = True
    End If
    Next
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[2008model]

Hocam ellerine sağlı işimi gördü gibi

bir sorunum daha var.bu tablonun yanıbaşındada değerler var.o değerleri silmek zorunda kalıyorum.eğer makro c- d-e-f-g-h-ı-j-k-l-m-n-o-p sütünları sorgulayıp herhangi bir değer yoksa gizlerse mükemmel olur.

(yani asıl tablomda "r" ve s sütünumda değerler var onlardan veri almada yaralanıyorum.)

çok sağol teşekkürler

 

[2008model]

Ayrıca "a" ve "b" sütunumdada değerler var unuttum yazmayı

 

[Korhan Ayhan]

Selamlar,

Sonuç olarak hangi sütunlar sorgulanacak net olarak belirtirseniz alacağınız yanıtta net olacaktır.

 

[2008model]

sorgulanacak satırlar c- d- e-f- g - h -ı - j - k - l- m-n-o-p satırlarıdır.bu satırlarda herhangi değer yoksa gizlesin (formülü dikkate almasın).

sütun a - b ve q sütünu dahil diğer sütünları sorgulamasın.

HOCAM HER ŞEY İÇİN TEŞEKKÜRLER.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_SATIR_GİZLE()
    Dim X As Long, Y As Byte, VERİ As String
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    For X = 6 To [C65536].End(3).Row
        VERİ = Empty
        For Y = 3 To 14
        VERİ = VERİ & Cells(X, Y)
        Next
    If Len(VERİ) = 0 Then
    Rows(X).Hidden = True
    End If
    Next
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[2008model]

Hocam yardımlarınız için çok teşeklkür ederim.VERDİĞİNİZ MAKRO işime yaradı.asıl dosyamı size gönderiyorum orjinal kullandığım görmeniz için.ancak bir sorunum daha var yardımcı olursanız beni bahtiyar edersiniz:

Sayfadaki sabir değerlerin yazılı olduğu bölümleri ben gizliyorum manuel olarak.ardından formülleri gizleme yapıyorum ve sayfayı şifreliyorum.bu esandan sonra makroyu kullanmam mümkün olmuyor.orjinal dosyam ekte şifresi 2260771 "rest. Isimler "sayfası ve "bar isimler" sayfasında bahsettiğim çalışmalar.

MKARONUN SORGULAYACAĞI SÜTÜNLAR "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P " SÜTÜNLARI


Birde bazen makroda "mismacht" gibi hata mesajı görüyorum nedeni nedir acaba ne yapmak gerekiyor bu mesaj ardından????