Tarihi Değiştirmek.

[Leoncio]

Arkadaşlar Merhaba;

10 Sheetten oluşan dublör olarak kullandığım bir çalışma kitabım var. Çalışma kitabındaki Ctrl+H (Bul - Değiştir) ile tarihleri değiştirerek sonuca ulaşabiliyorum. Tüm Sayfaları seç diyerek bu işlemi yaptığımda görüyorum ki bazı sayfalarda değiştirme işlemini yapmamış bu defa değişmeyen sayfaları tespit ederek onlarıda değiştiriyorum. Kullandığım formül:

=TOPLA.ÇARPIM(('R:\Raporlar\Gunluk\Ocak-07\[Ocak-07.xls]25-01-2007'!$A$6:$A$930=A2)*('R:\Raporlar\Gunluk\Ocak-07\[Ocak-07.xls]25-01-2007'!$B$6:$B$930=B2)*('R:\Raporlar\Gunluk\Ocak-07\[Ocak-07.xls]25-01-2007'!$G$6:$G$930))

Formüldende görüldüğü gibi 25-01-2007 tarihleri bul örneğin 26-01-2007 değiştir yapıyorum.
Bu işlemi daha pratik olarak nasıl yapabilirim. Bu konuda yorumlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Dolaylı fonksiyonu ile tarihleri değişken yapabilirsiniz. İsterseniz örnek dosyanızı ekleyin onun üzerinden gidelim.

 

[Leoncio]

Sayın Leventm;

Aşağıdaki kodlar ile çözdüm. Teşekkürler.

Sub degistir()
Dim sayfalar As Worksheet
a = InputBox("Değiştirmek istediğiniz Değer")
b = InputBox("Yeni değeri Giriniz")
For Each sayfalar In Worksheets
sayfalar.Cells.Replace a, b
Next sayfalar
End Sub