Soru makro ile sayfa sonu önizleme

#1
merhaba ,

ekteki dosyada sayfa sonu önizleme küçük boy görüntümevcut.
, mavi çizgilerden tuttuktan sonra 48 satır aşağıya inmesini istiyorum.bunu makro ya kaydediyorum ama istediğim rakam kadar tekrar etmesini istiyorum.
misal 50 yada 100 kere 48 satır aşağı inebilsin. mümkünse nasıl yapabiliriz.
 

Ekli dosyalar

#4
selam,
makro kaydet ile yaptım ama 1 sefer oluyor.bunu tekrarlasın istiyorum. 49. satırdan tutup imleçi 98.satıra genişlettim.49 . satırdan başlıyacak , ben her seferinde istediğim kadar tekrarlamasını istersem , mesela 3 kere 49 satır aşağı in gibi olabilir mi.. whatsptan video gönderdim buraya boyut büyük geldi.
 
#6
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$98" 2. sayfa butonu
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$147" 3.sayfa
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$196" 4. sayfa
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$245" 5. sayfa

şeklinde her bir satır kod için, butonlara makro ekliyorum.o butonlara tıklıyorum. sayfa eklemiş oluyor.
ayrı ayrı kod ve buton eklemektense , bir buton ekleyip direk rakam yazayım o rakam kadar sayfa önizlesin göstersin.
 

metehan8001

Moderator
Yönetici
Moderatör
#7
Kod:
deger = inputbox ("Sayfa Sayısı yazınız", "sayfa sayısı yazınız")
if not isnumeric(deger) or deger = "" then Msgbox "hatalı değer girildi"  : exit sub
Sat = deger * 49
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & sat
 
Son düzenleme:
#8
satir
yazan kısımı değiştiriyorum. rakam giriyorum. 10045. satır nosunu gidiyorum.
makroyu çalıştırıyorum msj kutusu çıkıyor.herhangi bir rakam girdiğimde , direk 10045 satıra atıyor .oda 205. sayfaya denk geliyor.
 
#12
üstad buda aynı gibi duruyor değişen pek bir şey olmadı.yine kutu açılıyor ama kutuya girdiğim rakam değeri pek değişiklik göstermiyor.kutuya hangi rakam yazılırsa o satıra mı gitmesi gerekiyor bu kodlarda üstad?
 
#14
doğru anlamışım evet ama üstad.yerinde sayıyor.ben şöyle yapıyorum.ekliyorum.
sub ()
deger = InputBox("Sayfa Sayısı yazınız", "sayfa sayısı yazınız")
If Not IsNumeric(deger) Or deger = "" Then MsgBox "hatalı değer girildi": Exit Sub
sat = deger * 49
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & sat
end

bu durumda çalışıyor.ama şu şekilde olmuyor..resimdeki gibi sayfa sonu önizleme, mavi çizgi benim için ölçüt yani 49 satırda bir ilerlesin.
bu kodları şu şekilde revize edilebilir mi;
49. satırdaki mavi çizgiden tutup , kutuya 2 yazıcam. mavi çizgi 98.satıra sayfa sonu önizlemeye gidicek
3 yazıcam , 147.satıra sayfa sonu önizleme olarak göstersin gibi :(
 
Üst