Excel’de günün tarihini ve yarının tarihini yazdırmak


Formül ile hücreye bugünün tarihini yazdırmak
=BUGÃœN()
Hücereye yarının tarihini yazdırır
=BUGÃœN()+1
Hücereye dünün tarihini yazdırır
=BUGÃœN()-1
Hücereye yarının tarihini yazdırır
Sub Düğme1_Tıklat()
ActiveSheet.PageSetup.LeftHeader = Date & "-" & Date + 1
End Sub
‘belirtilen hücrelerdeki rastgele yazılan sayıları tarihe çevirir
Sub tarihecevir()

Dim aralık As Range
For Each aralık In Range("C1:C50")
formul = "=IF(OR(LEN(RC[-1])>8,LEN(RC[-1])

Tarihler arasına noktayı otomatik yazdırmak

Soru:ArkadaÅŸlar Merhaba,
Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.
Soru ÅŸu : A1 hücresine doÄŸum yeri ve tarihi yazılacak. ÖrneÄŸin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” ÅŸeklinde olması gerekir. Yani noktayı kendiliÄŸinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?
NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.
Hepinize saygılarımı sunuyorum…
Cevap:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Cancel = True 
ActiveCell.Replace What:=".", Replacement:="" 
ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) 
End Sub
Kodlar: Bülent Öztürk

Görsel Olarak (hücrede tarih gibi görünür fakat biçim olarak sayıdır) bu işlemi ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra Görsel olarak bu işlemi yapmak istiyorsanız ilgili hücrede iken (yada tüm sütunu seçerek);
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;
##\.##\.####
şeklinde yapıştırın.
Tarihler arasında işlem yaptığınızda, örneğin iki tarih arasındaki gün farkını hesaplamaya çalıştığınızda işlemin tarih formatında doğru sonuç döndürmesini için ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra yine
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;
0#\.0#\.####
şeklinde yapıştırın. Ayrıca Bakınız...