çoklu bul değiştir

[tekniker]

öncelikle böylesine bir paylaşımınız ve emekleriniz için teşekkürler..
benim sorum şöyle, bir sayfa veya kitapta n sayıdaki metin veya rakamı tek bir girişle bulup değiştirebilirmiyiz?
örnek x leri bul y olarak değiştir gibi
x,y
10,15
ilçe,il
...,....
...,....
...,....
...,.... şeklinde bir liste vererek bunu yapabilirmiyiz?
cevaplarınız için şimdiden teşekkürler..

 

[Ali]

Sn tekniker, Sayfa1 Sayfa2 olarak devam eden sekmelerden birini sağ tuş ile tıklayarakTüm Sayfaları seç'i tıklayın Ctrl+H tuşlarına basın Aranan kısıma değiştirelecek kelime ve rakamı yeni değer kısmınada değiştirmek istediğiniz yeni değeri yazarak tümünü değiştir'i tıklayın

 

[tekniker]

Sn fructose, ilgin için çok teşekkür ederim.
sorunumu tam olarak anlatamadığımı sanıyorum. yardımcı olduğun şekilde tek tek tekrar tekrar bulunacak ve değiştirilecek değerleri girmem gerekmekte, ben ise belirleyeceğim kelime veya rakam çiftlerini tek seferde buldurup değiştirmek istiyorum.
örneklemem gerekirse
x i bul y olarak değiştir
ilçe yi bul il olarak değiştir
milli yi bul ulusal olarak değiştir gibi birçok bul değiştiri tek tek girerek değil
bu belirlediğim değişiklikleri tek seferde tüm sayfalarda yapmak istemekteyim
yardımın için sağol

 

[Ali]

Aşağıdaki gibi bir modüle kopyalayıp deneyin tüm sayfalardaki veriler değişecektir.

Sub degistir()
Dim i As Integer
For i = 1 To Sheets.Count

Worksheets(i).Cells.Replace What:="Ankara", Replacement:="Sivas", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Worksheets(i).Cells.Replace What:="10", Replacement:="15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub

Aranan ve Değiştirelecek kısımları aşağıdaki gibi kendinize göre ayarlarsınız

Worksheets(i).Cells.Replace What:="Aranan", Replacement:="Değiştirilecek", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[tekniker]

bu şekliyle işimi görecek. yardımın için çok sağol..
çalışmalarında başarılar...

 

[mrt]

tablodan bul ve seçili salandan değiştir !

Selamlar,

Bir Kısaltmalar tablosu oluşturdum.

(kısaltma.xls sheet1)

Bu tablonun A sutununda Uzun ad B sutnunda ise kısa adlar mevcut.

Aktif Çalışma sayfasında seçili olan bölümde; tablonun a sutunudaki değerleri bulup B sutunu değeri ile değiştirmesini istiyorum.

Nasıl yapabilirim.

Örnek

Tabloda;

Uzun ad- Kısa ad

İstanbul - İst.
Ankara - Ank.

Makro çalıştığında,
Seçili alanda İstanbul'u bulacak ve İst. yapacak.

 

[mrt]

Çoklu Bul Değiştir

Hatırlatmak istedim.

 

[r2d21]

Merhaba ;

Aynı konuda benim de yardıma ihtiyacım var. Şimdiden teşekkürler

 

[r2d21]

Çoklu Bul Değiştir ( Yardım )

Selamlar,

Bir Kısaltmalar tablosu oluşturdum.

(kısaltma.xls sheet1)

Bu tablonun A sutununda Uzun ad B sutnunda ise kısa adlar mevcut.

Aktif Çalışma sayfasında seçili olan bölümde; tablonun a sutunudaki değerleri bulup B sutunu değeri ile değiştirmesini istiyorum.

Nasıl yapabilirim.

Örnek

Tabloda;

Uzun ad- Kısa ad

İstanbul - İst.
Ankara - Ank.

Makro çalıştığında,
Seçili alanda İstanbul'u bulacak ve İst. yapacak.

Merhaba Yukarıda daha önce başka bir arkadaşın gönderdiği soru için çözümü olan varsa ve paylaşırsa çok sevinirim.

 

[Ali]

Sub değiştir()
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1) = Cells(i, 2)
Next
End Sub

 

[Ali]

A sütunun tümünün değişmesi için

Sub değiştir()
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1) = Cells(i, 2)
Next
End Sub

A sütununda belirli aralığın değişmesi için alanı seçip aşağıdaki kodları çalıştırın.

Sub seçilialanıdeğiştir()
Dim hucre As Range
For Each hucre In Range(Selection.Cells.Address)
hucre = hucre.Offset(0, 1).Value
Next
End Sub

 

[r2d21]

çoklu bul değiştir yardım 2

Ali arkadaşa teşekkür ederim . Fakat asıl yardıma ihtiyacım olan konu şu

Sheet 1 de a sütunuda değerler var . b sütunuda ise karşılıkları. diğer tüm sheetlerde herhangi bir hücrede örneğin a5 değeri varsa b5 ile değiştirecek. Bu konuda yardımlarınızı rica ederim.

 

[Ali]

diğer tüm sheetlerde herhangi bir hücrede örneğin a5 değeri varsa b5 ile değiştirecek.

Sub değiştir()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Cells(5, 1) = sh.Cells(5, 2)
Next
End Sub

 

[r2d21]

çoklu bul değiştir.3

Ali Bey ;

sizi yoruyorum ama 1.saydadaki a ve b sütunları değişmeyecek. Diğer tüm sheetlerdeki ( herhangi bir veya daha fazla hücredeki x değerini sayfa 1 de asütununda bulacak ve x değeri yerine sayfa 1 deki ai değeri karşılığı bi yi koyacak.Size zahmet olacak ama şimdiden tşk.

 

[Ali]

Ali Bey ;
Diğer tüm sheetlerdeki ( herhangi bir veya daha fazla hücredeki x değerini sayfa 1 de asütununda bulacak ve x değeri yerine sayfa 1 deki ai değeri karşılığı bi yi koyacak.

Eğer doğru anladı isem

Sub degerdeğiştir()
For t = 2 To Sheets.Count
For k = 1 To Sheets("Sayfa1").[A65536].End(3).Row
Sheets(t).Cells(k, 1) = Sheets("Sayfa1").Range("A1:A750").Find(Sheets(t).Cells(k, 1)).Offset(0, 1)
Next
Next
End Sub

 

[r2d21]

çoklu bul değiştir.3

Yine olmadı zannedersem ben tam anlatamadım . Dosya ekliyorum.1. Sayfa olduğu gibi kalıcak. 2 ve 3. sayfalardaki değerler değişecek.

 

[Yıldırım156]

Merhaba bu konuda detaylı yardım yapacak bir arkadaşa ihtiyacım var konu çok öncesinden açılmış yeniden açmadım kirlilik oluşmasın diye yardımcı olursanız sevinirim

 

[tahsinanarat]

Sub DEĞİŞTİR()
Set S1 = Sheets("Sayfa1")'değiştirilecek sayfa
Set S2 = Sheets("Sayfa2")' a sütununda değiştirilecek kelimeler, b sütununda neyle değiştirileceği
For X = 1 To S2.[A65536].End(3).Row
S1.Cells.Replace What:=S2.Cells(X, 1), Replacement:=S2.Cells(X, 2)
Next
Set S1 = Nothing
Set S2 = Nothing
End Sub

 

[r2d21]

Teşekkürler

Elinize sağlık