Değiştirme

[MURATSONMEZ03]

Merhaba arkadaşlar ekte puantaj listemin örneği var burada makro veya formül ile değiştirme yapmak istiyorum nasıl yapabilirim. Değişim gösterecek kodlar açıklamada 3 tane fakat değişecek kodlar fazla sayıda. Teşekkürler iyi çalışmalar.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degis()

    Dim eski(), yeni(), i As Byte
    
    eski = Array("S2", "S1", "Ü1")
    yeni = Array("R", "İZ", "Yİ")
    
    For i = 0 To UBound(eski)
        [E:AI].Replace eski(i), yeni(i)
    Next i
    
End Sub

.

 

[MURATSONMEZ03]

Teşekkürler makro işime yaradı