tarih formatı

[emrexcel123]

arkadaşlar ve üstadlar öncelikle ii akşamlar
sorunum şu >>
ben a1 hücresine 22.03.2007 yazdığımda ekle butonuna bastığımda bana o tarihin 1 gün sonrasını veriyor alt alta olacak şekilde fakat asıl sorun yıl ve ay formatı ile ilgili.Excel bana günü veriyor fakat ay ve yıl'ı 0 olarak kabul ediyor bunu nasıl çözebilirim.dosya ektedir...

 

[conari]

son = [a65536].End(3).Row + 1
say = [a65536].End(3).Row
Cells(son, 1) = Range("a1").Value + Val(say)

makroyu bu şekilde deneyin.
mevcut makra saat dakka ayarı da hesaplamaktadır.

 

[emsey]

Yeni isimli makronuzun için boşaltın onun yerine bu kodu kopyalayın.

Range("a1").Select
If Sayfa1.Range("a1").Text = Empty Then
Sayfa1.Range("a1").Value = 1
End If
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(-1, 0).Value + 1
'****** kod sonu

kodda eğer a1 hücresinde hiçbir sayı yoksa yani boşsa ben otomatikmen 1 yazdırdım ama siz A1 hücresine herhangi bir tarih yazarsanız alt alta ekleyerek gider.

 

[emsey]

son = [a65536].End(3).Row + 1
say = [a65536].End(3).Row
Cells(son, 1) = Range("a1").Value + Val(say)

makroyu bu şekilde deneyin.
mevcut makra saat dakka ayarı da hesaplamaktadır.

bu vermiş olduğunuz kod olmaz bu verdiğiniz kod satır numarası + 1 yapar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub YENİ()
    [A65536].End(3).Offset(1, 0) = CDate([A65536].End(3).Value) + 1
End Sub