VBA Satır silme

[SKBR]

Herkese merhaba,

Bir excel dosyasında hücre birleştirme, metin kaydırma bulunmaktadır. Ben bu hücre birleştirmeyi ve metin kaydırmaları ortadan kaldırarak ilk ilk 5 satırı ve 7. satırı silmek istiyorum. Aslında kodlamayı yaptım. Çalışıyor da. Sıkıntım şu 4. satırı görmüyor ve silmiyor. Sebebini anlayamıyorum. Yazdığım kod şu şekilde.

Sub Ayır()
Cells.MergeCells = False
With Selection

.WrapText = False
End With

Range("A1:Y1").Select
    Selection.Delete Shift:=xlUp
Range("A2:Y2").Select
    Selection.Delete Shift:=xlUp
Range("A3:Y3").Select
    Selection.Delete Shift:=xlUp
    Range("A4:Y4").Select
    Selection.Delete Shift:=xlUp
Range("A5:Y5").Select
    Selection.Delete Shift:=xlUp

Range("A7:Y7").Select
    Selection.Delete Shift:=xlUp
End Sub

Örnek dosya linki bırakıyorum. "Silinecek" diye belirttiğim satırın altından itibaren rapora dair fazlaca veri var. Ben sadeece yapmak istediğim işleme ait olan kısımları dosyada gösterdim.
https://we.tl/t-Jl6mHe4OUn


Yardımlarınız için şimdiden çok teşekkür ederim.

 

[muratboz06]

Deneyiniz.

Sub Ayır()
    Cells.MergeCells = False
    Cells.WrapText = False
    Rows(7).EntireRow.Delete
    Rows("1:5").EntireRow.Delete
End Sub

Excel dosyanızda
"Yeşil ile belirttiğim alanda metin kaydırma var. Bazı hücrelerde başlık çıkmıyor. Bu alanlardan mesela birincinin adı 1 olsun, ikincinin 2 olsun." dediğiniz kısmı anlamadım.

 

[SKBR]

Deneyiniz.

Sub Ayır()
    Cells.MergeCells = False
    Cells.WrapText = False
    Rows(7).EntireRow.Delete
    Rows("1:5").EntireRow.Delete
End Sub

Excel dosyanızda
"Yeşil ile belirttiğim alanda metin kaydırma var. Bazı hücrelerde başlık çıkmıyor. Bu alanlardan mesela birincinin adı 1 olsun, ikincinin 2 olsun." dediğiniz kısmı anlamadım.

Kodlar çalışıyor gibi görünüyor teşekkür ederim. Benim yazdığım kodlardaki sorun nedir peki?
a1 hücresinin boş olduğunu düşünelim. a1 hücresine örneğin "Artı" nasıl yazdırabilirim demek istemiştim.

 

[SKBR]

Hücreye yazı yazdırmayı hallettim. Size bir sorum daha olacak. Bu işlemleri yaptıktan sonra excelde bulunan diğer bir sayfayı silmek istiyorum. Bu konuda yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Silme işlemlerinde satır kayması olur. Bu sebeple sıkıntı yaşamışsınızdır.

 

[muratboz06]

Örnek.

Sub Ayır()
    Cells.MergeCells = False
    Cells.WrapText = False
    Rows(7).EntireRow.Delete
    Rows("1:5").EntireRow.Delete
    Range("A1") = "Artı"
    Range("B1") = "Eksi"
    Range("C1") = "Çarp"
    Range("D1") = "Böl"  'bu son dört satırdaki kodu çoğaltarak içine istediğiniz değeri yazdırabilirsiniz.
End Sub

 

[SKBR]

Örnek.

Sub Ayır()
    Cells.MergeCells = False
    Cells.WrapText = False
    Rows(7).EntireRow.Delete
    Rows("1:5").EntireRow.Delete
    Range("A1") = "Artı"
    Range("B1") = "Eksi"
    Range("C1") = "Çarp"
    Range("D1") = "Böl"  'bu son dört satırdaki kodu çoğaltarak içine istediğiniz değeri yazdırabilirsiniz.
End Sub

Çok teşekkür ederim.