eğer ve eğer değilse makro

[turkanet]

merhaba,

d sütununda eğer hücre "ahmet" ise onu "mehmet" ile değiştirsin,
eğer hücre "ahmet" ten farklı ise onu "veli" ile değiştirsin.

bu makro hakkında yardımınızı rica ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DEĞİŞTİR()
    Dim HÜCRE As Range
        
    For Each HÜCRE In Range("D1:D" & Range("D65536").End(3).Row)
        If UCase(HÜCRE.Value) = "AHMET" Then
            HÜCRE.Value = "MEHMET"
        Else
            HÜCRE.Value = "VELİ"
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Orion1]

Bütün D sütununda hücreleri şarta uyan şekilde değiştirir.

Dim i As Long
For i = 1 To Cells(65536, "D").End(xlUp).Row
    If UCase(Cells(i, "D").Value) = "AHMET" Then
        Cells(i, "D").Value = "mehmet"
        Else
        Cells(i, "D").Value = "veli"
    End If
Next i

 

[turkanet]

her iki yanıt için de çok tşk ederim,
saygılar

 

[ilker_orbay]

Üstadlar teşekkürler...

 

[baydeniro]

Üstadlar teşekkürler...