• DİKKAT

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

A4 sayfaya 6 lı etiket

Katılım
31 Ekim 2019
Mesajlar
92
Excel Vers. ve Dili
OFFICE PRO PLUS 2019
Merhabalar.
A4 sayfaya standart 6 lı etiket üzerine rakamlar ( örneğin ,1'den 100 e kadar ) ve o firmaya ait etiketi tüm etiketlerin üzerine yapıştırabilecek bir excel çalışması arıyorum. diyelim ki 1452 koli . Ben 1-1452 yazacağım ve tüm bu etiketlerin herbirisine 1 den 1452 ye kadar rakamlar yazılsın ve istediğim logoyu bu etiketlerin üstüne ,numaraların hemen yukarısına kendi otomatik gelsin ve ben de a4 sayfa düzenindeki 6 lı etiketlerden çıktımı kolayca alabileyim.Yardımlarınızı bekliyorum . TEŞEKKÜR EDERİM :)
Örnek bir sayfa ekledim.
 

Ekli dosyalar

@Asri beyin böyle bir çalışması vardı diye hatırlıyorum.
 
tüm yazılarına baktım ama bulamadım hocam.Belki başka isimle yazılmıştır. Bulamadım.
 
1452 yada farklı bir sayıda etiket için1450/6 sayıda sayfa yapmak yerine
Tek sayfada 6 lı etiketin rakam yazılacak hücreleri bellidir. Örneğin bunlar B5- E5 - B10 - E10 - B15 - E15 olsun

C++:
Private Sub CommandButton1_Click()
    If Not IsNumeric(TextBox1.Value) Then Exit Sub
    If Not IsNumeric(TextBox2.Value) Then Exit Sub
    For Yaz = TextBox1.Value To TextBox2.Value Step 6
        Range("B5") = Yaz
        If Yaz + 1 <= TextBox2.Value Then Range("E5") = Yaz + 1 Else Range("E5").ClearContents
        If Yaz + 2 <= TextBox2.Value Then Range("B10") = Yaz + 2 Else Range("B10").ClearContents
        If Yaz + 3 <= TextBox2.Value Then Range("E10") = Yaz + 3 Else Range("E10").ClearContents
        If Yaz + 4 <= TextBox2.Value Then Range("B15") = Yaz + 4 Else Range("B15").ClearContents
        If Yaz + 5 <= TextBox2.Value Then Range("E15") = Yaz + 5 Else Range("E15").ClearContents
        Worksheets("Sayfa1").PrintOut
    Next Yaz
End Sub

Logoları EL ile 1 seferlik yaıştırabilir ya da onun içinde forumdaki örneklerden faydalanabilirsiniz.
 
@Asri beyin böyle bir çalışması vardı diye hatırlıyorum.

Bu tür programlarımda çok güncelleme ve değişiklik gerektirdiği için satışını yapmıyorum ve destek vermiyorum.
Bu program bir kaç yıl aktif olarak kullanıldı. Her firmanın ihtiyacı farklı olabiliyor.
Kodları açık, istediğiniz şekilde düzenleme yapılabilir. Web sitemden ücretsiz olarak indirebilirsiniz.

VBA şifresi dbs7676-

 
Bu tür programlarımda çok güncelleme ve değişiklik gerektirdiği için satışını yapmıyorum ve destek vermiyorum.
Bu program bir kaç yıl aktif olarak kullanıldı. Her firmanın ihtiyacı farklı olabiliyor.
Kodları açık, istediğiniz şekilde düzenleme yapılabilir. Web sitemden ücretsiz olarak indirebilirsiniz.

VBA şifresi dbs7676-

ÇOK TEŞEKKÜRLER .İYİ ÇAŞLIŞMALAR.
 
Merhaba,

Bu tür etiket dökümlerinde Word'te Adres Mektup Birleştirmeyi kullanmanızı öneririm.
Öğrenmek biraz zahmetlidir ama öğrendikten sonra her türlü etiket biçimini rahatlıkla kullanabilirsiniz.

Tıkla ve Açıklamaları Oku
 
Son düzenleme:
Bundaki amacım kolileme numaralarını ürün bilgisini ve ürün logosunu topluca verebilmekti. tam istediğim gibi değil . Manuel yapacağım anlaşılan. Teşekkür ederim.
 
Geri
Üst