Yandaki hücreleri otomatik doldurma

[Berglakin]

Evet F sütununa herhangi bir veri girildiğinde, G sütununa tarih yazar. #15 numaralı mesajınızda paylaştığınız kod tam olarak bunu yapıyor. Ben isteğiniz doğrultusunda iki kodu birleştirdim.

Yanlış ifade etmişim isteğimi o halde kusura bakmayın, ben a sutununa yazdığımda f sutununda yazmasını istemiştim :/ yoruyorum sizi hakkınızı helal edin lütfen

 

[dEdE]

Sorunu açık ve net bir şekilde ifade edebildiğimiz sürece anlaşılması daha kolay olur

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
    ss = Cells(Rows.Count, "A").End(3).Row - 1
    Aranan = Target.Value
    Set c = Range("A2:A" & ss).Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Range(Cells(c.Row, 2).Address, Cells(c.Row, 4).Address).Copy Cells(Target.Row, 2)
        Cells(Target.Row, 6) = Date
        Exit Sub
    Else
        MsgBox "Aradığınız kayıt bulunamadı.", vbInformation, "D İ K K A T !!!"
    End If
End If
End Sub

 

[Berglakin]

Çok teşekkür ederim emeğinize sağlık