Açılışta tarih sorma YARDIM!

[baykan_m]

Merhaba Arkadaşlar,

Ben bir tablo hazırladım ve bu tablo yazdığım tarihe göre formüller içeriyor ve o tarihteki işlemleri önüme getiriyor. Veri gireceğim zaman dönemi yazmayı unutup başka döneme yazarsam yaptığım iş yanlış olacak.

Şimdi ben çalışma sayfamı açtığım zaman, tıpkı muhasebe programları gibi bana dönemi sormasını ve girdiğim dönemi A1 hücresine Ocak 2015 formatıyla yazmasını istiyorum.

Yardımlarınız için şimdiden teşekkür ederim arkadaşlar.

 

[Necdet]

Merhaba,

Herkes sizin işinizden anlamayabilir.
Dönem derken ne anlama geldiğini de açıklamanız gerekir.

 

[baykan_m]

Aslında işimden anlamalarına gerek yok. Ben zaten istediğimi anlatmaya çalıştım. Açılışta tarih soracak ve bu tarihi A1 hücresine yazacak.

Teşekkürler.

 

[ÖmerBey]

Aşağıdaki kodu Çalışma kitabının kod bölümüne kopyalayınız.
Sayfa ismini kendi dosyanıza göre değiştiriniz.

Private Sub Workbook_Open()
tarih = Application.InputBox("Tarihi giriniz.")
1
If Not IsDate(tarih) Then
    tarih = Application.InputBox("Geçerli bir tarih girmediniz." & vbLf & "Lütfen geçerli bir tarih giriniz.")
    GoTo 1
End If
With Sheets("[COLOR="Red"]Sayfa1[/COLOR]").Range("A1")
    .Value = tarih
    .NumberFormat = "[$-41F]mmmm yyyy;@"
End With
End Sub

 

[baykan_m]

Teşekkür ederim yardımlarınız için. Problemim çözüldü.