a:bb sütunlarının girilen en son verileri silmek

[fedeal]

userformdan sayfaya aşagıdaki kodlarla veri aktarıyorum bazen yalnış giriş yaptıgımızda degiştirmek için sayfadan silmek yerine bir buton aracılıgıyla a:bb sütunlarının en son verilerini silmek mümkünmü (bc sütununda formül oldugu için tüm satır silinmemeli)

Private Sub CommandButton1_Click()

If TextBox51.Text <> "" Then

Son_Dolu_Satir = Sheets("MASRAF").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("MASRAF").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MASRAF").Range("A:A")) + 1

 

[Mahmut Kök]

userformdan sayfaya aşagıdaki kodlarla veri aktarıyorum bazen yalnış giriş yaptıgımızda degiştirmek için sayfadan silmek yerine bir buton aracılıgıyla a:bb sütunlarının en son verilerini silmek mümkünmü (bc sütununda formül oldugu için tüm satır silinmemeli)

Private Sub CommandButton1_Click()

If TextBox51.Text <> "" Then

Son_Dolu_Satir = Sheets("MASRAF").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("MASRAF").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MASRAF").Range("A:A")) + 1

Şu şekilde deneyiniz:

[COLOR=#ff0000]sat=Sheets("MASRAF").Range("A65536").End(xlUp).Row[/COLOR]
[COLOR=#ff0000]Sheets("MASRAF").Range("A" & sat & ":bb" & sat).clearcontents[/COLOR]

 

[fedeal]

çok teşekkürler çalışmama
Private Sub CommandButton6_Click()
cvp = MsgBox("SON GİRİLENLER SİLİNECEK DEVAMMI ?", vbYesNo, " emrah ")
If cvp = vbNo Then
Unload UserForm1
Else
sat = Sheets("MASRAF").Range("A65536").End(xlUp).Row
Sheets("MASRAF").Range("A" & sat & ":bb" & sat).ClearContents
End If
End Sub
şeklinde ekledim süper oldu emeğinize sağlık