veri çağırıp etiket yazdırma

[vol1237]

Arkadaşlar kolay gelsin. Sorunum şöyle:

Bazı dosyaların üzerine yapıştırkam için a4 boyutunda kağıt üzerinde çıkartma etiketlerim olacak. Bu etiketlere yaklaşık on bin adet verinin aynı sicil numarasına denk gelenlerinin verileri etiketlerin çeşitli yerlerine yazıdırılacak. Bu verileri tümünü tek bir a4 formu üzerine hazırlanmış etikete sırayla nasıl çağırtıp yazdırabilirim?

Daha anlaşılır olması açısından excell ve ekran görüntüleri ekledim. Konu çok acil yarına kullanıma hazır olması lazım. Çok acil...

Not yazdırmayı kontrollü bir şekilde yaptırmak istiyorum. Birden on bin veriyi çağırıp yazdırmasın

Acil yardımlarınızı bekliyorum. Saygılar...



http://s3.dosya.tc/server6/j84ak3/YAZDIRMA_ALANI.jpg.html

http://s3.dosya.tc/server6/sbvdkq/KAYNAK.jpg.html

http://s3.dosya.tc/server6/pnv2xg/havuz_calisma.xlsx.html

 

[Ömer BARAN]

Merhaba.
İşinizi göreccek şey M.Word programında ADRES-MEKTUP BİRLEŞTİRME işlemine uygun gibi görünüyor. Bu konuyu araştırmanızı öneririm.
Mantık şu şekilde; değişken sayısı kadar (adı soyadı, terih, no gibi) sütunu olan bir tablo oluşturuyorsunuz ki bu belge veri kaynağı oluyor.
Bir de yazıcıdan alacağınız asıl belge örneğini hazırlıyorsunuz.
Bir düğmeye tıklama ile veri kaynağınızın her bir satırındaki veriler, asıl belgenizde yerine koyulup yazıcıdan alabiliyorsunuz.

Ayrıca, resim yerine örnek belge eklerseniz, başka yardım/destek alma ihtimalinizi artırırsınız diye düşünüyorum.

 

[vol1237]

Ömer bey ornek dosya ekte var. Sanırım bahsettiğiniz konuya gore bu biraz daha karisik. Farklı birkaç koşul var veri çağırması için.

 

[isyankarzarar]

LÜTFENNN ACİİİLLLL YARDIMMM

MERHABALAR SAYIN HOCALARIM
excel de stok takibi yapmakta olduğum bir tabloda
L sütununda her hangi bir satıra her hangi bir değer girince 1 satır boşluk bırakan bu formülü yazmıştınız çalıştı
ancak
1-değer yazdığım hücreyi silince eklenen satırın silinmesi için ne yapmam gerekli
2-diğer bazı sütunlardaki S W X Z gibi var olan formüllerim eklenen satırda olmuyor ne yapmam gerekli

şimdiden teşekkürler...


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Insert shift:=xlDown
Application.EnableEvents = True

 

[vol1237]

Konuyla ilgili yardımcı olabilecek varmı arkadaşlar?

 

[vol1237]

sevgili admin arkadaşlar ve üstadlar.. yardım bekliyorumm

 

[vol1237]

vallahi aşk olsun bir yetkili arkadaşta çıkıp yardımcı olmadı bu başlıkta...

 

[Ömer BARAN]

Merhaba.
Ekteki belgeye BURADAN ulaşabilirsiniz.

Test edip sonucunu bildiriniz.
.