Tarihler ile Makro Yapımı

[denksal]

Arkadaşlar aşağıdaki gibi bana bir makro yaparmısınız? Şimdiden teşekkurler

Sayfa 1 (K) sütununa yazdığım tarihi , Sayfa 1 (L) Sütununa 330 gün sonrasını verecek
Sayfa 1 (Z) sütununa yazdığım tarihi , Sayfa 1 (AA) Sütununa 330 gün sonrasını verecek
Sayfa 1 (AI) sütununa yazdığım tarihi , Sayfa 1 (AJ) Sütununa 160 gün sonrasını verecek

*Sutunlar 3 satırdan başlayıp 20.000 satıra kadar vermesi lazım

 

[Emir Hüseyin Çoban]

.

Makro buton ile çalışıp örneğin K1:K20000 aralığını kontrol edecek yoksa
K sütununa veri girdikçe o satır için mi çalışacak.

 

[denksal]

Emir bey k sutununa veri girdikce ilgili sununa yazacak tşk

 

[Emir Hüseyin Çoban]

.

Kodları, çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [K3:K20000]) Is Nothing Then
    Cells(Target.Row, "L") = Target.Value + 330
End If

If Not Intersect(Target, [Z3:Z20000]) Is Nothing Then
    Cells(Target.Row, "AA") = Target.Value + 330
End If

If Not Intersect(Target, [AI3:AI20000]) Is Nothing Then
    Cells(Target.Row, "AJ") = Target.Value + 160
End If

End Sub

.

 

[denksal]

Çok teşekkür ederim