Otuz sayfalık exel kitabı

[onurozbay]

Arkadaşlar elimde hazırladığım bir exel kitabım var ve bu kitabın her sayfasında aynı hücrede tarih bulunmakta
sayfa1 a hücresi 01.01.2016
sayfa2 a hücresi 02.01.2016 gibi ben bu exelle nasıl bir formül yazmalıyım ki
tarihlerin bir tanesini değiştirince otomatik diğerleri de değişin.
Şimdiden teşekkğrler.

 

[savas_145]

sayfa 2 için a1 hücresine =Sayfa1!A1+1
sayfa 3 için a1 hücresine =Sayfa1!A1+2
şeklinde tüm sayfaları formülize edebilirsiniz

 

[PLİNT]

Merhaba
"Thisworkbook" (Buçalışma kitabı) kod sayfasına aşağıdaki kodu ekleyin.
"A" sütununda herhangi bir hücrede yapılan değişiklik tüm sayfalara uygulanır

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If [COLOR="Red"]Target.Column <> 1[/COLOR] Then Exit Sub  'Sadece 1.sütun için
For a = 1 To Sheets.Count
Sheets(a).Cells(Target.Row, Target.Column) = Target
Next
Application.EnableEvents = True
End Sub

 

[onurozbay]

Teşekkürler

 

[sakman26]

selam,
farklı bir fikir vermek amacıyla köprülerle oluşturulmuş
eki inceleyin..
kolay gelsin..

http://www.dosyayukleyin.com/do.php?id=5473]AylıkDosya.xlsx