tarih macrosu

[Erhan Köseoğlu]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:l]) Is Nothing Then Exit Sub
If Target.Column = 3 Then Cells(Target.Row, "B") = Now
If Target.Column = 12 Then Cells(Target.Row, "M") = Now
End Sub

siteden aldığım yukarıdaki kodlarla otomatik tarih atabiliyorum ancak atılan tarihin formatı şöyle gg/aa/yyyy ss:dd:ss (22/11/2009 21:23:54)
bana sadece gg/aa/yyyy formatı lazım.

Sanırım yukarıdaki kodların sonunda yer alan now değişmeli ama nasıl?

 

[leumruk]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:l]) Is Nothing Then Exit Sub
If Target.Column = 3 Then Cells(Target.Row, "B") = Format(Now,"dd/mm/yyyy")
If Target.Column = 12 Then Cells(Target.Row, "M") = Format(Now,"dd/mm/yyyy")
End Sub

 

[Erhan Köseoğlu]

teşekkürler

 

[Erhan Köseoğlu]

tarih bir türlü olmuyor yardımınıza ihtiyacım var, dosya ekte

 

[leumruk]

Aşağıya eklediğim satırı ilgili satırla değiştirin.

If Target.Column = 3 Then Cells(Target.Row, "c") = WorksheetFunction.Substitute(Format(Now, "dd/mm/yyyy"), ".", "/")

 

[Orion1]

Dosyanız ektedir.
Doğrusu budur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = 1
Target.Offset(0, 2).Value = Date
Target.Offset(0, 2).NumberFormat = "dd\/mm\/yyyy"
End Sub

 

[Erhan Köseoğlu]

Excel sayfasından kitap.csv sayfasına aktarınca tarih formatı değişiyor. Excel sayfasında olduğu gibi nasıl ayarlayabilirim?

 

[Erhan Köseoğlu]

excel de görünen tarih biçimi 11/01/2010 şeklinde üstteki adres çubuğunda ise 11.01.2010 şeklinde kitap.csv de ise 430785 gibi rakamlardan oluşuyor kitap csv ye aktarınca tarih aralığını / ile yapmak istiyorum

 

[Orion1]

Ekteki dosya olur ama Excel hücresine Tarihler tarih olmaz string olur.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tarih As String
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = 1
tarih = Day(Date) & "/" & Month(Date) & "/" & Year(Date)
Target.Offset(0, 2).Value = tarih
End Sub

 

[Erhan Köseoğlu]

olmuyor sanırım
excel de dd/mm/yyyy şeklinde olsada kitap.csv dosyasında 40523 şeklinde düz rakama dönüşüyor

 

[Orion1]

olmuyor sanırım
excel de dd/mm/yyyy şeklinde olsada kitap.csv dosyasında 40523 şeklinde düz rakama dönüşüyor

9ncu mesajdaki kodlarımı uyguladınızmı?
Siz csv dosyasına nasıl atıyorsunuz verileri?