Sütunda bulunan verilerin durumlarını değiştirmek

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar herkese iyi akşamlar; Bir sütunda bulunan verileri bir kod yardımı ile durumlarını değiştirmek istiyorum, işlemin ayrıntısını dosyamda anlattım. Şimdiden herkese teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub DURUM_DEĞİŞTİR()
Set s1 = Sheets("İCMAL")
Set s2 = Sheets("SON İCMAL")
son = s1.Cells(Rows.Count, "J").End(3).Row
a = 0
Application.ScreenUpdating = False
    For Each hucre In s1.Range("J3:J" & son)
        If hucre.Value = s2.[R1] Then
            hucre.Value = s2.[T1]
            hucre.Offset(0, 1) = s2.[s1]
            a = a + 1
        End If
    Next
Application.ScreenUpdating = True
s1.Activate
MsgBox a & " adet işlemde değişiklik yapıldı!", vbInformation

End Sub

 

[Hacı Bayram ÖZKAN]

Yusuf bey teşekkür ederim, eline sağlık çok güzel oldu. Eksik olmayın.