Excel'i açınca B1 hücresine bugünün tarihini yazarken s

[memonet555]

Bir excel sayfam var. Bunu açtığımda B1 Hücresine açılışta bugünün tarihini yazmak isteyip istemediğimi sormasını ve evet dediğimde bugünün tarihini yazmasını hayır dediğimde de olduğu gibi bırakmasını istiyorum. bu mümkün müdür acaba. YArdımlarınız için teşekkürler.

 

[danersin]

workbook modülüne aşağıdaki kodu yazın.

Private Sub Workbook_Open()
xxx = MsgBox("tarih güncellensinmi", vbYesNo, "başlık yaz")
If xxx = vbYes Then
Cells(1, 2) = Date
End If
End Sub

 

[memonet555]

Çok sağol dostum. Ancak fırsat bulabildim teşekkür için. Çok iyisin.