Error 9 subíndice fuera de intervalo

Cerrado
Message postés
4
Date d'inscription
lunes, 5 de diciembre de 2016
Estatus
Miembro
Última intervención
miércoles, 28 de diciembre de 2016
-
Hola, tengo un pequeño problema y es que estoy programando en el visual basic de excel una macro para hacer suman en una msima celda, la estoy copiando de un vídeo de EspecialistasEnExcel en youtube lo dejo por acá: https://www.youtube.com/watch?v=YLrE5Wd70GQ lo copio todo bien, desde la primera vez que lo usé no funcionó, me dice error 9 subíndice fuera de intervalo, sinceramente no sé a qué se refiere con eso y de hecho cada vez que escribo algo sobre la línea que me señala me la pone en amarillo, cualquier cosa. Voy a dejar el codigo para que lo revisen, por favor y muchas gracias.

Option Explicit
Dim valor As Long
Dim cantidadVeces As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
cantidadVeces = cantidadVeces + 1

If Sheets("Sistema").Range("F4").Value = ñ Then
Sheets("Sistema").Range("F4").Value = 0* acá es donde me da error

Exit Sub
End If


If cantidadVeces > 1 Then
Exit Sub
End If

valor = valor + Sheets("Sistema").Range("F4").Value
Sheets("Sistema").Range("F4").Value = valor

End If


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valor = 0
cantidadVeces = 0

If Target.Address = "$F$4" Then
valor = Sheets("Sistema").Range("F4").Value* antes también me lo dio acá
End If

End Sub