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

[seckinb]

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]

Kullandığınız kodu paylaşırsanız destek almanız kolaylaşır.

 

[seckinb]

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]

Kullandığınız Format(CDate(Now()) + 10, "dd.mm.yyyy") komutu ne sonuç veriyor.

 

[seckinb]

Kullandığınız Format(CDate(Now()) + 10, "dd.mm.yyyy") komutu ne sonuç veriyor.

otomatik olarak atadğım tarih üzerinde değişiklik yaptığımda uzun tarih haline geliyor.

 

[Korhan Ayhan]

Görsel paylaşabilir misiniz?