KOŞULLU SATIR SİLME

[cocoa35]

Arkadaşlar merhaba, Benim ek'te örnek dosyada gösterdiğim şekilde bir koşullu satır sildirmeye ihtiyacım var. Şöyleki Sayfa 2 'deki button ile , Eğer Sayfa1 C5 Boş ise Sayfa2 B3 / I6 Arası satırlar silinsin. Aynı şekilde Yine Sayfa1 C11 Boş ise Sayfa2 B10/I13 Arası , C17 Boş ise B17/I20 Arasındaki satırlar silinsin. Böyle bir makro'ya ihtiyacım var yardımcı olursanız sevinirim iyi günler teşekkürler

 

[Necdet]

Merhaba,

Sizin satır silmekten kastınızın hücre içinin temizlenmesi olarak anlaşılıyor.
Eğer doğru ise aşağıdaki kodları kullanabilirsiniz.

Yok gerçekten amacınız Satır Silmek ise kodları kendinize göre uyarlayınız.

Sub Düğme1_Tıkla()

    If Sheets("Sayfa1").Range("B3") = "" Then
        Range("B3:I6").ClearContents
    ElseIf Sheets("Sayfa1").Range("C11") = "" Then
        Range("B10:I13").ClearContents
    ElseIf Sheets("Sayfa1").Range("C17") = "" Then
        Range("B17:I20").ClearContents
    End If
    
End Sub

 

[cocoa35]

Sn Necdet bey ilginiz için çok teşekkür ediyorum, gönderdiğiniz kod'u uyguladım evet içeriği siliyor ancak o satırlar boş kalıyor! Ben bu makroyu Rapor sayfasında kullanmak istiyorum ilgili satırlarda tablo var sayfa1 hücresindeki değerler oraya geliyor, dolayısı ile sayfa1 deki hücrede değer olmayınca tablo boş oluyor ve rapor pdf aldırdığımda tablo boş çıkıyor, Esasında istediğim boş tabloların pdf alınırken gözükmemesi! bu silinerek'mi olur veya gizlenirse olurmu bilmiyorum. Bu konuda yardım istiyorum.

 

[cocoa35]

Sn Necdet bey vermiş olduğunuz kod'ları gizleme şeklinde nasıl dönüştürülür?

 

[Necdet]

Merhaba,

Kodlardaki ClearContents yerine
.EntireRow.Hidden = True
yazarsanız satırlar gizlenmiş olur.

Aslında bu tür kodları makro kaydet ile rahatlıkla oluşturup üzerinde bir kaç değişiklik yaparak son haline getirebilirsiniz.

 

[Korhan Ayhan]

@Necdet Üstadım,

Üye arkadaşlarımız tepki verince alınganlık gösteriyorlar ama daha en basit IF-END IF sorgularını bile öğrenmelerini sağlayamadığımızı görüyorum.

Hiç kimse gayret göstermiyor. Hep LEVREK isteniyor. (Ben Levrek sevdiğim için onu örnek verdim.)

Ben bu konu da epey dertliyim ve açıkçası üzülüyorum.

Saygılar.