Tanımlı Değer Kadar Etiket Basma Yardım!!!

[baykan_m]

Merhaba Arkadaşlar,

Ben yazdığım listenin tamamını etiket olarak basacağım. Bazı etiketleri dosyada yer alan "Paket Sayısı" sütununa yazılmış olan değer kadar sayfa2 ye yazdırmak istiyorum. Yani A2 satırında yer alan değerleri "Paket Sayısı" sütununda 3 yazdığı için 3 kez sayfa2 de yer alan formata göre yazdırmak istiyorum. Dosya içerisinde de açıklamaya çalıştım umarım anlaşılmıştır. Çok uğraştım ancak başaramadım. Yardımcı olanlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Belge ekte.

 

[baykan_m]

Çok teşekkürler güzel olmuş Ömer Bey ellerinize sağlık.

 

[Ömer BARAN]

Kolay gelsin.

 

[Necdet]

Merhaba,

Makrolu seçenek olsun.

Kodları bir modüle kopyalayıp deneyiniz.

Sub EtiketHazırla()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        i   As Long, _
        j   As Long, _
        k   As Integer, _
        s   As Integer, _
        t   As String
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    s2.Columns("A:B").ClearContents

    j = 1
    
    For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
    
        t = s1.Cells(i, "A") & Chr(10) & _
            s1.Cells(i, "B") & Chr(10) & _
            s1.Cells(i, "C") & Chr(10) & _
            s1.Cells(i, "D") & Chr(10) & _
            s1.Cells(i, "E") & Chr(10) & _
            s1.Cells(i, "F") & Chr(10) & _
            s1.Cells(i, "G")
        
        For k = 1 To s1.Cells(i, "G")
            s = s + 1
            If s > 2 Then
                j = j + 1
                s = 1
            End If
            s2.Cells(j, s) = t
        Next k
        
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[baykan_m]

Necdet Bey çok teşekkür ederim buda çok güzel olmuş. Ancak bunda paket sayısı (G sütunu) 1 olanı hiç yazdırmamış, paket sayısı 1 ise 1 kez etiket yazması gerekiyor. Bunun için kodda nasıl bir değişiklik yapmam gerekiyor acaba?

 

[Necdet]

G sütununu zaten kontrol ediyor. Denedim doğru çalışıyor, siz nerede takıldınız?

 

[baykan_m]

G sütununda en sonda yer alan MEŞE 5549 ürünün paket sayısı 1. Ancak sayfa 2 de bu ürünü yazmamış bunun dışında hepsi doğru Necdet Bey.

 

[Necdet]

Merhaba,

G sütununda 1 gibi görünen değer 0,5. Dolayısıyla döngü oluşmuyor. Formülünüzü düzeltmeniz halinde çalışacaktır.

=EĞER(H2<2;1;H2/2)

Formülünüzü bu şekilde oluşturun.

 

[baykan_m]

Normalde Paket Sayısı, Adet sayısının yarısı kadar olması gerekiyor ancak bazı durumlarda 1 adet iade olduğuda oluyor ondan dolayı o şekilde formül yazdım 1 görünsün diye. Kodların 1den düşük olanı 1 görmesi için ne yapmam gerekiyor peki?

 

[baykan_m]

Çok pardon formülü görmemişim şimdi denedim oldu çok teşekkürler emeğinize sağlık.