• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kod ile bul değiştir yapmak istiyorum

D

deleterx

Katılım
20 Temmuz 2007
Mesajlar
33
Excel Vers. ve Dili
microsoft office 2007
Merhabalar,

çalışma sayfasındaki belli bir kaç şekilde yazılan kelimeleri kod ile değiştirmek mümkünmü? Excelin yazım denetleme kısmındaki düzeltme seceneginde kullandığımda sayfaya başka biryerden kopyalayıp yapıştırdığım zaman düzeltmiyor. öreğin "ak bank" yazdığımda "AKBANK" yada "iş bankası" yazdığımda "İŞBANKASI" yazmasını istiyorum. Tabi bunu başka bir sayfadan o sayfaya data kopyaladığımda da değiştirsin istiyorum.

Teşekkür ederim.
 
. . .

Makro kaydeti actiktan sonra
Ctrl H (degistir) penceresini acip tumunu degistir diyerek
Duzeltmeleri yapin.
Makro kaydeti durdurun. Kodlariniz hazir.

.
 
Merhaba Hüseyin hocam,
hücre veya textbox adres gösterilerek bu değişiklik yapılabilirmi.
Aşağıdaki şekilde yaptığım düzenleme hata verdi

Kod: 
Sub Makro1()
    Cells.Replace What:=Range(a1).Value, Replacement:=Range(a2).Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("E4").Select
End Sub
 
Merhaba
Aşağıdaki kodu bir düğmeye bağlayıp,
Değiştirilecek veriyi a1 hücresine, yeni veriyi a2 hücresine yazıp çalıştırdığımızda istediğim oldu.
Teşekkür ederim.

Kod: 
Sub Dikdörtgen1_Tıklat()

    Cells.Replace What:=Range("A1").Value, Replacement:=Range("A2").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub
 
Merhaba,
Bir sıkıntı var.
Yukarıdaki kod harfsel olarak değişiklik yapıyor.
Hücre bazlı olması için ustalara ihtiyaç var.
İlgilenen hocalara şimdiden teşekkür ederim.
 
Hüseyin Bey'in tarif ettiği gibi makro kaydet ile aradığınız kodu bulabilirdiniz...
Kod: 
LookAt:=xlPart
yerine
Kod: 
LookAt:=xlWhole
yazıp deneyiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst