Tarih Format Girerken +1 , +2 gün ilave ederek giriş

[altan888]

Merhaba

Ctrl + Shit + ; tuşlarına bastığımda günü tarihi çıkıyor Örneğin : 06.10.2020

Benim istediğim yardımcı bir hücre veya sütun kullanmadan Ctrl + Shit + ; yaptığımda formül içinde 06.10.2020+1 yapıp bir sonraki günün tarihi yani 07.10.2020 gelsin istiyorum.
Bunu nasıl yapabilirim.

Örneğin müşteri 7 gün sonra ödeyeceğini söyledi bana, ödeme planıma tarih girerken Ctrl + Shit + ; yaptığımda formül içinde 06.10.2020+7 yapıp bir sonraki günü tarihi yani 13.10.2020 gelsin istiyorum.
Yardımlarınızı rica ederim. Şimdiden çok teşekkürler.

 

[muygun]

Merhaba;
Farklı bir çözüm;
Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
sat = Target.Row
süt = Target.Column
sorgu = 0
sorgu = InputBox("Kaç gün sonra?..", "Gün sayısı ekle.")
If sorgu <> "" Then
Cells(sat, süt) = Date + sorgu
End If
End Sub

kodlarını ekleyin ve ilgili sayfada herhangi bir hücreye çift tıklayın.
İyi çalışmalar.

 

[Korhan Ayhan]

Bu kadar tuşa basana kadar direk 7 gün eklenmiş tarihi hücreye yazmak daha kolay değil mi?

Ekteki örnek dosyada Ctrl+Shift+; tuş kombinasyonuna bir atama yaptım. Belki bu şekilde kullanmak işinizi kolaylaştırır.

Deneyiniz.

 

[altan888]

Bu kadar tuşa basana kadar direk 7 gün eklenmiş tarihi hücreye yazmak daha kolay değil mi?

Ekteki örnek dosyada Ctrl+Shift+; tuş kombinasyonuna bir atama yaptım. Belki bu şekilde kullanmak işinizi kolaylaştırır.

Deneyiniz.

Çok teşekkür ederim.

 

[altan888]

Merhaba;
Farklı bir çözüm;
Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
sat = Target.Row
süt = Target.Column
sorgu = 0
sorgu = InputBox("Kaç gün sonra?..", "Gün sayısı ekle.")
If sorgu <> "" Then
Cells(sat, süt) = Date + sorgu
End If
End Sub

kodlarını ekleyin ve ilgili sayfada herhangi bir hücreye çift tıklayın.
İyi çalışmalar.

Çok teşekkür ederim.