Açılış sorusu

[muratgunay48]

Arkadaşlar, hocalarım, MsgBox gibi açılış sorusu sorabilir miyiz?
Yazılan cevabı da Sayfa1 A1 hücresine yazacak.

Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Forumda Inputbox ifadesi ile arama yapınız.

 

[muratgunay48]

Forumda Inputbox ifadesi ile arama yapınız.

Peki hocam. Teşekkür ederim.

 

[muratgunay48]

@Korhan Ayhan teşekkür ederim hocam. Balık verme, balık tutmayı öğret gibi oldu. Sağ olun, iyi ki varsınız.

Private Sub Workbook_Open()

sayi = InputBox("Doğum tarihinizi giriniz", "Merhaba")
Sheets("Sayfa1").Select
Range("A1").Value = sayi