Hücre içindeki yazıyı değiştirme..!

[sensizsoldum]

Merhaba,
L3:L aralığında bazı hücrelerde ‘B’ yazısı var, bir buton yardımıyla L3:L aralığında ‘B’ olan verileri ‘BLOKELİ’ yazdırabilir miyiz?
İyi çalışmalar dilerim.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub değiştir()
Dim STR As Long
STR = Range("L" & Rows.Count).End(xlUp).Row
Range("L3:L" & STR).Replace "B", "BLOKELİ", xlWhole
End Sub

 

[sensizsoldum]

Eyvallah Abi Çok Teşekkür Ederim.

İyi çalışmalar Dilerim.

Syg.

 

[asi_kral]

Eyvallah Abi Çok Teşekkür Ederim.

İyi çalışmalar Dilerim.

Syg.

Kolay Gelsin.