sayfaya gitmeden oradaki verileri temizlemek

[jambow]

sayfaya gitmeden oradaki verileri temizleme imkanımız varmı aşağıdaki kod temizliyor ama temizlenecek sayfaya gidiyor öyle temizliyor . yardımcı olanlara şimdiden teşekkürler

Sub fulltemizle()
YesNo = MsgBox("Günlük satılan ürünlerin kaydedildiği bu sayfayı komple temizletyeceğim.TEMİZLEYEYİMMİ?", vbYesNo + vbCritical, "Onaylıyormusun")
Select Case YesNo
Case vbYes

Sheets("full").Select
    Range("A6:j65536").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-81
    Range("A6").Select
    
Case vbNo
MsgBox "Vazgeçtin.", vbMsgBoxSetForeground
End Select
End Sub

 

[Ömer]

Sub fulltemizle()
YesNo = MsgBox("Günlük satılan ürünlerin kaydedildiği bu sayfayı komple temizletyeceğim.TEMİZLEYEYİMMİ?", vbYesNo + vbCritical, "Onaylıyormusun")
Select Case YesNo
Case vbYes
Sheets("full").Range("A6:j65536").ClearContents
    ActiveWindow.SmallScroll Down:=-81
    
Case vbNo
MsgBox "Vazgeçtin.", vbMsgBoxSetForeground
End Select
End Sub

Bu şekilde deneyiniz..

.

 

[jambow]

çok teşekkürler