Etiket Basma Programı..

[izomer]

Değerli Excel Web Ailesine selamlar.

Ben pratik bir etiket basma şablonu hazırladım..

normalde 1000 e yakın carim var. örnekte Ben 3 tanesini sayfa 2 ye yerleştirdim. sayfa-1 de K2 - R2 arasındaki veri doğrulamalar seçildiğinde metin kutularına sayfa 2 deki bilgileri yazsın istiyorum..Veri doğrulamada TEMİZLE seçildiğinde ise o metin kutusunu temizlesin istiyorum..

kısaca Ekteki örnekte 8 tane metin kutusu (etiket) ve onların içini doldurmasını istediğim 8 veri doğrulama hücresi var.

Böyle bir şey makroda mevcut ise gerçekten kargo işlerinden bayağı tasarruf sağlamış olacağım )..Aradım ama bulamadım böyle enteresan birşeyi

Saygılarımla..Dosyam ektedir..

 

[Ömer BARAN]

Merhaba.
Ekteki belgeyi test ediniz.

 

[hlojan]

Dosyanız ektedir.

 

[izomer]

Ömer Baran hocam Resmen birebir yapmışınız valla helal olsun..Süper çalışıyor..

Hlojan arkadaşımda ayrı ekranlarda derli toplu ve metin kutusuz yapmış onunkide çalışıyor..metin kutusuz alternatif bir çalışma..Etiket basma sayfasında veri doğrulamaları koymayı unutmuş birde A4 e uyumsuzdu onlarıda ben düzelttim ekte hlojanın dosyasını koydum faydalanıcak arkadaşlar olur belki diye..

Çok Çok teşekkür ederim..Kargocular korkun artık benden

yolunuz açık olsun

Allah razı olsunçok işime yaradı.

 

[Ömer BARAN]

Ömer Baran hocam Resmen birebir yapmışınız valla helal olsun..Süper çalışıyor..
.................
Çok Çok teşekkür ederim...........

Kendi adıma; "Estağfurullah, önemli olan ihtiyacın görülmesi" diyorum.

Tarz olarak çok elzem olmadığı sürece belge sahibinin oluşturduğu yapıya dokunmam,
zira "mutlaka düşünülerek tasarlanmıştır" diye düşünürüm ve mevcut yapıya göre çözüm önerisinde bulunurum.

Diğer tarzda da beis yok elbette; üçüncü gözle bakarak sayfa tasarımına ilişkin alternatif sağlar.

İyi günler dilerim.

 

[izomer]

Sizde saolun hocam. hocam son bişi daha sorcam..Adres ve Tel başklıkarını yazmasını istemeyenler için (temizle seçeneği olmayan) tek butonla tüm metin kutularını temizleyen bişey daha olabilirmi..

 

[Ömer BARAN]

Etiket sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLE seçildiğinde açılan VBA
ekranında sağ tarafta yer alan kodların sondan üç-dördüncü satırlarındaki aşağıda kırmızı
olarak renklendirdiğim kısımlar silinirse "Adres: " ve "Tel: " şeklindeki başlıklar kaldırılmış olur.

[SIZE="2"]    .TextFrame2.TextRange.Characters.Text = isim & Chr(13) & Chr(13) & _
    şirket & Chr(13) & Chr(13) [COLOR="Red"][B]& "Adres: "[/B][/COLOR] & adres & Chr(13) & Chr(13) [COLOR="red"][B]& "Tel: "[/B][/COLOR] & tel[/SIZE]

 

[izomer]

Eyw hocam ..tamamdır çalışıyor o haliylede..herkese hayırlı olsun..