DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Range("A5,C8,E10").Select olarak değiştirin.Sub Makro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A5").Select
Selection.ClearContents
End Sub
bu makroda A5,C8,E10 hücrelerinde yazdırdıktan boşalması için nasıl bir eklem yapmam gerekecek