Hücrelere Yazdırma da Hata

[ahmedummu]

Merhaba arkadaşlar

Ekte gönderdiğim dosyada, sadece C5:H9 aralığındaki hücrelere (Kenarlıklı olan yerler) isimlerin yazılması gerekiyor. Bir türlü çözemedim. Bir Bakabilir misiniz. C5:H9 hücre aralığının dışına da yazıyor.

 

[muygun]

Merhaba;

Sub sırala1()
Sheets("Sayfa2").Range("c5:h9").ClearContents
say = 1
For i = 5 To 9 'satır no için
For k = 3 To 8 'sütun no için
Sheets("sayfa2").Cells(i, k) = Sheets("sayfa1").Cells(say, "a")
say = say + 1
Next k
Next i
End Sub

Bu kodları deneyin.
İyi çalışmalar.

 

[ahmedummu]

Teşekkürler sayın muygun. Elinize sağlık.