Çözüldü makro ile sayfa sonu önizleme

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
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.

yinele.jpg
 

alperduryaz

Yeni Üye
Üye
Katılım
1 Eki 2018
Mesajlar
11
Tepki puanı
6
Puanları
3
Excel Versiyonu, Dili
Bilinmiyor
Soruyu tam anlamadım makronun tekrar etmesini mi istiyorsunuz?

48 satır aşağı inmesinden ne demek istediniz?
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
PHP:
Sub dongu()
Tekrarla = 48
For i = 1 to tekrarla

' kodlarınız

Next i
End sub
 
Son düzenleme:

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
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.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Makro ile yaptığınız kodu buraya yazın, gerekli revizyonu yapalım.
 

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
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

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
PHP:
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:

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
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.
 

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
Direk bu şekilde kullanmayı denediniz mi ?. Kullandı iseniz olmayan veya hatalı olan nedir.
 

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
Şuan mobilim ama eevet denemistim olmamisti.
benden satir kısmında hata vermişti pc de iken öyle hatırlıyorum.
 

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
ü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?
 

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
doğru anlamışım evet ama üstad.yerinde sayıyor.ben şöyle yapıyorum.ekliyorum.
Kod:
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 :(
 
Moderatörün son düzenlenenleri:

metehan8001

Feyzullah - XD Yönetim
Yönetici
Forum Yöneticisi
Katılım
1 Eki 2018
Mesajlar
214
Tepki puanı
103
Puanları
43
Konum
Osmaniye
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR
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
Şuan PC başındayım ve aynen dediğiniz gibi çalışıyor hata yok.
 

wolfret

Yeni Üye
Üye
Katılım
8 Eki 2018
Mesajlar
33
Tepki puanı
2
Puanları
8
Excel Versiyonu, Dili
Bilinmiyor
tamam şuan PC de iş yerinde denedim.başarılı..sanırım kodu hatalı yerleştirdim..
üstad.başarılı..eline sağlık
 
Üst