A4 sayfaya 6 lı etiket

Katılım
31 Ekim 2019
Mesajlar
92
Excel Vers. ve Dili
OFFICE PRO PLUS 2019
Altın Üyelik Bitiş Tarihi
07-01-2023
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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,329
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
@Asri beyin böyle bir çalışması vardı diye hatırlıyorum.
 
Katılım
31 Ekim 2019
Mesajlar
92
Excel Vers. ve Dili
OFFICE PRO PLUS 2019
Altın Üyelik Bitiş Tarihi
07-01-2023
tüm yazılarına baktım ama bulamadım hocam.Belki başka isimle yazılmıştır. Bulamadım.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
 
Katılım
24 Nisan 2005
Mesajlar
3,672
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
@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-

 
Katılım
31 Ekim 2019
Mesajlar
92
Excel Vers. ve Dili
OFFICE PRO PLUS 2019
Altın Üyelik Bitiş Tarihi
07-01-2023
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.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,375
Excel Vers. ve Dili
Ofis 365 Türkçe
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:
Katılım
31 Ekim 2019
Mesajlar
92
Excel Vers. ve Dili
OFFICE PRO PLUS 2019
Altın Üyelik Bitiş Tarihi
07-01-2023
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.
 
Üst