- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,077
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 01-03-2023
Değerli arkadaşlar; isteğimi ekli taploda belirttim yardımlarınız için teşekkürler.
Ekli dosyalar
-
33.5 KB Görüntüleme: 32
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro3()
'
' Makro3 Makro
' Makro Rahmi tarafından 29.06.2010 tarihinde kaydedildi.
'
'
Range("A1:P98").Select
ActiveWindow.SmallScroll Down:=-120
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$98"
Range("A1:P1").Select
End Sub
Sub Makro4()
'
' Makro4 Makro
' Makro Rahmi tarafından 29.06.2010 tarihinde kaydedildi.
'
'
Range("R1:BA5").Select
ActiveSheet.PageSetup.PrintArea = "$R$1:$BA$5"
Range("R1").Select
End Sub