Koşullu Sütun Yeri Değiştirme

[baydeniro]

Merhaba Arkadaşlar,

C6 hücresinde yazılı olan veriden J sütununda varsa bu verilerle aynı satırda C sütunundaki verileri J sütununa taşıyıp, C den gidenlerin yerine C6 da yazılı verinin yazılması mümkün müdür !

Örnek dosya linki : http://s2.dosya.tc/server6/hxbhn3/KOSULLU_SUTUN_YERI_DEGISTIRME.xls.html

 

[Ömer BARAN]

Merhaba.
Makro:

Sub YER_DEGISTIR()
Set k = Sheets("KAYIT")
son = k.Cells(Rows.Count, 1).End(3).Row
For sat = 11 To son
    If k.Cells(sat, "J") = [C6] Then
        Jye = k.Cells(sat, "C"): Iya = k.Cells(sat, "H")
        k.Cells(sat, "C") = k.Cells(sat, "J")
        k.Cells(sat, "H") = k.Cells(sat, "I")
        k.Cells(sat, "J") = Jye: k.Cells(sat, "I") = Iya
    End If
Next
End Sub

 

[baydeniro]

Ömer BARAN üstadım, elinize kolunuza sağlık. Çok çok teşekkür ediyorum. Mükemmel bir kod. İnanın soruyu gönderirken böyle bir şey yapılabilir mi acaba diye düşünüyordum. Sağlıcakla kalın.