Soru TextBox'a girilen Tarih

[shhnyldrr]

Herkese merhaba,

Yazmış olduğum programda otomatik randevu tarihi atmasını istiyorum. Örneğin kullanıcı bir müşteri kayıt ediyor ve isim soy isimle berberinde tarih giriyor. İstediğim şu bir textbox daha oluşturup randevu sayısını gireceğim. Girdiğim tarihe göre randevu sayısı kadar tarih yazmasını istiyorum.

Örneğin:
girilen tarih 10.06.2022
Randevu sayısı 8

bana otomatik olarak

isim soyisim 10.06.2022
isim soyisim 10.07.2022
isim soyisim 10.08.2022
.
.
.
.
isim soyisim 10.01.2023

 

[TiOr]

Selam,

"Yazmış olduğum programda otomatik randevu tarihi atmasını istiyorum" İstinaden;

Sayfanın Kod Bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A100000]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

İyi çalışmalar.

Not; Saati de yazacaktır. Saat yazmasını istemiyor iseniz; hh:mm bu kısmı siliniz...

 

[ÖmerFaruk]

Ben soruyu farklı anladım.
Kullandığınız mevcut kodları ya da dosyanızı paylaşır mısınız?

 

[shhnyldrr]

çok teşekkür ederim. Kısmen çözüme kavuştu.

iyi çalışmalar