Bütün Çalışma Kitabında Bul Değiştir

[dirac]

arkadaşlar 4 sayfadan oluşan bir çalışma kitabı var. tek komutla bütün sayfalarda bul-değiştir yapmak istiyorum. mümkün müdür? aşagıdaki kodu çalıştırdığımda beklendiği gibi sadece aktif olan sayfada bul-değiştir yapıyor.


Cells.Replace What:="FİRMA", Replacement:=firma_adi, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Ali]

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

Worksheets(i).Cells.Replace What:="eski adı", Replacement:="yeni adı", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next i
End Sub

 

[kundakci]

Merhaba
Sanırım aşağıdaki kod işinizi görür

Kod :

Dim sayfalar()
Sub LISTE()
sayfalar = Array("", "sayfa1", "sayfa2", "sayfa3", "sayfa4")
firma_adi = "deneme" 'burası silinmecek
For j = 1 To 4
Sheets(sayfalar(j)).Select
Cells.Replace What:="FİRMA", Replacement:=firma_adi, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

 

[dirac]

asıl öğrenmek istediğim bu işi başka bir fonksiyon veya döngü kullanmadan yapabilme yoluydu. sanırım böyle bir şey yok. sonuçta bul-değiştir işlemini menülerden yaparkan geçerli sayfa veya çalışmakitabı seçimi yapabiliyoruz. bunu karşılayacak makroda bir parametre vardır sanmıştım.

emeğiniz için teşekkürler arkadaşlar. Kolay gelsin.

 

[Levent Menteşoğlu]

sanırım böyle bir şey yok.

Böyle bir şey var, yukarıda yazdığınız kod control+F ile açılan bul penceresindeki işlemin makrodaki karşılığıdır. Fakat makro control+F ile yaptığınız manuel ayar ne ise onu dikkate alır. Eğer control+F ile pencereyi açtıktan sonra seçenekler-içinde kısmını "çalışma kitabı" olarak ayarladıktan sonra "sonrakini bul" butonuna basarsanız, bu ayar geçerli hale gelir. Bundan sonra makronuzu çalıştırdığınızda tüm çalışma kitabında arayacaktır. Bu ayar makro içinde sanıyorum yapılamıyor.