makro düsey ara

[oydemir]

arkadaşlar düşey ara formülünü makroyla yapmak istiyorum
formda birkaç örnek buldum
fakat şimdiye kadar hiç makro yazmadıgım için bana yabancı dil gibi geldi
şimdi sade bir kot yazabilirsem sevinirim.ilginiz için teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long, sh As Worksheet, k As Range
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
Set sh = Sheets("bulunacak")
Target.Offset(0, 1).ClearContents
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Target.Offset(0, 1).Value = k.Offset(0, 1).Value

End Sub

 

[oydemir]

eline saglık teşekkürler ama ben bunu kendi sayfama uyarlayamadım bu kotların anlamını yazabilirmisin