Tarihi her sayfada otomatik yazdırmak(yardım lütfen)

[sswwgg]

dosyadada olduğu gibi;

yani diyelimki a1 hücresi 01.01.2008 ise o satırın tamamını 1 nolu sayfaya;;;;; 02.01.2008 ise 2 nolu sayfaya;;;;;; 03.01.2008. ise 3 nolu sayfaya otomatik geçmesini istiyorum
yardımcı olursanız çok sewinirim teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim syf As String, sat As Long, adr1 As String, adr2 As String
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
syf = Day(Target.Value)
sat = Sheets(syf).Cells(65536, "A").End(xlUp).Row + 1
adr1 = Range(Cells(Target.Row, "A"), Cells(Target.Row, "IV")).Address
adr2 = Range(Cells(sat, "A"), Cells(sat, "IV")).Address
Sheets(syf).Range(adr2).Value = Range(adr1).Value
End Sub

 

[fatih_83]

arkadaşım yardımcı olmaya çalıştığın için sağol ama gönderdiğin dosyayı açamıyorum.. medya player gibi algılıyor... birlikte aç diyorum (excelle) bu seferde acayip acayip karakterler çıkıyor.. tekrar bi yardımcı olmanı isticem senden.. emeğe saygı kolay gelsinn...

 

[Orion1]

arkadaşım yardımcı olmaya çalıştığın için sağol ama gönderdiğin dosyayı açamıyorum.. medya player gibi algılıyor... birlikte aç diyorum (excelle) bu seferde acayip acayip karakterler çıkıyor.. tekrar bi yardımcı olmanı isticem senden.. emeğe saygı kolay gelsinn...

Bir sorun gözükmüyor.
Veya kodları çalışma sayfasının kod bölümüne yapıştırın.
Çalışma sayfasının sayfasekmesine sağ tıklayın.
Kod görüntüleye tıklayın.
Açılan vb edite kodları yapıştırın.
vb editi kaptın.
A sütununa bir tarih girdiğiniz zaman kod çalışacaktır.

 

[RFspur]

Sayın fatih_83, bir de bu şekilde açmayı dener misiniz?

 

[fatih_83]

arkadaşlar ilginize çok tşk. ler fakat bir takıım problemler varrr...
1. si yazdığım tarihin sayfasına gidip tarihi orayada yazıyor fakat yanındaki hücreye bir şey yazdığımda onu öteki sayfaya yazmıyor... yani yazdığım satırın komplesini o sayfaya almasını istiyorummm....
2. si diyelim bir tarih yazdım o anda diğerinede yazıyor tabii... ama daha sonra o tarihi silersem veya değiştirirsemm diğer sayfalardan silmiyorrr...
3. sü arkadaşlar bu işi makroyla değilde excelin formüllerini kullanarak yapamazmıyızzz...
yardımcı olursanız beni çok mutlu edeceksiniz.. şimdiden ilginize tşk.ler iyi çalışmalarrr ..