önce yazdır sonra sil

[şehiriçi]

merhaba arkadaşlar
örnek dosyamda print sayfasındaki bilgileri önce A1:e26 aralığını yazdır
daha sonrada h1:h6 hücrelerini sil istiyorum
bunun için şöyle bir kod denedim ama olmadı
sub yazdır ()
dim sh as worksheet
set sh = sheets ("print")
sh.pagesetup.printarea="print!a1:e26"
sh.printout
range("h1,h2,h3,h4,h5,h6").select
selection.clear contents
doğru kod için yardımlarınızı rica ediyorum

 

[ÖmerBey]

Kodunuzda bir hata göremedim...

Sub yazdır()
Dim sh As Worksheet
Set sh = Sheets("print")
sh.PageSetup.PrintArea = "print!a1:e26"
sh.PrintOut
Range("h1,h2,h3,h4,h5,h6").Select
Selection.ClearContents
End Sub

 

[şehiriçi]

ben hatamı buldum .clear contents diye yazmışım oysa bitişik clearcontents olunca istediğim gerçekleşti ilgine teşekkür ederim