makro ile etiket yazmak

[guslua]

Merhaba arkadaşlar,
Makro bilgim çok yok, arkadaşlarımın yazdığı makroları uyarlayarak çözüm üretmeye çalışıyorum. bir sorum olacak.
Aşağıda linkini verdiğim örnek çalışmada kendim birşeyler yaptım. Sayfa1'de alt alta yazdığım bilgileri Sayfa2'de sırasıyla önce sola, sonra sağa, daha sonra aşağıya inip yine bir sol, bir sağ'a yazmak istiyorum. hepsini alt alt yazabildim ama sağa geçiremedim. yardımcı olabilir misiniz?



http://dosya.co/m5qfkpalncbk/ETİKET_DENEMEE.xlsm.html

 

[Macaroglu]

Merhaba;

Private Sub CommandButton1_Click()

    Dim S2 As Worksheet, i As Long, j As Long, sat As Long, sut As Byte
    
    Set S2 = Sheets("Sayfa2")

    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    
    
    sat = 1: sut = 1
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "B") > 0 Then
            For j = 1 To Cells(i, "B")
                If sut Mod 3 = 0 Then sut = 1: sat = sat + 1
                S2.Cells(sat, sut) = Cells(i, "A")
                sut = sut + 1
            Next j
        End If
    Next i
    S2.Select
    
    Application.ScreenUpdating = True
    
End Sub

Bunu bir dener misiniz?

 

[guslua]

ekte deneme yaptığım excel dosyamı tekrar gönderiyorum. A4 kağıt üzerinde 4 lü bir etiketim var. Sayfa1 deki bilgileri renklendirdiğim sırayla Sayfa2'de işaretli olan yerlere yazdırmak istiyorum.
İlginiz için teşekkür ederim

http://dosya.co/b4uo36j66ois/ETİKET_DENEMEE.xlsm.html

 

[Necdet]

Merhaba,

Etiket döktürmek istiyorsanız excel ile hiç uğraşmayın, Word'te adres mektup birleştirme bunun için çok elverişli programdır. Başlangıçta anlamak zor olabilir ama bir anlarsanız çok şeyler ve çok değişik ebatlardaki etiketlere döküm alabilirsiniz.

 

[Asri]

Word ün adres etiket programına kısmen alternatif olabilir.

http://www.excel.web.tr/f52/excel-adres-etiket-yazdyrma-programy-t163600.html