makroyu çalıştıramıyorum yardım

[hakan288]

makroyu çalıştıramıyorum önceden problemsiz çalışıyordu ama her ne yaptıksa arıza veriyor yardımcı olursanız sevinirim

 

[halit3]

makroyu çalıştıramıyorum önceden problemsiz çalışıyordu ama her ne yaptıksa arıza veriyor yardımcı olursanız sevinirim

kodu aşağıdaki ile değiştiriniz.

Sub personel_elbise()
Dim i As Long
j = 6
k = 2
Do
Sheets("Boş Etiket").Select
Range("A1:L19").Copy

Sheets("Etiket").Cells(j + 1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For i = 1 To 19
Sheets("Etiket").Cells(j + i, 2) = Sheets("2007-Beden").Cells(k, i)
Sheets("Etiket").Cells(j + i, 9) = Sheets("2007-Beden").Cells(k + 1, i)
Next
k = k + 2
j = j + 20
Loop While Sheets("2007-Beden").Cells(k, 1) <> ""
Application.CutCopyMode = False
Range("A1").Select
End Sub

 

[hakan288]

vermiş olduğunuz çalışma için teşekkür ederim ama yinede çalışmadı isim ve kart numaralarını atmadı boş etiket sayfasına bu konularda yeteri kadar bilgi sahibi değilim yardımcı olmanızı istiyorum saygılar şimdiden.

 

[halit3]

ben koddaki çalışmıyan bölümü düzelttim ne yapılmak istendiğini anlıyamadım.