24 lü etiket makrosu

[byysmn]

ARKADAŞLAR KOLAY GELSİN
ETİKET LİSTEDEKİ M SÜTUNUNDAKİ DULU HÜCRELERİN ETİKETİNİ BASMAK İSTİYORUM FAKAT 193. SATIRDAN SONRASINI ALMIYOR NEDENDİR MAKRO AŞAĞIDADIR İNCELER VE YARDIM EDERSENİZ ÇOK SEVİNİRİM İLGİNİZE TEŞEKKÜRLER

Sub EtiketYaz()
Dim i As Long
Dim Kol As Integer, Sat As Integer
Dim se As Worksheet, sl As Worksheet
Set se = Sheets("ETİKET")
Set sl = Sheets("etiket Liste")
Sat = 1
Kol = 1

For i = 2 To sl.[A65356].End(3).Row
se.Cells(Sat, Kol) = sl.Cells(i, "m")

Kol = Kol + 1
If Kol > 3 Then
Kol = 1
Sat = Sat + 1
If Sat > 8 Then
se.PrintPreview
Sat = 1
se.Range("A1:C8").ClearContents
End If
End If
Next i

MsgBox "işlem tamamdır..."


End Sub

 

[Husgvarna]

ARKADAŞLAR KOLAY GELSİN
ETİKET LİSTEDEKİ M SÜTUNUNDAKİ DULU HÜCRELERİN ETİKETİNİ BASMAK İSTİYORUM FAKAT 193. SATIRDAN SONRASINI ALMIYOR NEDENDİR MAKRO AŞAĞIDADIR İNCELER VE YARDIM EDERSENİZ ÇOK SEVİNİRİM İLGİNİZE TEŞEKKÜRLER

Merhaba
"A" sütunu 193. satıra kadar dolu ise; ondan olabilir.
Şöyle denermisiniz?

 Sub EtiketYaz()
Dim i As Long
Dim Kol As Integer, Sat As Integer
Dim se As Worksheet, sl As Worksheet
Set se = Sheets("ETİKET")
Set sl = Sheets("etiket Liste")
Sat = 1
Kol = 1

For i = 2 To sl.[[COLOR="Red"]M[/COLOR]65356].End(3).Row
se.Cells(Sat, Kol) = sl.Cells(i, "m")

Kol = Kol + 1
If Kol > 3 Then
Kol = 1
Sat = Sat + 1
If Sat > 8 Then
se.PrintPreview
Sat = 1
se.Range("A1:C8").ClearContents
End If
End If
Next i

MsgBox "işlem tamamdır..."


End Sub

 

[byysmn]

satırlar 400 kadar dolu hocam denemedim olmuyur. nasıl çözeriz

 

[Husgvarna]

satırlar 400 kadar dolu hocam denemedim olmuyur. nasıl çözeriz

Örnek dosya ekleyebilirmisiniz?