Excel de sütuna girilen veriyi arama

[myayla]

Ekte göndermiş olduğum sayfada ayrıntılı olarak anlatmaya çalıştım.Yapmak istediğim,sütüna girmiş olduğum verinin aynısı varsa önceki verinin karşısındaki bulunan açıklamarı otomatik olarak yeni yazmış olduğum kısma işlesin.Elimde 2000 ve giderek çoğalan bir liste var ve her defasında Cntr F tuşu ile arayıp aynı isimde kileri bulup eklemek zorunda kalıyorum eğer ki bu işlemi otomatik olarak yapma imkanım olursa işim daha da kolaylaşacak.Yardımlarınız için şimdiden teşekkür ederim...

 

[İhsan Tank]

Ekte göndermiş olduğum sayfada ayrıntılı olarak anlatmaya çalıştım.Yapmak istediğim,sütüna girmiş olduğum verinin aynısı varsa önceki verinin karşısındaki bulunan açıklamarı otomatik olarak yeni yazmış olduğum kısma işlesin.Elimde 2000 ve giderek çoğalan bir liste var ve her defasında Cntr F tuşu ile arayıp aynı isimde kileri bulup eklemek zorunda kalıyorum eğer ki bu işlemi otomatik olarak yapma imkanım olursa işim daha da kolaylaşacak.Yardımlarınız için şimdiden teşekkür ederim...

Merhaba
Sayfa1'in kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B1048576")) Is Nothing Then Exit Sub
Dim ts, kaplan
For ts = 2 To Cells(1048576, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B2:B" & ts), Cells(ts, "B")) _
> 1 Then
If WorksheetFunction.VLookup(Cells(ts, "B"), Range("B2:C" & ts) _
, 2, 0) <> "" Then
Cells(ts, "C") = WorksheetFunction.VLookup(Cells(ts, "B"), _
Range("B2:E" & ts), 2, 0)
Cells(ts, "D") = WorksheetFunction.VLookup(Cells(ts, "B"), _
Range("B2:E" & ts), 3, 0)
Cells(ts, "E") = WorksheetFunction.VLookup(Cells(ts, "B"), _
Range("B2:E" & ts), 4, 0)
Else
Cells(ts, "C") = WorksheetFunction.Index(Range("A2:A" & ts), _
WorksheetFunction.Match(Cells(ts, "B"), Range("B2:B" & ts), 0), 1)
End If
End If
Range("A2") = 1
Range("A2:A" & ts + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, _
Date:=xlDay, step:=1, Trend:=True
Next
End Sub

Bu kodu kopyalayın ve B sütununa giriş yaparak deneyin.
Dosyayı kayıt yaparken makro içerebilen dosya şeklinde kayıt yapınız