makro ile işlem yapma

[kotell]

ek doyada makroyla bi islemim var vardımcı olurmusunuz

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [G20]) Is Nothing Then Exit Sub
Set k = Range("B3:B" & Rows.Count).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Cells(k.Row, "E").Value = Range("G15").Value
    Cells(k.Row, "F").Value = Range("G16").Value
    Cells(k.Row, "G").Value = Range("G17").Value
    Cells(k.Row, "I").Value = Range("G18").Value
    Cells(k.Row, "J").Value = Range("G19").Value
End If
End Sub

 

[kotell]

abi tesekkür ederim ben sana soylemeye sıkılmıştım iyi bayramlar tesekkür ederim

 

[Orion1]

abi tesekkür ederim ben sana soylemeye sıkılmıştım iyi bayramlar tesekkür ederim

Rica ederim.
İyi bayramlar.