makro açıklaması

[igultekin2000]

satırdaki formülü aşağı kopyalamayla ilgili makro buldum ancak kendime uyarlayamadım. formül şu şekilde;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = "=DATEDIF(RC[-1],R1C2,""y"")"
End Sub

A3 Satırına veri girilince B2' deki formülü B3' ye kopyalıyor. Ben ise B3' ye veri girdikçe formülün A2, den A3' kopyalanmasını istiyorum. makrodaki bilgilerin açıklamasını da öğrenebilsem başka uygulamalara da düzenlemek istiyorum. yani Target.Offset'teki (0,1) ve "=DATEDIF(RC[-1],R1C2,""y"")" gibi
teşekkürler

 

[TEGCreative]

satırdaki formülü aşağı kopyalamayla ilgili makro buldum ancak kendime uyarlayamadım. formül şu şekilde;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = "=DATEDIF(RC[-1],R1C2,""y"")"
End Sub

A3 Satırına veri girilince B2' deki formülü B3' ye kopyalıyor. Ben ise B3' ye veri girdikçe formülün A2, den A3' kopyalanmasını istiyorum. makrodaki bilgilerin açıklamasını da öğrenebilsem başka uygulamalara da düzenlemek istiyorum. yani Target.Offset'teki (0,1) ve "=DATEDIF(RC[-1],R1C2,""y"")" gibi
teşekkürler

Merhabalar ,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = "=DATEDIF(RC[-1],R1C2,""y"")"
End Sub

Bunu dener misiniz

 

[igultekin2000]

hata veriyor

Merhabalar ,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = "=DATEDIF(RC[-1],R1C2,""y"")"
End Sub

Bunu dener misiniz

tarihi ne yazarsam yazayım 5 rakamını veriyor