• DİKKAT

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

toplu değiştirme mümkünmüdür...

  • Konbuyu başlatan Konbuyu başlatan android
  • Başlangıç tarihi Başlangıç tarihi
Katılım
13 Mart 2007
Mesajlar
7
Excel Vers. ve Dili
Excel Version ve Dili:
Excel2003 - türkçe
binlerce satırı aşan bir çalışmada...

xxx gördüğü yere ve zzz gördüğü yere QQQ yazmasını istiyorum...

"bul xxx değiştir QQQ şeklinde değil"de toplu hepsini yazıcam atıyorum xxx; zzz; ..... vs.vs.vs. değiştir dediğimde tamamını QQQ yapmalı... böyle birşey mümkünmüdür...

bilmiyorum bu arada anlatabildim mi :???: :???: :???: :???:
 
xxx zzz etc. verilerinin oldugu kolona data filter advanced filter unique yapildiktan sonra bu liste yeni bir sheete atilarak lookuptan islem yapilabilir..

kolay gelsin..
 
kullandığım sürüm türkçe ve sen ingilizcesini yazmıssın o yüsden data filter dediğin yer veri ordan da süz demek geresinin türkçe meali nedir ? :(:(
 
Son düzenleme:
Cells.Replace What:=Range("a1").Value, Replacement:=Range("c1").Value, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False

Cells.Replace What:=Range("b1").Value, Replacement:=Range("c1").Value, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False

Kodu bir makro ekleyerek çalıştırın.

a1 ve b1 değişecek, c1 ise olması istenilen değerdir
 
zannedersem anlatamıyorum...

her seferinde
ctrl f xxx bul yerine 123 yaz
ctrl f zzz bul yerine 123 yaz
ctrl f qqq bul yerine 123 yaz

yapmak istemiyorum toplu bi şekilde giricem bunları xxx; zzz; qqq; artık nasılsa formulü değiştir dediğimde tamamını 123 yapacak
 
toplu hepsini yazıcam atıyorum xxx; zzz; ..... vs.vs.vs. değiştir dediğimde tamamını QQQ yapmalı...

Makro bilginiz yok ise bu işlemi fonksiyonlarla bu işlemi yapmak biraz zor olabilir.

Size önerim Edit(Düzen)>> Replace(Değiştir) ile tek tek bu kelimeleri
QQQ kelimesine çavirmenizdir.
 
Makro bilginiz yok ise bu işlemi fonksiyonlarla bu işlemi yapmak biraz zor olabilir.

Size önerim Edit(Düzen)>> Replace(Değiştir) ile tek tek bu kelimeleri
QQQ kelimesine çavirmenizdir.

işte bende onu yapmak istemiyorum... değiştirmek istediğim şeyler o kadar fazla ki her ay her ay günlerimi alıyo...
 
Ekteki örneği inceleyin.

Veri sayfasında A kolonuna değişecek kelimeleri ve B kolonuna karşılıklarını yazınız.

Liste sayfasında ise değişecek alanı mause ile seçip butona basmanız yeterlidir.

Umarım işinize yayar.
 
Merhaba,
Bul - Değiştir özelliğiyle tek tek yapılması gerekmez.
Önce "Tümünü Bul" ardından "Tümünü değiştir" komutu vermek yeterlidir.
 
Ekteki örneği inceleyin.

Veri sayfasında A kolonuna değişecek kelimeleri ve B kolonuna karşılıklarını yazınız.

Liste sayfasında ise değişecek alanı mause ile seçip butona basmanız yeterlidir.

Umarım işinize yayar.


yok hayır bu değil... ugrasın için saol...

Merhaba,
Bul - Değiştir özelliğiyle tek tek yapılması gerekmez.
Önce "Tümünü Bul" ardından "Tümünü değiştir" komutu vermek yeterlidir.

anlatmak istediğim o değil... tümünü değiştir die yapıyorum saten...

yani tüm xxx leri bulacak tüm yyy leri bulacak tüm vs.v.vs.vs.leri bulacak ve yerine 123 yazacak... tek seferde...
 
Cells.Replace What:=Range("a1").Value, Replacement:=Range("c1").Value, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False

Cells.Replace What:=Range("b1").Value, Replacement:=Range("c1").Value, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False

Kodu bir makro ekleyerek çalıştırın.

a1 ve b1 değişecek, c1 ise olması istenilen değerdir

Bu verdiğim kodu neden denemediniz.
a1 hücresine ve b1 hücresine değiştirmek istediğinizi girin
örnek a1 = olmaz
b1= olur

c1 ise olması gereken bunuda = deneme

bu makroyu çalıştırdığınızda olmaz ve olur yazan yerler deneme ye dönüşecek.

Bunun için başka hücrereliri ekleyip değişecek değerleri büyültebilirsiniz makroda
 
Geri
Üst