Bul ve değiştir

[mkaraoglu25]

Merhaba,
Resimde görüldüğü üzere sadece seçtiğim hücrelerde makroda oluşturacağım bul ve değiştir komutunu kullanmak istiyorum ama bütün sayfayı tarıyor ve dosya donuyor. Konu hakkında desteklerinizi bekliyorum.?

 

[Necdet]

Merhaba,
Aşağıdaki kodlar seçim yapılan hücrede çalışır, kodları kendinize göre uyarlayınız.

Sub Makro1()
    
    Dim aranan As String
    Dim yerinekoy As String
    
    aranan = "mehmet"
    yerinekoy = "ayşe"
    
    Selection.Replace What:=aranan, Replacement:=yerinekoy, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End Sub

 

[mkaraoglu25]

Necdet bey seçim yapacağım hücreyi makroda hangi noktada belirteceğim? Burda string tanımlanmış diğer kısımlar benim çalıştırdığım makroyla aynı.

 

[Necdet]

Merhaba,

Normal Range tanımı yapabilirsiniz,örneğin Range("A5:E20") gibi, bunu da selection sözcüğünün yerine yazabilirsiniz.

Range("A5:E20").Replace What:=aranan, Replacement:=yerinekoy, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

gibi

 

[mkaraoglu25]

Çalıştı Necdet bey . Teşekkürler

 

[Necdet]

kolay gelsin