[ÇÖZÜLDÜ] Döngü ile yapmaya çalıştığım kodda hata var...

[enteresan]

Sevgili excel'ci arkadaşlar. Forum sayeside derlediğim kodlarla birşeyler yapmaya çalışıyorum ama bir yerde hata var bir türlü gideremedim. Kullandığım kod şu :
Public Sub CommandButton11_Click()
On Error Resume Next
Set s2 = Sheets("VERİ")
For x = 5 To 7
Sheets(x).Select

son = [A65536].End(3).Row
Adet = Cells(son, "B")
son = son + 2

Yazi = YazYTL(Adet)

Cells(son, "A") = "deneme"

son = son + 4
Cells(son, "A") = s2.[P2]
Cells(son, "E") = s2.[Q2]
Cells(son, "H") = s2.[R2]

son = son + 1
Cells(son, "A") = s2.[P3]
Cells(son, "E") = s2.[Q3]
Cells(son, "H") = s2.[R3]

son = son + 1
Cells(son, "A") = s2.[P4]
Cells(son, "E") = s2.[Q4]
Cells(son, "H") = s2.[R4]
Next
[A2].Select
End Sub

Bu kodda sadece en son satırdaki veriler yazdırılmakta, üstteki 2 satır çıkmamaktadır. Yani P4, Q4 ve R4 yazan kod çalışmaktadır. Nasıl bir değişiklik yapmalıyım. İlgilenenlere teşekkür ederim....

 

[AS3434]

Public Sub CommandButton11_Click()
On Error Resume Next
Set s2 = Sheets("VERİ")
 
[COLOR=black]For x = 5 To 7[/COLOR]
[COLOR=black]Sheets(x).Select[/COLOR]
 
[COLOR=black]son = [A65536].End(3).Row[/COLOR]
[COLOR=black]Adet = Cells(son, "B")[/COLOR]
son = son + 2
 
[COLOR=black]Yazi = YazYTL(Adet)[/COLOR]
Cells(son, "A") = "deneme"
 
[COLOR=green]'son = son + 4[/COLOR]
Cells(son + 4, "A") = s2.[P2]
Cells(son + 4, "E") = s2.[Q2]
Cells(son + 4, "H") = s2.[R2]
 
[COLOR=green]'son = son + 1[/COLOR]
Cells(son + 5, "A") = s2.[P3]
Cells(son + 5, "E") = s2.[Q3]
Cells(son + 5, "H") = s2.[R3]
 
[COLOR=green]'son = son + 1[/COLOR]
Cells(son + 6, "A") = s2.[P4]
Cells(son + 6, "E") = s2.[Q4]
Cells(son + 6, "H") = s2.[R4]
[COLOR=black]Next[/COLOR]
[A2].Select
End Sub

Gönderdiğiniz kodlar gayet güzel çalışıyor. Herhangi bir problem yok.

Aslında farkı yok ama, Bir de yukarıdaki gibi deneyin.

 

[enteresan]

Public Sub CommandButton11_Click()
On Error Resume Next
Set s2 = Sheets("VERİ")
 
[COLOR=black]For x = 5 To 7[/COLOR]
[COLOR=black]Sheets(x).Select[/COLOR]
 
[COLOR=black]son = [A65536].End(3).Row[/COLOR]
[COLOR=black]Adet = Cells(son, "B")[/COLOR]
son = son + 2
 
[COLOR=black]Yazi = YazYTL(Adet)[/COLOR]
Cells(son, "A") = "deneme"
 
[COLOR=green]'son = son + 4[/COLOR]
Cells(son + 4, "A") = s2.[P2]
Cells(son + 4, "E") = s2.[Q2]
Cells(son + 4, "H") = s2.[R2]
 
[COLOR=green]'son = son + 1[/COLOR]
Cells(son + 5, "A") = s2.[P3]
Cells(son + 5, "E") = s2.[Q3]
Cells(son + 5, "H") = s2.[R3]
 
[COLOR=green]'son = son + 1[/COLOR]
Cells(son + 6, "A") = s2.[P4]
Cells(son + 6, "E") = s2.[Q4]
Cells(son + 6, "H") = s2.[R4]
[COLOR=black]Next[/COLOR]
[A2].Select
End Sub

Gönderdiğiniz kodlar gayet güzel çalışıyor. Herhangi bir problem yok.

Aslında farkı yok ama, Bir de yukarıdaki gibi deneyin.

Özür dilerim sayın AS3434, hata bende imiş, boşu boşuna forumu meşgul ettiğim için herkesten çok özür diliyorum.... Saygılar...