i değişkenine göre belli hücrelere, istenen hücre değerlerini yazdırmak.

[xternet]

Merhaba Arkadaşlar,

Bana lazım olan kod eminim buralarda bir yerde var ama sanırım bazı anahtar kelimelerle bulmak zor.

Kısaca anlatmaya çalışırsam;
For-Next döngüsündeki i değişkeninin belli bir hücreden sonraki hücrelere sırayla belirlediğim hücrelerdeki değerleri yazması.

Sub cakısma_kontrol()

For i = 1 To Range("A13")

[D2] = i

[G10 + i] = [E2]
[H10 + i] = [F2]

Next

End Sub

Tabi burada yazdığım kod sadece bilgi amaçlı.
Amacım i=1 iken E2 hücresindeki değeri G11'e, F2 hücresindeki değeri H11'e yazdırmak,
daha sonra i=2 iken E2 hücresindeki değeri G12'ye, F2 hücresindeki değeri H12'ye yazdırmak,
daha sonra i=3 iken E2 hücresindeki değeri G13'e, F2 hücresindeki değeri H13'e yazdırmak.
.
.
.
Bir de örnek dosya ekledim. Zaman ayıran arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Sub aktar()
    Dim i As Long
    For i = 1 To Range("A13")
        Range("G" & 10 + i) = [E2]
        Range("H" & 10 + i) = [F2]
    Next i
End Sub

 

[xternet]

Teşekkürler Sn.Necdet Yeşertener,
Elinize, zihninize sağlık.

İyi çalışmalar.

 

[Necdet]

Teşekkürler.

İşinize yarar mı bilemiyorum döngü olmadan da istediğiniz yapılabilir.
Farklı yöntem olsun.

Sub aktar()
    Range("E2:F2").Copy
    Range("G11:H" & 11 + Range("A13")).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[xternet]

Farklı çözümünüz için teşekkürler.
Ama döngüyle beraber P23 'e atanan değerlere göre P24 ve P25 değişiyor. Bu değişik değerlerde ilgili saturlara sıralanıyor. Onun için ilk yanıtınız tam anlamıyla istediğimi karşıladı.

İyi çalışmalar.


Dim i As Long

For i = 1 To Range("Y12")

[P23] = i

Range("AY" & 14 + i) = [P24]
Range("AZ" & 14 + i) = [P25]
Range("BA" & 14 + i) = [B19]
Range("BB" & 14 + i) = [B20]

Next i