Soru Hücrenin özelliğini "Kısa Tarih" Olarak ayarlayalım

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Merhaba,

VBAüzerinden hazırladığım makro ile randevu tarihlerini yazıyorum.
Tarih üzerinde değişiklik yaptığımda standart olmayan tarih formatlarına geçiş yapıyor.
Nasıl bunu dd.mm.yyyy formatına getirebilirim?

Teşekkürler.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kullandığınız kodu paylaşırsanız destek almanız kolaylaşır.
 

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Kullandığınız kodu paylaşırsanız destek almanız kolaylaşır.
Private Sub y90siparis_Click()
'ÖNCE TEMİZLİK YAPSIN, SONRA YAZSIN
Dim RC As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook

Set RC = WB.Worksheets("recete")

RC.Range("B12:F36") = ""
RC.Range("G11:H36") = ""
RC.Range("B8:E9") = ""
'BURADA YAZMAYA BAŞLIYOR

RC.Range("B12").Font.ColorIndex = 1

With RC.Range("B12")
.Font.Size = 14
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With

RC.Range("B12") = "NÜKLEER TIP ANABİLİM DALI SEKRETERLİĞİ"

With RC.Range("B13")
.Font.Size = 10
.Font.Bold = False
.Font.Underline = xlUnderlineStyleSingle
End With

RC.Range("B13") = "(CAVİT//CANER BEY'İN DİKKATİNE)"


With RC.Range("c16:E30")
.Font.Size = 12
.Font.Bold = False
End With


With RC
.Range("b18") = Format(CDate(Now()) + 10, "dd.mm.yyyy")
.Range("b22") = Format(CDate(Now()) + 5, "dd.mm.yyyy")
.Range("b26") = "1 GBq"
.Range("B15:e18").HorizontalAlignment = xlLeft
.Range("B15") = "Karaciğer'e yönelik Y-90 planladığımız"
.Range("b16") = "Hastamıza"
.Range("c18") = "TARİHİNDE TEDAVİ PLANLANMAKTADIR"
.Range("c22") = "KALİBRASYON TARİHİ"
.Range("c26") = "İLAÇ DOZU"
End With

End Sub

Private Sub y90siparis_Click()
'ÖNCE TEMİZLİK YAPSIN, SONRA YAZSIN
Dim RC As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook

Set RC = WB.Worksheets("recete")

RC.Range("B12:F36") = ""
RC.Range("G11:H36") = ""
RC.Range("B8:E9") = ""
'BURADA YAZMAYA BAŞLIYOR

RC.Range("B12").Font.ColorIndex = 1

With RC.Range("B12")
.Font.Size = 14
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With

RC.Range("B12") = "NÜKLEER TIP ANABİLİM DALI SEKRETERLİĞİ"

With RC.Range("B13")
.Font.Size = 10
.Font.Bold = False
.Font.Underline = xlUnderlineStyleSingle
End With

RC.Range("B13") = "(CAVİT//CANER BEY'İN DİKKATİNE)"


With RC.Range("c16:E30")
.Font.Size = 12
.Font.Bold = False
End With


With RC
.Range("b18") = Format(CDate(Now()) + 10, "dd.mm.yyyy")
.Range("b22") = Format(CDate(Now()) + 5, "dd.mm.yyyy")
.Range("b26") = "1 GBq"
.Range("B15:e18").HorizontalAlignment = xlLeft
.Range("B15") = "Karaciğer'e yönelik Y-90 planladığımız"
.Range("b16") = "Hastamıza"
.Range("c18") = "TARİHİNDE TEDAVİ PLANLANMAKTADIR"
.Range("c22") = "KALİBRASYON TARİHİ"
.Range("c26") = "İLAÇ DOZU"
End With

End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kullandığınız Format(CDate(Now()) + 10, "dd.mm.yyyy") komutu ne sonuç veriyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Görsel paylaşabilir misiniz?
 
Üst