Üstteki Kayıtları Sorgulama

[ataniyazi]

A6 Hücresine Madde Numarasını Yazınca
Eğer kendi üstündeki kayıtlarda bu
madde numarası varsa bulduğu yerin yanındaki bilgileri yeni C6 D6 E6 F6 ya getirmesi yoksa bu hücreleri bizim yeni kayıt girişimiz için boş bırakması .Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sheet1 in kod sayfasına kopyalayın. A sütununa değer girdiğinizde kod kendiliğinden çalışacaktır.

[vb:1:b59f1d30d7]Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, [a:a]) Is Nothing Or Target = 0 Then Exit Sub
sat = Range("a1:a" & Target.Row - 1).Find(Target.Value).Row
For a = 2 To 6
Cells(Target.Row, a) = Cells(sat, a)
Next
10 End Sub
[/vb:1:b59f1d30d7]