[/code]
Sub Düğme1_Tıklat()
For Dyn h In Range("a1:h5")
If h = 5 Then
topla = h.Value + topla
End If
Next
[a7] = topla
End Sub
Bu kodu denermisniz.