Soru vba ile son seçili satır ile son satır arası silme

[kalibre101]

merhabalar çalışma kitabımın
4. ve 27. sayfaları arasındaki tüm sayfalarda
son satır ve 14 satır üstü arası satırları silmek istiyorum yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_Rows()
    Dim X As Byte, Sh As Worksheet, Last_Row As Long
    
    For X = 4 To 27
        On Error Resume Next
        Set Sh = Sheets(X)
        Last_Row = 0
        Last_Row = Sh.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        On Error GoTo 0
        If Last_Row > 0 Then Sh.Range("A" & Last_Row - 13).Resize(14).EntireRow.Delete xlUp
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kalibre101]

Deneyiniz.

Option Explicit

Sub Delete_Rows()
    Dim X As Byte, Sh As Worksheet, Last_Row As Long
   
    For X = 4 To 27
        On Error Resume Next
        Set Sh = Sheets(X)
        Last_Row = 0
        Last_Row = Sh.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        On Error GoTo 0
        If Last_Row > 0 Then Sh.Range("A" & Last_Row - 13).Resize(14).EntireRow.Delete xlUp
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

teşekkür ederim emeğinize sağlık sorunsuz çalışıyor

 

[kalibre101]

teşekkür ederim emeğinize sağlık sorunsuz çalışıyor

korhan bey sizden bir ricam daha olacak
şöyle bir kodum var hata veriyor

Sub damga_yapıstır()
Dim sonsatir As Long, a As Byte
Application.ScreenUpdating = False
For a = 4 To 27
sonsatir = Sheets(a).[A1048423].End(xlUp).Row
Application.CutCopyMode = False
Sheets("damga").Rows("20:33").Copy
Sheets(a).Rows(sonsatir + 5).Paste
Next
Application.ScreenUpdating = True
End Sub

damga isimli sayfadaki (20 : 33) nolu satırları komple kopyalayıp
sayfa 4 ve 27 arasındaki sayfaların tamamına son satırdan 5 satır aşağısına yapıştırmak istiyorum yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Hangi satırda ne hatası veriyor?

 

[kalibre101]

Hangi satırda ne hatası veriyor?

Sheets(a).Rows(sonsatir + 5).Paste
satırında
object doesnt support this property or method
hatası veriyor

 

[Korhan Ayhan]

Şöyle deneme yapabilirsiniz.

Makro kaydet yöntemini kullanarak işlemi elle olması gerektiği gibi yapın sonra makro kaydını durdurun. Oluşan kodları kendi kodunuza adapte edin. Böylece yaptığınız hatayı daha net görebilirsiniz.

 

[kalibre101]

Şöyle deneme yapabilirsiniz.

Makro kaydet yöntemini kullanarak işlemi elle olması gerektiği gibi yapın sonra makro kaydını durdurun. Oluşan kodları kendi kodunuza adapte edin. Böylece yaptığınız hatayı daha net görebilirsiniz.

teşekkürler
şu şekilde çözdüm

Sub damga_yapıstır()
Dim sonsatir As Long, a As Byte
Application.ScreenUpdating = False
For a = 4 To 27
sonsatir = Sheets(a).[A1048423].End(xlUp).Row
Application.CutCopyMode = False
Sheets("damga").Rows("20:33").Copy
Sheets(a).Activate
Sheets(a).Rows(sonsatir + 5).Select
ActiveSheet.Paste
Next
Application.ScreenUpdating = True
End Sub