Makro ile satır silme ve liste sonu uyarısı

[excel12312]

Selamlar herkese ,

seçtiğim satırı makro ile silmek ve silinen satırın altında kalan değerleri silinen satırın boşluğunu dolduracak şekilde yukarıya taşımak istiyorum , şimdiden teşekkürler.

Yapılmak isteneni excel dosyası içinde de örneği ile açıkladım .

 

[askm]

Sub ASKM_sil()
Satir = ActiveCell.Row
Rows(Satir).Delete
End Sub

 

[Necdet]

Merhaba,

Kodları deneyiniz.

Private Sub CommandButton1_Click()

    Dim SonSat  As Integer
    
    SonSat = Cells(Rows.Count, "E").End(3).Row + 1
    
    If SonSat < 4 Then SonSat = 4
    If SonSat > 13 Then
        MsgBox "TABLO DOLU, ÖNCE BOŞALT SONRA YAZAYIM", vbCritical
        Exit Sub
    End If
    
    Range("A7:C7").Copy
    Range("E" & SonSat).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("E" & SonSat).Select
    Application.CutCopyMode = False
    
End Sub

Private Sub CommandButton2_Click()

    Application.ScreenUpdating = False
    
    Dim Bs  As Integer
    Dim Bt  As Integer
    
    Bs = Range("C14") + 3
    Range("E" & Bs & ":G" & Bs).ClearContents
    Bs = Bs + 1
    If Bs < 13 Then
        Range("E" & Bs & ":G13").Copy
        Range("E" & Bs - 1).Select
        ActiveSheet.Paste
        Range("E13:G13").ClearContents
        Range("E" & Bs - 1).Select
    End If
    
    Application.ScreenUpdating = True
    
End Sub

 

[excel12312]

Çok teşekkürler tam istediğim gibi olmuş , iyi akşamlar.