• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

liste satırı yazdırma

Z

zelheli

Katılım
12 Nisan 2011
Mesajlar
44
Excel Vers. ve Dili
2013
türkçe
excel de hazırlanmışbir sınıf listesi var. bu listede öğrencinin tel, sınıf, okul gibi bilgileri var.
bu bilgileri 2. sayfada bir tablo hazırlayıp yazıcıdan matbu evrak üstüne yazdırmak istiyorum.
ama bu listedeki sadece bir satır için olacak. yani diyelimki 1. satırdaki öğrencinin bilgileri bir butona tıklayınca yazıcıdan o bilgiler matbu evrak üstüne yazılacak.
başka bir butona tıklayınca yada aynı butona tıklayınca diyelimki 10. öğrenci seçilmiş ise bu sefer onun bilgileri yazdırılacak.
biraz formüllerle denemeye çalıştım ama liste kabarık olunda ve her öğrenci için tablo hazırlamak gerekince zaman alıyor.
bu konuda yardımcı olursanız sevinirim.
 
sayfa 1 de liste var.
sayfa 2 de de tablo.
listede en başta buton yaptım tabloyu yazdırması için için ama çok uzun sürecek gibi.
tek bir tabloda istediğim satırı yazdırabilir miyim.
 

Ekli dosyalar

birinci satır'ı aktarmak için
Kod: 
Sub aktar1()
Sheets("Sayfa2").Range("M4") = Sheets("Sayfa1").Range("E16").Text
Sheets("Sayfa2").Range("M5") = Sheets("Sayfa1").Range("I16").Text
Sheets("Sayfa2").Range("M6") = Sheets("Sayfa1").Range("M16").Text
Sheets("Sayfa2").Range("M9") = Sheets("Sayfa1").Range("Y8").Text
Sheets("Sayfa2").Range("S9") = Sheets("Sayfa1").Range("Y10").Text
Sheets("Sayfa2").Range("M10") = Sheets("Sayfa1").Range("J8").Text
Sheets("Sayfa2").Range("X10") = Sheets("Sayfa1").Range("J10").Text
Sheets("Sayfa2").Range("M11") = Sheets("Sayfa1").Range("V16").Text
Sheets("Sayfa2").Range("X11") = Sheets("Sayfa1").Range("Z16").Text
End Sub
bu kodu bir module kopyalayınız.
ve 1. satır'ın makrosunu'da
Kod: 
Private Sub CommandButton1_Click()
Call aktar1
Sheets("Sayfa2").PageSetup.PrintArea = "Sayfa2!A1:AN12"
Sheets("Sayfa2").PrintOut
End Sub
bununla değiştirin. istediğiniz bu mu acaba_?
 
üstad makro olayını anlayamadım.
ayrıca 1. satırı aktardıktan sonra diyelimki 2. satırı yazdırmak istiyorsak nasıl olcak.
her satırın başındaki butona o satırı tablo şekilde yazdıracak bir buton yapılamaz mı?
eğer sizin için zahmet olmayacaksa örnekte uygulayabilir misiniz?
 
Son düzenleme:
zelheli' Alıntı:
üstad makro olayını anlayamadım.
ayrıca 1. satırı aktardıktan sonra diyelimki 2. satırı yazdırmak istiyorsak nasıl olcak.
her satırın başındaki butona o satırı tablo şekilde yazdıracak bir buton yapılamaz mı?
eğer sizin için zahmet olmayacaksa örnekte uygulayabilir misiniz?
Genişletmek için tıkla ...

merhaba
ilk 10'u ben yaptım
diğerlerini siz ayarlayınız
 

Ekli dosyalar

ihsan hocam. örneği şimdi inceleyebildim.
öncelikle teşekkür ederim.
anladığım kadarıyla sayfa1 deki her satır için sayfa2 de bir tablo oluşturmak gerekiyor.
ben bunu saya2 deki tablonun hücrelerine "=sayfa1!???" formülü ile denedim ama dediğim gibi her satır için tablo yapmak gerekiyor.
bide şuan liste tek sayfa. liste sayısı artıkça iş dahada karışacak.
acaba excell de bunu tek bir tabloda yapmak mümkün değilmi.
yani sayfa2 de sadece bir tablo olacak ve sayfa1 de hangi satırın başındaki butona tıklanırsa onu sayfa2 deki o tek tabloda boşlukları doldurarak yazdıracak.
 
zelheli' Alıntı:
ihsan hocam. örneği şimdi inceleyebildim.
öncelikle teşekkür ederim.
anladığım kadarıyla sayfa1 deki her satır için sayfa2 de bir tablo oluşturmak gerekiyor.
ben bunu saya2 deki tablonun hücrelerine "=sayfa1!???" formülü ile denedim ama dediğim gibi her satır için tablo yapmak gerekiyor.
bide şuan liste tek sayfa. liste sayısı artıkça iş dahada karışacak.
acaba excell de bunu tek bir tabloda yapmak mümkün değilmi.
yani sayfa2 de sadece bir tablo olacak ve sayfa1 de hangi satırın başındaki butona tıklanırsa onu sayfa2 deki o tek tabloda boşlukları doldurarak yazdıracak.
Genişletmek için tıkla ...

merhaba
Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Range("M4") = Sheets("Sayfa1").Range("[COLOR="Red"]E16[/COLOR]").Text
Sheets("Sayfa2").Range("M5") = Sheets("Sayfa1").Range("[COLOR="red"]I16[/COLOR]").Text
Sheets("Sayfa2").Range("M6") = Sheets("Sayfa1").Range("[COLOR="red"]M16[/COLOR]").Text
Sheets("Sayfa2").Range("M9") = Sheets("Sayfa1").Range("[COLOR="red"]Y8[/COLOR]").Text
Sheets("Sayfa2").Range("S9") = Sheets("Sayfa1").Range("[COLOR="red"]Y10[/COLOR]").Text
Sheets("Sayfa2").Range("M10") = Sheets("Sayfa1").Range("[COLOR="red"]J8[/COLOR]").Text
Sheets("Sayfa2").Range("X10") = Sheets("Sayfa1").Range("[COLOR="red"]J10[/COLOR]").Text
Sheets("Sayfa2").Range("M11") = Sheets("Sayfa1").Range("[COLOR="red"]V16[/COLOR]").Text
Sheets("Sayfa2").Range("X11") = Sheets("Sayfa1").Range("[COLOR="red"]Z16[/COLOR]").Text
Sheets("Sayfa2").PageSetup.PrintArea = "Sayfa2!A1:AN12"
Sheets("Sayfa2").PrintOut
End Sub

bu kod'u commanbutton1'deki kodla değiştirin.
commanbutton2'ye ayarlamak için lütfen kırmızı yerleri ona göre ayarlayın.
 
hocam bierş eyda soracam.
butonu başka sayfaya nasıl koyabiliriz.
 
zelheli' Alıntı:
hocam bierş eyda soracam.
butonu başka sayfaya nasıl koyabiliriz.
Genişletmek için tıkla ...

bunu anlamadım ne yapacağınızı
buton başka sayfa'da mı çalışsın istiyorsunuz.
doğru ise sayfaya butonu oluşturun sonra sayfaki kodu o butonun altına yapıştırın.
Kod: 
[COLOR="Red"]pravite sub commanbutton1_click()
buraya
end sub[/COLOR]
bu iki kodun arasındaki kodu kopyalıyarak gene aynı iki kodun arasına yapıştırın.
 
yapmaya çalıştığım şu aslında
diyelim ki sayfa1 de bir buton var.
bu butona basınca sayfa2 deki a1 be b1 hücrelerindeki veriyi aşağıya doğru 10. satırdan sonraki a ve b sütunlarına sırasıyla kopyalaması.
yada mümkün olursa sayfa1 deki bir satırı sayfa2 deki bir listeye eklemesi.

örnekte anlatmaya çalıştım.
 

Ekli dosyalar

zelheli' Alıntı:
yapmaya çalıştığım şu aslında
diyelim ki sayfa1 de bir buton var.
bu butona basınca sayfa2 deki a1 be b1 hücrelerindeki veriyi aşağıya doğru 10. satırdan sonraki a ve b sütunlarına sırasıyla kopyalaması.
yada mümkün olursa sayfa1 deki bir satırı sayfa2 deki bir listeye eklemesi.

örnekte anlatmaya çalıştım.
Genişletmek için tıkla ...

eki inceler misiniz
 

Ekli dosyalar

teşekkür ederim hocam.
uzun zamandır nete giremedim.
çözümünüzü yeni gördüm.
emeğiniz için eşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst