• DİKKAT

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

Excelde Etiket Yapmak

Katılım
13 Eylül 2006
Mesajlar
7
Excel Vers. ve Dili
Excel 2003
Selam arkadaşlar ben müşterilerime kart yollıcam exel de şirket ünvanı adresi ve yetkisilisi var bunları etikette bastırıp çıktı almak istiyorum bunu nasıl yapabilirim?

Şirket Ünvanı:..............
Yetkilisi:..............
Adresi:............
 
Şimdi siz diyorsunuz ki benim elimde hazır veriler var, bu verileri kullanarak bir kartvizit sayfasına 3000 farklı bilgiyi taşıyıp hepsini bir kerede yazdırayım.
Bu mudur?

Eğer öyle ise bu makro ile çözülebilir. Bu da beni aşar ama bikaç deneme yapıyım, belki beceririm:)
 
Verilerinizin ve etiket sayfasının (Bir sayfada kaç tane var, yan yana, alt alta) örneğini eklerseniz, hazırlanabilir.
 
Baskıda kullanacağınız etiket tipi nasıl, yanyana kaç tane, alt alta kaç tane, yazdırılacakları nasıl belirleyeceksiniz, tümünü mü yazdıracaksınız?
 
3 tane yan yana 8 tane alt alta etiket var ölçüleri 64x34 mm
 
Ekteki örneği inceleyin, sayfa2 de kenarlıkları kaldırın, satır ve sütun uzunluklarını etiketinize göre ayarların. Sayfa1 de A sütununda * olarak işaretlediğiniz firmaların etiket dökümünü alabilirsiniz.
 
etiket ve liste

arkadaşlar
ekteki dosya ile ilgilenirmisiniz

sorunumla ilgili kitapta bulunan liste sayfasına
http://www.excel.web.tr/showthread.php?t=19647 linkteki 8 nolu mesajda bulunan mesudiye52 nin formülü
etiket sayfasına ise: yine bu forum sayfasındaki 15 nolu veyselemre nin formülü nasıl eklenebilir bir türlü uygulayamadım rüyalarımda sayıklıyormuşum

Not: ekteki kitap açılınca ilk 3 sayfada değişiklik yapılmaması renkli sekmesi olan liste ve etiket sayfalarıyla ilgilenilmesi
sevgilerle
 
Etiket sayfanızı 2*6 olarak ayarladım. Firmalar sayfasında E sütununda * koyduğunuz firmalara etiket yazdırır.
 
ufak bir sorun var

kardeş ellerine sağlık istediğim buydu
darısı liste sayfasına
aslında aynı olay oradada uygulanabilir değilmi?
sevgilerle
 
Son düzenleme:
For x = 1 To UBound(adres) Step 10
Satırı aşağıdaki şekilde düzeltin.

For x = 1 To UBound(adres) Step 12
 
Geri
Üst