Excel bugün tarih fonksiyonu sabitlemek

[selimmanav]

MERHABA
G1 HÜCRESİNDE DAĞITIM ÜCRETİ VE H1 HÜCRESİNDE GÜÇ ARTIRIMI HÜCRELERİ BULUNMAKTADIR.G1 HÜCRESİ ALTINDAKİ HÜCRELERE "DAĞITIM ALINDI" YAZILDIĞINDA I1 HÜCRESİNE BUGUNUN TARİHİ YAZMASINI VE SABİTLEMESİNİ AYNI ŞEKİLDE H1 HÜCRESİ ALTINDAKİ HÜCRELERE "GÜÇ ARTIRIMI YAPILDI" YAZILDIĞINDA I1 HUCRESİNE BUGUNUN TARİHİ YAZMASINI VE SABİTLEMESİNİ YAPABİLEN VB İÇİN YARDIMCI OLABİLİRMİSİNİZ.
DOSYA EKTEDİR.
AŞAĞIDAKİ KOD İLE SADECE G SUTUNU İÇİN KULLANABİLİYORUM.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G20")) Is Nothing Then Exit Sub
Target.Offset(0, 2) = Format(Now, "dd.mm.yyyy")
End Sub

 

[Necdet]

Merhaba,

2 şeyden kaçınınız.


1.Mesajınızı Büyük harfle yazmayınız,
2. Şifreli kod göndermeyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [G:H]) Is Nothing Then Exit Sub
 
    If Target.Column = 7 And Trim(Target.Value) = "DAĞITIM ALINDI" Then
        Target.Offset(0, 2) = Date
    ElseIf Target.Column = 8 And Trim(Target.Value) = "GÜÇ ARTIRIMI" Then
        Target.Offset(0, 1) = Date
    End If
 
End Sub