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

katip16487

Altın Üye
Katılım
28 Haziran 2007
Mesajlar
168
Excel Vers. ve Dili
OFFİCE 2016 (Türkçe)
Altın Üyelik Bitiş Tarihi
17-03-2025
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu deneyin.

Kod:
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

Altın Üye
Katılım
28 Haziran 2007
Mesajlar
168
Excel Vers. ve Dili
OFFİCE 2016 (Türkçe)
Altın Üyelik Bitiş Tarihi
17-03-2025
Satır silme işlemini yapmıyor...
 

katip16487

Altın Üye
Katılım
28 Haziran 2007
Mesajlar
168
Excel Vers. ve Dili
OFFİCE 2016 (Türkçe)
Altın Üyelik Bitiş Tarihi
17-03-2025
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...
 

katip16487

Altın Üye
Katılım
28 Haziran 2007
Mesajlar
168
Excel Vers. ve Dili
OFFİCE 2016 (Türkçe)
Altın Üyelik Bitiş Tarihi
17-03-2025
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi denermisiniz.

Kod:
[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]
 
Üst