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.
Ö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.
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.
Kod:
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
https://we.tl/t-Jl6mHe4OUn
Yardımlarınız için şimdiden çok teşekkür ederim.