döngü hatası

[ismailozkan4224]

değerli arkadaşlar aşağıdaki kodda nasıl bir hata var. aynı hücrede dönüyor ve sonrasında bütün hücrelerde aynı veriyi yazıyor.

Sub eylul()
For x = 5 To 24 ' nöbet sayfası satırlar
For i = 17 To 20 ' nöbet sayfası sütunlar
For k = 4 To 8 ' 1 sayfası satırlar
For y = 3 To 22 ' 1 sayfası 4. sütunlar

Cells(x, i) = Sheets("1").Cells(k, y)

Next y
Next k
Next i
Next x
End Sub

 

[PLİNT]

Merhaba
Dosyanızı görme imkanım yok ama
For i = 17 To 20 " i " 4 döngü
For k = 4 To 8 "k " 5 döngü
eşit değil

Sheet("1").range("c4:v8") aralığı; range("Q5:T24") aralığına aktarılacaksa şöyle olabilir

Sub eylul()
For x = 5 To 24 ' nöbet sayfası satırlar
For i = 17 To 20 ' nöbet sayfası sütunlar
Cells(x, i) = Sheets("1").Cells(i - 13, x - 2)
Next i
Next x
End Sub

 

[ismailozkan4224]

Merhaba
Dosyanızı görme imkanım yok ama
For i = 17 To 20 " i " 4 döngü
For k = 4 To 8 "k " 5 döngü
eşit değil

Sheet("1").range("c4:v8") aralığı; range("Q5:T24") aralığına aktarılacaksa şöyle olabilir

Sub eylul()
For x = 5 To 24 ' nöbet sayfası satırlar
For i = 17 To 20 ' nöbet sayfası sütunlar
Cells(x, i) = Sheets("1").Cells(i - 13, x - 2)
Next i
Next x
End Sub

sayın plint kodunuz aşağıdaki gibi işlem yapıyor
1234
2345
3456
4567
5678
aslında
1234
5678
9101112
13141516
17181920
şeklinde yapması gerekiyor

 

[ismailozkan4224]

Sheet("1").range("c4:v8") aralığı; range("Q5:T24") aralığına aktarılacak .doğru düşündünüz.

 

[PLİNT]

Merhaba
dosyanızı http://dosya.co/ yükleyip indirme adresini verirseniz üzerinde yapmaya çalışalım
Benim düşündüğüm ek dosyadaki gibi
http://dosya.co/nbtsnmd8o304/1.xlsm.html

 

[ismailozkan4224]

http://dosya.co/z4mrishqi881/aktar.xlsm.html

Merhaba
dosyanızı http://dosya.co/ yükleyip indirme adresini verirseniz üzerinde yapmaya çalışalım
Benim düşündüğüm ek dosyadaki gibi
http://dosya.co/nbtsnmd8o304/1.xlsm.html

 

[PLİNT]

Merhaba
Sanırım yanlış anlamışım.
3. mesajdaki isteğinize göre "eylül1" makrosu :

Sub eylul1()
y = 3
For k = 1 To 4
For x = 5 * k To (5 * k) + 4
For i = 4 To 7
n = n + 1
Cells(x, 16 + n) = Sheets("1").Cells(i, y)
Next
y = y + 4: n = 0
Next
y = 3
y = y + k
Next
End Sub

 

[ismailozkan4224]

teşekkürler sayın plint .ancak
n = n + 1 de n değeriyok gibi

 

[PLİNT]

Merhaba
Doğrudur "n" boş "i" döngüsü ile For i = 4 To 7 n = n + 1; "1" den "4" e kadar çıkacak Cells(x, 16 + n) 17. ile 20. sütunlar arasında işlem yaptıktan sonra alt satıra geçince n=0 ve tekrar birer artacak
http://dosya.co/h1n0dk9rv8ir/aktar2.zip.html

 

[ismailozkan4224]

teşekkürler sayın plint