değiştirme makrosu

[turkanet]

merhaba,

seçili alanda veya hücrede,

"BKD ON" u "" yapan veya silen ve "ETD" yi "SLD" ile değiştiren

makroya ihtiyacım var,

değerli yardımlarınızı beklerim

 

[Kemal Demir]

Sub DEĞİŞTİR()
'ALT SATIR BKD ON DEĞERİNI SİLER
Selection.Replace What:="BKD ON", Replacement:=""
'ALT SATIR ETD DEĞERİNI SLD DEĞERİ İLE DEĞİŞTİRİR
Selection.Replace What:="ETD", Replacement:="SLD"
End Sub


Alanı siz kendiniz seçiniz.

 

[Seyit Tiken]

Alternatif : A1 hücresine istenilen bir veriyi yazın(boş olarakta bırakılabilir) ve değiştirmek istediğiniz alan(ları) seçilin yapıp düğmeye basın.

Sub Düğme1_Tıklat()
Selection = [A1]
End Sub

 

[turkanet]

değerli arkadaşlar, işe yaradı, emeğinize sağlık

minnettarım...

 

[turkanet]

değerli arkadaşlar,

bu makronun "seçili alan ve hücrede uygulanma" özelliğini kaldırsak, yani uygulandığı sayfada etkili olsa,

nasıl değiştirmemiz gerekir?

saygılarımla,

 

[turkanet]

değerli yardımlarınızı beklerim

 

[turkanet]

Merhaba,

d1 ve d10000 aralığını tarayıp "ahmet" i "mehmet" ile; "ayşe"yi "fatma" ile değiştiren makroya ihtiyacım var

değerli yardımlarınızı beklerim

saygılar

 

[N.Ziya Hiçdurmaz]

Veriniz 10000 satır olduğu için makronun çalışması biraz uzun sürüyor.
Sub DEĞİŞTİR()
For i = 1 To 10000
Range("d" & i).Replace What:="ahmet", Replacement:="mehmet"
Next
For i = 1 To 10000
Range("d" & i).Replace What:="ayşe", Replacement:="fatma"
Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil daha hızlı çalışıyor.
Sub test1()
For i = 1 To 10000
If Range("d" & i) = "ahmet" Then
Range("d" & i) = "mehmet"
End If
Next
For i = 1 To 10000
If Range("d" & i) = "ayşe" Then
Range("d" & i) = "fatma"
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu işlemi döngü ile yapmak gereksiz olacaktır. Sebebi ise işlemi süresini uzatmasıdır. Aşağıdaki şekilde kullanımı daha sağlıklı olacaktır.

Sub DEĞİŞTİR()
    [D1:D10000].Replace What:="ahmet", Replacement:="mehmet"
    [D1:D10000].Replace What:="ayşe", Replacement:="fatma"
End Sub

 

[Seyit Tiken]

İlgili sütun seçili yapılıp > Düzen > Değiştir > ......... şeklinde makrosuzda yapılabilir.

 

[turkanet]

tüm arkadaşlara minnettarım.

ayrıca sn. seyit tiken,
söz konusu makro, 10-11 adet olan serinin bir parçası. tüm bu makroları, yıllık planı basitçe şekillendirebilmek için kullanıyorum. bu yüzden bahsettiğiniz kısa yolları kullanmak bile zaman alıyor. değerli öneriniz için tşk ederim.

saygılar

 

[turkanet]

merhaba;

Sub DEĞİŞTİR()
[D110000].Replace What:="ahmet", Replacement:="mehmet"
[D110000].Replace What:="ayşe", Replacement:="fatma"
End Sub

bu makronun sonuna next ekleyip sonrakiyne otomatik olarak bağlansın istedim
bu yüzden

Sub DEĞİŞTİR()
[D110000].Replace What:="ahmet", Replacement:="mehmet"
[D110000].Replace What:="ayşe", Replacement:="fatma"
Next
diger makro adı
End Sub

olarak değiştirdim ama for olmadan next olmaz dedi. nasıl düzeltme yapabilirim?

saygılarımla,

 

[Orion1]

Next'i kaldırıp denermisiniz.

 

[Recep İpek]

For Next ile yapılmış bir alternatif daha....

Birden fazla isim değişikliklerinde kullanılabilinir.

Sub BulDeğiştir()
On Error Resume Next
Set s1 = Sheets("veri")
Set s2 = Sheets("liste")

For i = 2 To s2.[a65536].End(3).Row
    For j = 2 To s1.[a65536].End(3).Row
        If s2.Cells(i, "a").Value = s1.Cells(j, "a").Value Then
        s1.Cells(j, "a").Value = s2.Cells(i, "b").Value
        End If
    Next j
Next i

MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[turkanet]

her zamanki desteğiniz için minnettarım

 

[IrmakSSS]

Değiştir Konusunda Yardım. LÜTFEN

Aşağıda göndermiş olduğunuz örneği kendi dosyam üzerinde uyarlamaya çalışıyorum fakat sayıları sürekli bir döngü ile değiştiriyor ve istediğimi elde edemiyorum.

Veri tablosunda karşılıkları bulunan sayıları sadece 1 defa değiştirmek ve mümkünse değiştikten sonra farklı hücre rengi veya yazı rengi ile boyamak istiyorum.

Lütfen yardımcı olursanız memnun olurum.

Saygılar

 

[IrmakSSS]

Acil olarak bitirmem gerek.
Lütfen birisi yardımcı olur mu??

Saygılar

 

[exam77]

Aşağıda göndermiş olduğunuz örneği kendi dosyam üzerinde uyarlamaya çalışıyorum fakat sayıları sürekli bir döngü ile değiştiriyor ve istediğimi elde edemiyorum.

Veri tablosunda karşılıkları bulunan sayıları sadece 1 defa değiştirmek ve mümkünse değiştikten sonra farklı hücre rengi veya yazı rengi ile boyamak istiyorum.

Lütfen yardımcı olursanız memnun olurum.

Saygılar

Sayın IrmakSSS,
dosyanız ektedir inceleyiniz lütfen...

 

[IrmakSSS]

Sevgili Exam77

Yukarıdaki işlem tamamdır. ellerine sağlık.
Beni çok uzun bir listeyi tek tek çevirmekten kurtardın.
Çok teşekkür ederim.

Saygılar.