makro

[bursacem]

Sayın Üstatlar doluluk yapmak için makine numarasını girdiğimde bana o makineye ait bitiş tarihini Yeni satırda başlangıç tarihi olarak getirmesini istiyorum

 

[Korhan Ayhan]

Deneyiniz.

Sayfanın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
    Set Bul = Range("C2:C" & Target.Row - 1).Find(Target, , , xlWhole, , xlPrevious)
    If Not Bul Is Nothing Then
        Cells(Target.Row, "I") = Cells(Bul.Row, "L")
    End If
End Sub