[Yardım]  Çıktı alma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Çıktı alma

İleti#1)  Tolga1978 » 10 Oca 2020 16:00

Arkadaşlar herkese iyi günler. Küçük bir sorunum var örneğin çıktısını almak istediğimiz bir sayfanın textbox a girilen rakam ile belirleyebilirmiyiz. Yani yapmak istediğim yazdır demeden önce textbox a sayı gireceğim örneğin 17 bana sadece son 17 satırın çıktısını alacak her zaman son satırdan itibaren dikkate alacak. Yandım etmek isyteyenlere şimdiden teşekkürler.
Kullanıcı avatarı
Tolga1978
Yeni Başlamış
 
Kayıt: 15 Eyl 2019 20:45
Meslek: Reklamcılık
Yaş: 41
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

Cevap: Çıktı alma

İleti#2)  erseldemirel2 » 10 Oca 2020 18:51

Aşadağıki örnek a sütnunda gelen inputbox değerine göre satır seçip çıktı alanı hazırlar

Kod: Tümünü seç
Sub test()
tercih = InputBox("Satır Sayısı")
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$" & tercih
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 609
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çıktı alma

İleti#3)  Tolga1978 » 11 Oca 2020 11:44

Ersel bey öncelikle ilginize çok teşekkür ederim.
Vermiş olduğunuz kodları denedim fakat benim istediğim gibi değil ben doğru anlatamadım muhtemelen. Sizin vermiş olduğunuz kodlar ilk satırdan itibaren dikkate aliyor fakat ben son satırdan itibaren dikkate almasını istiyorum yani inputbox a girdiğimiz satır sayısı son satırdan geriye doğru alan seçecek örnek olarak son 20 satırı yazdır yada son 15 satırı yazdır gibi. Teşekkürler
Kullanıcı avatarı
Tolga1978
Yeni Başlamış
 
Kayıt: 15 Eyl 2019 20:45
Meslek: Reklamcılık
Yaş: 41
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

Cevap: Çıktı alma

İleti#4)  erseldemirel2 » 11 Oca 2020 11:53

şunu deneyin

Kod: Tümünü seç
Sub test()
tercih = InputBox("Satır Sayısı")
sondolu = Range("a65536").End(3).Row
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$" & sondolu - tercih & ":$A$" & sondolu
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 609
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Çıktı alma

İleti#5)  OmerFaruk72 » 11 Oca 2020 15:06

Küçük bir düzeltme yaptım. Son 10 satır istendiğinde son 11 satır olmasın diye
ActiveSheet.PageSetup.PrintArea = "$A$" & sondolu - tercih +1 & ":$A$" & sondolu

Kod: Tümünü seç
Sub test()
tercih = InputBox("Satır Sayısı")
sondolu = Range("a65536").End(3).Row
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$" & sondolu - tercih  & ":$A$" & sondolu
End Sub
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 47
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Çıktı alma

İleti#6)  Tolga1978 » 13 Oca 2020 00:08

Ersel Bey ve Ömer bey sizlere çok teşekkür ederim sorunum sizler sayesinde çözüldü. iyi çalışmalar dilerim
Kullanıcı avatarı
Tolga1978
Yeni Başlamış
 
Kayıt: 15 Eyl 2019 20:45
Meslek: Reklamcılık
Yaş: 41
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: muğla

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe