for döngüsü yardım

[musaliha]

Merhaba Aşağıdaki kodu for döngüsüyle yapmaya çalışıyorum.Yardımcı olabikşirmisiniz.

If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazar" Then Sayfa27.Range("h172:Al172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazartesi" Then Sayfa27.Range("I172:AM172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Salı" Then Sayfa27.Range("j172:An172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Çarşamba" Then Sayfa27.Range("k172:Ao172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Perşembe" Then Sayfa27.Range("L172:Ap172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cuma" Then Sayfa27.Range("m172:Aq172").Copy Sayfa27.Range("h74")
If Sayfa25.Range("U17") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cumartesi" Then Sayfa27.Range("n172:Ar172").Copy Sayfa27.Range("h74")

If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazar" Then Sayfa27.Range("h172:Al172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazartesi" Then Sayfa27.Range("I172:AM172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Salı" Then Sayfa27.Range("j172:An172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Çarşamba" Then Sayfa27.Range("k172:Ao172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Perşembe" Then Sayfa27.Range("L172:Ap172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cuma" Then Sayfa27.Range("m172:Aq172").Copy Sayfa27.Range("h69")
If Sayfa25.Range("U16") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cumartesi" Then Sayfa27.Range("n172:Ar172").Copy Sayfa27.Range("h69")

If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazar" Then Sayfa27.Range("h172:Al172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Pazartesi" Then Sayfa27.Range("I172:AM172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Salı" Then Sayfa27.Range("j172:An172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Çarşamba" Then Sayfa27.Range("k172:Ao172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Perşembe" Then Sayfa27.Range("L172:Ap172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cuma" Then Sayfa27.Range("m172:Aq172").Copy Sayfa27.Range("h64")
If Sayfa25.Range("U15") = "NORMAL-DESTEK" And Sayfa27.Range("H5") = "Cumartesi" Then Sayfa27.Range("n172:Ar172").Copy Sayfa27.Range("h64")

 

[Mdemir63]

Selam
Bu kadar kodu buraya yazmak yerine, örnek bir dosya ekleyerek sorunuzu sormanız halinde daha çabuk yanıtlar alırsınız.

 

[ÖmerFaruk]

Dosyanızın yedeğini alarak bir deneyin. Doğru veriler doğru yere yapışıyor mu?

Sub ForDongusu()
    For i = 12 To 1 Step -1
        If Sayfa25.Range("U" & 5 + i) = "NORMAL-DESTEK" Then
            Select Case Sayfa27.Range("H5")
                Case "Pazar"
                Sütun = 0
                Case "Pazartesi"
                Sütun = 1
                Case "Salı"
                Sütun = 2
                Case "Çarşamba"
                Sütun = 3
                Case "Perşembe"
                Sütun = 4
                Case "Cuma"
                Sütun = 5
                Case "Cumartesi"
                Sütun = 6
            End Select
            Sayfa27.Range("H172").Offset(0, Sütun).Resize(1, 31).Copy Sayfa27.Range("h" & 14 + 5 * i)
        End If
    Next i
End Sub

 

[musaliha]

Çok teşekkür ederim kodlar tam istediğim gibi çalıştı.Elinize sağlık