Soru 1 ay sonrasındaki tarihi GG-AA-YYYY formatında hesaplayıp yazmak

[seckinb]

Merhabalar,
Uzun bir metni command button ile yazdırıyorum, lakin bu kod içerisinde 1 ay sonraki günü yazması da gerekiyor.

Worksheets("recete").Range("b18") = CDate(Now()) + 30

With Worksheets("recete").Range("B18:D18")
    .Font.Size = 11
    .Font.Bold = True
End With

CDATE(NOW()) kullandığımda ısrarla GG-AA-YYYY + SAAT bilgisi yazıyor. Bunu sadece tarih bilgisi haline nasıl getirebilirim?
Kullandığım hücreyi macro üzerinden düzenlemem gerekiyor.

teşekkürler.

 

[ASLAN7410]

Merhaba.
Aşağıdaki bu satırı

Worksheets("recete").Range("b18") = CDate(Now()) + 30

Bu satır ile değiştirin.

Worksheets("reçete").Range("B11:B36").NumberFormat = "General"
Worksheets("reçete").Range("b18") = CDate(Format(Now(), "dd.mm.yyyy")) + 30

 

[Haluk]

Worksheets("reçete").Range("b18") = Format(CDate(Now()) + 30, "dd.mm.yyyy")

.

 

[Necdet]

Merhaba,

Worksheets("reçete").Range("b18") = DateAdd("m", 1, Date)

 

[seckinb]

Elinize sağlık, çok güzel çalışıyor.