Listedeki bilgileri Forma aktararak hızlı print etmek

[gurayaltay]

Merhaba;
Elimde müşteri bilgileri içeren uzun bir liste ve birde her bir müşterinin bilgilerinin yazılacağı bir form mevcut. Bu formlara listemdeki her bir müşterinin tüm bilgileri formdaki ilgili alanlara aktarılarak tek tek print edilmesi gerekiyor. Her bir müşterinin bilgilerinin manuel olarak aktarılarak print alınması uzun zaman aldığından bunu otomatik hale getirmenin bir yolu mevcut mudur? Word'de bu işlemin benzeri Letter Wizard'dan yapılabiliyor. Örnek olarak bir dosya oluşturdum, bu dosyanın sheet 1 de liste sheet 2 de form mevcut. Listedeki bilgileri forma tek tek aktarılarak her sayfa print edilirken değişmesi mümkün müdür? Teşekkürler.

 

[fedeal]

Selam,ekli dosyayı inceleyin istediginiz bu olabilirmi?

 

[gurayaltay]

Evet tam olarak istediğim budur. İşlemin nasıl yapıldığını izah edebilirmisiniz elimdeki gerçek dosyaya uygulayabilmem için. Teşekkürler.

 

[fedeal]

calışmanı makrosu ekte,

Sub FDL()
Sheets("form").Select 
Range("A1:B6").Select 
For i = 2 To Sheets("liste").Range("A65536").End(xlUp).Row 
For k = 1 To 5
Cells(k + 1, 2).Value = Sheets("liste").Cells(i, k).Value
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
Next
End Sub

anlatmak birazcık güç gerçek çalışmanın bilgilerini silip(farklı kaydedip) şablon olarak eklerseniz uyarlıyalım.

 

[gurayaltay]

Sizi uğraştırıyorum ama vermiş olduğunuz kodları excel'de hangi alana yapıştıracağım bu konuda da yardım edebilirseniz sevinirim. Teşekkürler.

 

[fedeal]

alt+f11 le açılan sayfanın solunda vbaproject bölümü olacak sayfa1 satırının üzerinde sag tıklayın açılan pencereden insert- modülü seçin oluşan modülesi aç modül1'e tıkla açılan sayfaya kopyala

sonra sayfanda bir buton oluştur (otomatik şekilden herhangibi dörtgen şeklide olabilir) oluşunca sağ tıkla makro ata fdl makrosunu seç tamam.

 

[3641]

Toplu Yazdır İle Etiket Yazdırmak

Sn. Fedeal Bey
Mümkünse ÇAlışmanızı Etiket Yazdırmak İçin Kullanmak İsterim.
Sayfa1 den alınan veriler form sayfasına gelerek otomatik çıktı alınıyordu.

Mümkünse benim sizden ricam,
Sayfa1 de bulunan veriler form sayfasında 12 adet forma dağılarak çıktı almak
sıkıntı burada açığa çıkıyor ; sayfa1 200 satır form 12 adet yaklaşık 17 defa form içindeki verilerin otomatik değişerek print edilmesi gerekiyor.

Yardımcı olursanız sevinirim.
Dosya içinde açıklamaya çalıştım.

Saygılarımla,

 

[fedeal]

Sub excelweb()
Dim s, g, i, t As Long
s = 2
g = 2
    Sheets("form").Columns("A:E").ClearContents
For i = 2 To Sheets("liste").Range("A65536").End(xlUp).Row Step 2
Sheets("form").Cells(s - 1, 1).Value = "FORM" & i - 1
Sheets("form").Cells(s, 1).Value = "MÜŞTERİ NO"
Sheets("form").Cells(s + 1, 1).Value = "MÜŞTERİ ADI"
Sheets("form").Cells(s + 2, 1).Value = "ŞUBE KODU"
Sheets("form").Cells(s + 3, 1).Value = "MEVDUAT"
Sheets("form").Cells(s + 4, 1).Value = "ADRES"
Sheets("form").Cells(s, 2).Value = Sheets("liste").Cells(i, 1).Value
Sheets("form").Cells(s + 1, 2).Value = Sheets("liste").Cells(i, 2).Value
Sheets("form").Cells(s + 2, 2).Value = Sheets("liste").Cells(i, 3).Value
Sheets("form").Cells(s + 3, 2).Value = Sheets("liste").Cells(i, 4).Value
Sheets("form").Cells(s + 4, 2).Value = Sheets("liste").Cells(i, 5).Value
s = s + 7
Next
For t = 3 To Sheets("liste").Range("A65536").End(xlUp).Row Step 2
Sheets("form").Cells(g - 1, 4).Value = "FORM" & t - 1
Sheets("form").Cells(g, 4).Value = "MÜŞTERİ NO"
Sheets("form").Cells(g + 1, 4).Value = "MÜŞTERİ ADI"
Sheets("form").Cells(g + 2, 4).Value = "ŞUBE KODU"
Sheets("form").Cells(g + 3, 4).Value = "MEVDUAT"
Sheets("form").Cells(g + 4, 4).Value = "ADRES"
Sheets("form").Cells(g, 5).Value = Sheets("liste").Cells(t, 1).Value
Sheets("form").Cells(g + 1, 5).Value = Sheets("liste").Cells(t, 2).Value
Sheets("form").Cells(g + 2, 5).Value = Sheets("liste").Cells(t, 3).Value
Sheets("form").Cells(g + 3, 5).Value = Sheets("liste").Cells(t, 4).Value
Sheets("form").Cells(g + 4, 5).Value = Sheets("liste").Cells(t, 5).Value
g = g + 7
Next
Sheets("form").PageSetup.PrintArea = "$A$1:$E$" & Sheets("form").Range("A65536").End(xlUp).Row + 1
Sheets("form").PrintOut Copies:=1, Collate:=True
End Sub

Bu daha iyi oldu galiba(form sayısı fazla olsada eldeki veriler kadarını yazdırıyor.)

 

[3641]

sn. fedeal
Ellerinize Sağlık, Çok Güzel Harika Bir Çalışma Oldu.
İnanıyorumki forumda "etiket yazma programı" arayan arkadaşlar içinde ilaç olacaktır.


Saygılarımla,

 

[ser_27]

ekteki dosyayı toplu yazdırmak

merhaba ekteki dosyada bir form sayfası birde isim listesi var, isim listesi yaklaşık 110 kişi, bu isimler ve bilgileri diğer sayfadaki form a yazdırıp topluca yazıcıya nasıl verebilirim, şimdiden teşekkürler.

 

[Kaynur]

Benimde bu konu ile ilgili biraz acil olan bir problemim mevcut ekte göndermiş olduğum ücret bordrosundan bilgiler alınarak hemen yan sayfasındaki hesap pusulasına kopyalayarak yazdırmam lazım. Yardım edicek arkadaşlara şimdiden teşekkürler

 

[Ergün GÖKER]

dosyan hakında

Ser 27 daha önceleri gönderdiğin personel dosyası hakkında ki çalışmana örnek olması için gönderiyorum

 

[Ergün GÖKER]

dosyan hakkında

ser 27 dosyanı toparlamaya çalıştım kontrol et

 

[ser_27]

Teşekkürler Ergün bey

Ser 27 daha önceleri gönderdiğin personel dosyası hakkında ki çalışmana örnek olması için gönderiyorum

Ergün bey teşekkürler, yardımı 2011 yılında istemiştim, yine de dosyayı başka bir yükleme linkine verirseniz bakmak isterim. Teşekkürler

 

[aygunaygun]

merhabalar bu örneği bana gönderme şansınız varmı benimde bir veri tablom var bu tablodaki bilgileri etiket şelinde yazdırmam gerekiyor.