Yazdır ve sil makrosu

[CenTay]

Selamlar herkese, sayfanın koduna a1:j70 arasını yazdıran ve bu aralığı çizgiler de dahil silecek makro yu rica ediyorum

 

[YUSUF44]

Hücrelerdeki verilerle biçimlerin mi silinmesini istiyorsunuz yoksa hücrelerin tamamen silinip alttaki ya da sağdaki hücrelerin onların yerine mi geçmesini istiyorsunuz? İkinci seçenek ise sağdakiler mi gelecek, alttakiler mi?

 

[CenTay]

Hücrelerdeki verilerle biçimlerin mi silinmesini istiyorsunuz yoksa hücrelerin tamamen silinip alttaki ya da sağdaki hücrelerin onların yerine mi geçmesini istiyorsunuz? İkinci seçenek ise sağdakiler mi gelecek, alttakiler mi?

İlgine teşekkür ederim yusuf 44 hocam veriler ve biçimler silinecek

 

[alicimri]

Herhalde aşağıdaki kod işinizi görür.

Sub a()
Range("a1:j70").PrintOut
Range("a1:j70").Clear
End Sub

 

[Orion1]

Buyurun.

Sub sil59()
With ActiveSheet.PageSetup
    .PrintArea = "A1:J70"
End With
ActiveSheet.PrintOut
Range("A1:J70").Clear
End Sub

 

[baba]

Sadece Rakam ve Yazılar Silme Nasıl Olur? Şekillerde değişiklik yapılmaması Yani Silmesin

 

[YUSUF44]

Clear yerine ClearContents kullanabilirsiniz.

 

[CenTay]

Buyurun.

Sub sil59()
With ActiveSheet.PageSetup
    .PrintArea = "A1:J70"
End With
ActiveSheet.PrintOut
Range("A1:J70").Clear
End Sub

Orion1, yusuf44 hocam ve alicimri ye teşekkür ederim sağolun hepiniz