Otomatik artan tarih

[Usyk]

Merhaba

C sütununa veri girildiğinde mesela;

C2 sütununa veri girildiğinde A3=(A2+1;"gg.aa.yyyy") ve B3=(A2+1;"gggg")

ve

C2 ="" olduğunda A3:B3="" olacak.



şeklinde makro ile yapabilir miyiz?

Formülle yapabiliyorum ama, makro ile daha temiz olacak.

Teşekkürler.

 

[Usyk]

Çok basit sordum herhalde

 

[vardar07]

Çok basit sordum herhalde

Keşke bu mesajı yazıncaya kadar örnek dosyanızı eklemiş olup bu satırları okuyuncaya kadar cevabı görmüş olsaydınız. Soru basit olunca kimse sizin yerinize dosya hazırlayıp makro yazmak için zaman harcamaz. Dikkatinize.

 

[Usyk]

Teşekkür ederim sayın Vardar07

Bu konuda fazlaca bir bilgim olmadığını parantez içi belirteyim.

Bulduğum bir örneği biraz uyarladım ama kurtarmadı. Tarihi A sütunundaki bir önceki hücredeki tarih +1 olarak düzenleyebilir miyiz?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
Target.Offset(1, -2) = Format(Now, "dd.mm.yyyy")
Target.Offset(1, -1) = Format(Now, "dddd")

If Target.Value = "" Then
Target.Offset(1, -2) = ""
Target.Offset(1, -1) = ""

End If
End Sub

 

[PLİNT]

Merhaba
Gün ekleyecekseniz kodlarınızın içindeki bölüme:

'....
Target.Offset(1, -2) = Format(Now [COLOR="Red"]+ 1[/COLOR], "dd.mm.yyyy")
Target.Offset(1, -1) = Format(Now[COLOR="Red"] + 1[/COLOR], "dddd") 
'...

 

[Usyk]

Merhaba
Gün ekleyecekseniz kodlarınızın içindeki bölüme:

'....
Target.Offset(1, -2) = Format(Now [COLOR="Red"]+ 1[/COLOR], "dd.mm.yyyy")
Target.Offset(1, -1) = Format(Now[COLOR="Red"] + 1[/COLOR], "dddd") 
'...

Sn PLİNT,

Bugünün tarihine (Now) değil, üst hücredeki tarihe +1 gün eklemek istiyorum.

C sütununa veri girdiğimde; A ve B sütununa;

A------------B------------C
18/12/2016 Pazar.........Veri
19/12/2116 Pazartesi....Veri
20/12/2016 Salı

şeklinde.

 

[PLİNT]

O zaman şöyle olabilir;
("C3" hücresine veri girildiğinde "A3" boş ise bugünün tarihini atacak)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Offset(0, -2) = "" Then
Target.Offset(0, -2) = Format(Now, "dd.mm.yyyy")
Target.Offset(0, -1) = Format(Now, "dddd")
End If
Target.Offset(1, -2) = Format(CDate(Target.Offset(0, -2)) + 1, "dd.mm.yyyy")
Target.Offset(1, -1) = Format(CDate(Target.Offset(0, -2)) + 1, "dddd")

If Target.Value = "" Then
Target.Offset(1, -2) = ""
Target.Offset(1, -1) = ""

End If
End Sub

 

[Usyk]

Sn PLİNT doğru anlamışsınız. Çok teşekkür ederim. Elleriniz dert görmesin.

 

[PLİNT]

Sn PLİNT doğru anlamışsınız. Çok teşekkür ederim. Elleriniz dert görmesin.

Rica ederim, kolay gelsin.