BoŞ Satirlari Sİlme Ve Sİlİnen Satir Sayisi Kadar BaŞka Yere Ekleme

[katip16487]

Merhaba arkadaşlar,
Benim bir excel çalışmam var ve sizin yardımınıza ihtiyacım var.

Sayfamın 16 satırı ile 25. satırı arasında diğer bir sayfadan veri aktarımı alan bir tablom mevcut. Ancak veri aktarımını aldığı sayfada aktaracağı hücre bilgisi boş olduğu zaman satırı silmesini ve sildiği satır kadar da 29. satırdan sonraya eklemesini istiyorum.

İşlemimi ÇIKTI alacağım sayfanın bozulmaması için öncelikle ÇIKTI sayfasından bir kopya alıyorum. Daha sonra satırları siliyorum ve yazdırıyorum.

Sizlerden tam isteğim SATIR SİLME İŞLEMİNDEN SONRA YAZDIRMADAN ÖNCE SİLDİĞİ SATIR SAYISI KADAR 29. SATIRDAN SONRAYA EKLEME YAPMASINI SAĞLAYABİLECEĞİM BİR MAKRO VARMI.

Ekli olarak gönderdiğim dosyamda tüm işlemler mevcut.
VERİ GİRME SAYFASINDA B12, B14, B17, B18, B19 hücrelerinin boş olma ihtimali bulunuyor.
Yardımlarınız için şimdiden teşekkürler.
Dosyada hazırladığım HERSEY2 isimli makroma SATIR SİLME EYLEMİNDEN SONRA SATIR EKLEME EYLEMİNİ EKLEMEK İSTİYORUM.
Saygılarımla...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub HERSEY2()
    Sheets("SARF KARARI").Select
    Sheets("SARF KARARI").Copy After:=Sheets(3)
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    For a = 20 To 12 Step -1
    If Cells(a, "a") = "" Then
    d = d + 1
    Rows(29).Insert Shift:=xlDown
    Rows(a).EntireRow.Delete xlShiftUp
    End If
    Next
    Application.ScreenUpdating = False
    Sheets("SARF KARARI").PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Sheets("SARF KARARI (2)").Delete
    Sheets("VERİ GİRME").Select
    Range("B3:D3").Select
End Sub

 

[katip16487]

Satır silme işlemini yapmıyor...

 

[katip16487]

Daha farklı bir yardım isteyeyim.
Örneğin,
SARF KARARI sayfasında işlem yaptığım sırada,
VERİ GİRME sayfasındaki B15 hücresi boş ise SARF KARARI sayfasında 29. satırdan sonraya 1 satır ekle, dolu ise aynen kalsın
şeklinde bir makro var ise bu şekilde de işlemimi yapma imkanım olur...

 

[Levent Menteşoğlu]

Satır silme işlemini yapmıyor...

Satır silme işlemini eklenen yeni sayfada yapıyor.

 

[katip16487]

Benim komutum satırları sildikten sonra yazdırmayı da içeriyor. Ancak aldığım çıktıda bu şekilde bir silinme yok.

 

[Levent Menteşoğlu]

Aşağıdaki gibi denermisiniz.

[LEFT]Sub HERSEY2()
    Sheets("SARF KARARI").Select
    Sheets("SARF KARARI").Copy After:=Sheets(3)
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    For a = 20 To 12 Step -1
    If  Sheets("SARF KARARI").Cells(a, "a") = "" Then
    d = d + 1
     Sheets("SARF KARARI").Rows(29).Insert Shift:=xlDown
     Sheets("SARF KARARI").Rows(a).EntireRow.Delete xlShiftUp
    End If
    Next
    Application.ScreenUpdating = False
    Sheets("SARF KARARI").PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Sheets("SARF KARARI (2)").Delete
    Sheets("VERİ GİRME").Select
    Range("B3:D3").Select
End Sub

[/LEFT]