Değişikliği diğer sayfalarda da yap

[şehiriçi]

Selam Arkadaşlar ,
Örnek Dosyamın rehber sayfasında A sütununda "ahmet"verisini diyelim ki "selman "verisi ile değiştirmek istiyorum .
Bu veri başka isimde olabilir, ancak rehberde meydana gelen bu değişim diğer 4 sayda da meydana gelmeli ,tabi ki makro ile
Desteğinizi bekliyorum ,ilgilenen tüm excel dostlarına sevgi ve saygılarımla ,

 

[ÖmerFaruk]

Bu işlemi MakroKaydet yöntemiyle yaparak kodları elde edebilirsiniz.

Elde ettiğiniz kodları hazırlayacağınız UserForm içinde düzenleyerek ya da ihtiyaç yoksa düzenleme yapmadan kullanabilirsiniz.

 

[şehiriçi]

Cells.Find(What:="ahmet", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.Replace What:="ahmet", Replacement:="selman", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ömer bey dediğinizi yaptım yukarıdaki gibi bir şey oluştu . Ancak gerçek dosyamda tüm kitapta değişiklik yapmayacağım . Belirttiğim sayfa adlarında değişiklik yapacağım.oysa gerçek dosyamda değişmesini istediğim sayfaların haricinde değişiklik olmasını istemediğim sayfalarda var.

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Option Explicit

Sub Test()
    Dim Sh As Worksheet
    For Each Sh In Sheets(Array("rehber", "hb1", "hb2", "fat1", "fat2"))
        Sh.Range("A:A").Replace "ahmet", "selman", xlWhole
    Next
End Sub

 

[şehiriçi]

Korhan bey hem soru sorup hemde işlerim dolayısıyla geç dönüş yaptığım için özür dilerim
Verdiğiniz kod aradığım kod ,ancak ben bir hata yapmışım oda şu ,
gerçek dosyamda ki sütun lar farklı ,ek te gönderdiğim dosya gerçek dosyaya uygun ,şöyleki
rehber sayfası verileri "R" sütununda (burdaki değişiklik diğer sayfalarda da olacak)
hb1 sayfasındaki değişecek veriler , hem "A" sütununda hemde "I" sütununda
hb2 sayfasındaki değişecek veriler sadece "A" sütununda
fat1 sayfasındaki değişecek veriler sadece "C" sütununda
fat2 sayfasındaki değişecek veriler sadece "A" sütununda
değişiklik göstermesi gerek , mümkünse bu sayfalara göre uyarlıya bilir misiniz , teşekkürler.

 

[Korhan Ayhan]

Ben bu durumu dile getirmekten bıktım. Ama üyeler aynı şeyi tekrarlamaktan maalesef bıkmadılar.

Neden en başta asıl dosyanıza benzeyen dosya paylaşmadınız?

Hem sizlerin vakti boşa gidiyor hem de bizlerin...

 

[şehiriçi]

Haklısınız Korhan Bey ,sonradan fark ettim . Hem sizin değerli zamanınızı aldım hem de kendi kendimi yordum ,hakkınızı helal edin .

 

[şehiriçi]

Arkadaşlar konu benim açımdan önemli olduğu için tekrar güncelliyorum , teşekkürler

 

[AdemCan]

Merhaba, örnek olarak

Resimdeki gibi Hedef ve Yeni isim alanı ayarlayıp aşağıdaki kodları kullanabilirsiniz.

Sub degistir()
Sayfa2.Range("A:A").Replace Sayfa1.Range("R2"), Sayfa1.Range("S2"), xlWhole
Sayfa2.Range("I:I").Replace Sayfa1.Range("R2"), Sayfa1.Range("S2"), xlWhole
Sayfa3.Range("A:A").Replace Sayfa1.Range("R2"), Sayfa1.Range("S2"), xlWhole
Sayfa4.Range("C:C").Replace Sayfa1.Range("R2"), Sayfa1.Range("S2"), xlWhole
Sayfa5.Range("A:A").Replace Sayfa1.Range("R2"), Sayfa1.Range("S2"), xlWhole
End Sub