Hücrede değişiklik olunca tarih alanlarındaki boş yere yazdırma

[kneehot]

Merhaba arkadaşlar. Yapmak istediğim bir sütundaki hücrelerde değişiklik oluncaaynı satırdaki tarih alanlarından boş olana o günün tarihini atması. Anlatması zor diye ornek ekledim. Tüm yardımlara şimdiden teşekkürler.

 

[antonio]

Merhaba,
Çalışma sayfasının sekmesine sağ tıklayıp, "Kod görüntüle", seçimi ile açılan pencereye aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Long, hcr As Range, tarihler As Range
If Not Intersect(Target, [C5:C18]) Is Nothing Then
    Set tarihler = Range("D" & Target.Row & ":H" & Target.Row)
    say = WorksheetFunction.CountA(tarihler)
    sut = say + 4
    Set hcr = Cells(Target.Row, sut)
    
    hcr.Value = Format(Date, "dd/mm/yyyy")
End If
End Sub

 

[kneehot]

Merhaba,
Çalışma sayfasının sekmesine sağ tıklayıp, "Kod görüntüle", seçimi ile açılan pencereye aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Long, hcr As Range, tarihler As Range
If Not Intersect(Target, [C5:C18]) Is Nothing Then
    Set tarihler = Range("D" & Target.Row & ":H" & Target.Row)
    say = WorksheetFunction.CountA(tarihler)
    sut = say + 4
    Set hcr = Cells(Target.Row, sut)
    
    hcr.Value = Format(Date, "dd/mm/yyyy")
End If
End Sub

çok teşekkür ederim.

 

[antonio]

Rica ederim.