Macro ile değer bulup değiştirme

[Sezerkaratas]

Merhaba ben macro dilinde şunu nasıl yazarım
Mesela bi butona macroyu ekledim ve çalıştırdım macroyu

A1 hücresindeki değeri stok sayfasında ara değerin aynısını bulursan 4 yan hücresine +1 ekle

 

[Orion1]

Buyurun.

Sub bulara_59()
Dim sh As Worksheet, sonsat As Long, k As Range
Sheets("Sayfa1").Select
Set sh = Sheets("Stok")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A1:A" & sonsat).Find(Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, 4).Value = k.Offset(0, 4).Value + 1
    sh.Select
Else
    MsgBox "[ " & Range("A1").Value & " ]  Stok sayfasında A sütununda Bulunamadı!!", vbCritical, "UYARI"
    Exit Sub
End If
End Sub

 

[Sezerkaratas]

Abi bee bide şunu satır satır açıklasan sana dua ederim ????