Ekli makro, FOR-NEXT ile nasıl yapılır?

[Tevfik_Kursun]

Günaydın Arkadaşlar,

    Range([D2].Text).Select
    Selection.Replace What:=[A24].Text, Replacement:=[B24].Text, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .....
    Selection.Replace What:=[A30].Text, Replacement:=[B30].Text, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Bu işlemi FOR-NEXT olgusu içinde nasıl çözümleyebilirim? (A24:A30 arasındaki değerler B24:B30 arasındakilerle değişecek)
Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Veriler yer değiştirecekse

Sub test()
    Dim i() As Variant
    i = Range("A24:A30")
    Range("B24:B30").Copy Range("A24:A30")
    Range("B24:B30") = i
End Sub

B dekiler A dakilere kopyalanacaksa

Sub test()
    Range("B24:B30").Copy Range("A24:A30")
End Sub

 

[Tevfik_Kursun]

Merhaba Sayın Dalgalıkur Hocam,
İlginize teşekkür ederim.
Range([D2].Text).Select D2 de yazılı olan aralıkta A sütunundakiler B sütunundakilerle değişecek. Dikkatinizden kaçmış.
Saygılarımla

 

[Muzaffer Ali]

Yani şöyle olacak

Sub test()
    Dim Alan As Range
    For Each Alan In Range("A24:A30")
        Range([D2].Text).Replace What:=Alan.Text, Replacement:=Cells(Alan.Row, "B").Text, LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next
End Sub

 

[Tevfik_Kursun]

Aynen öyle, çok teşekkür ederim sayın Dalgalıkur,
Saygılarımla

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.