Satır karşılaştırma

[saklim1981]

Arkadaşlar G20 hücresine daha önceden girilmiş barkotu okutursam (yani girersem) F20 H20 VE I20 hücrelerine önceki girilen değerler otomatik gelsin istiyorum. örnek daha anlaşılır. Lütfen yardımlarınız bekliyorum.

 

[leumruk]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [g2:g65536]) Is Nothing Or Target = "" Then Exit Sub
Set Bul = Range("g2:g" & Target.Row - 1).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Cells(Target.Row, "f") = Cells(Bul.Row, "f")
Cells(Target.Row, "h") = Cells(Bul.Row, "h")
Cells(Target.Row, "I") = Cells(Bul.Row, "I")
MsgBox "Veriler yerleştirildi.", vbInformation, "DURUM"
End If
Son:
End Sub