for döngüsü hakkında

[enegen]

Merhabalar
Öncelikle merhabalar.
Acemi biri olarak bir excel dosyası üzerinde çalışmaktayım.
aşağıdaki kodu yazdım ama çok uzun 200 defa döndürmem gerekiyor. for döngüsüyle nasıl yazılacağını bulamadım. yardımlarınızı bekliyorum.
Teşekkür ederim.
Sub Assessment_Düğme4_Tıklat()



If Sheets("GİRİŞ").Range("F2") = Sheets("DATA").Range("B2") Then

Sheets("1").[A2:AB2].Value = Sheets("assessment").[B5:AC5].Value
Sheets("1").[A3:AB3].Value = Sheets("assessment").[B6:AC6].Value
Sheets("1").[A4:AB4].Value = Sheets("assessment").[B7:AC7].Value
Sheets("1").[A5:AB5].Value = Sheets("assessment").[B8:AC8].Value
Sheets("1").[A6:AB6].Value = Sheets("assessment").[B9:AC9].Value
Sheets("1").[A7:AB7].Value = Sheets("assessment").[B10:AC10].Value
Sheets("1").[A8:AB8].Value = Sheets("assessment").[B11:AC11].Value
Sheets("1").[A9:AB9].Value = Sheets("assessment").[B12:AC12].Value
Sheets("1").[A10:AB10].Value = Sheets("assessment").[B13:AC13].Value
Sheets("1").[A11:AB11].Value = Sheets("assessment").[B14:AC14].Value
Sheets("1").[A12:AB12].Value = Sheets("assessment").[B15:AC15].Value
Sheets("1").[A13:AB13].Value = Sheets("assessment").[B16:AC16].Value
Sheets("1").[A14:AB14].Value = Sheets("assessment").[B17:AC17].Value
Sheets("1").[A15:AB15].Value = Sheets("assessment").[B18:AC18].Value
Sheets("1").[A16:AB16].Value = Sheets("assessment").[B19:AC19].Value
Sheets("1").[A17:AB17].Value = Sheets("assessment").[B20:AC20].Value
Sheets("1").[A18:AB18].Value = Sheets("assessment").[B21:AC21].Value
Sheets("1").[A19:AB19].Value = Sheets("assessment").[B22:AC22].Value
Sheets("1").[A20:AB20].Value = Sheets("assessment").[B23:AC23].Value
Sheets("1").[A21:AB21].Value = Sheets("assessment").[B24:AC24].Value
Sheets("1").[A22:AB22].Value = Sheets("assessment").[B25:AC25].Value
Sheets("1").[A23:AB23].Value = Sheets("assessment").[B26:AC26].Value
Sheets("1").[A24:AB24].Value = Sheets("assessment").[B27:AC27].Value
Sheets("1").[A25:AB25].Value = Sheets("assessment").[B28:AC28].Value

Worksheets("MENU").Select
End If
If Sheets("GİRİŞ").Range("F2") = Sheets("DATA").Range("B3") Then
Sheets("2").[A2:BB2].Value = Sheets("assessment").[B5:BC5].Value
Sheets("2").[A3:AB3].Value = Sheets("assessment").[B6:AC6].Value

Worksheets("MENU").Select
End If
End Sub

 

[ÖmerBey]

Merhaba,
Tam olarak nereyi döndürmek istediğinizi anlamadım ama şu şekilde bir deneyiniz:

For a = 2 To 200
    Sheets("1").Range("A" & a & ":AB" & a).Value = Sheets("assessment").Range("B" & a + 3 & ":AC" & a + 3).Value
Next

 

[Korhan Ayhan]

Kendinize uyarlarsınız...

Sub Assessment_Düğme4_Tıklat()
    If Sheets("GİRİŞ").Range("F2") = Sheets("DATA").Range("B2") Then
        For x = 1 To 200
            Sheets("1").Range("A" & x + 1 & ":AB" & x + 1).Value = Sheets("assessment").Range("B" & x + 4 & ":AC" & x + 4).Value
        Next
        Worksheets("MENU").Select
    End If
End Sub

 

[enegen]

çok teşekkür ederim