Como puedo Hacer para que la macro funcione en más Cel

Hola siendo nuevo por aquí tengo una duda con respecto a una macro, lo que pasa es que quiero amplear el rango de este configo, para que me lo muestre en la celdas siguientes que serian c4, c5, c6, c7, etc. Hasta llegar a 3000 que son los productos que manejo, de antemano gracias.
If Target.Address = ("$H$3") Then
Range("C3") = Range("C3") + Range("H3")
End If
If Target.Address = ("$I$3") Then
Range("C3") = Range("C3") - Range("I3")
End If

1 respuesta

Respuesta
1
Podrías poner algo así
If Not (Intersect(Target,Range("H4:H3000") ) is Nothing) Then
  Cells(Target.Row,3) = Cells(Target.Row,3)+Cells(Target.Row,8)
Endif
If Not (Intersect(Target,Range("I4:I3000") ) is Nothing) Then
  Cells(Target.Row,3) = Cells(Target.Row,3)-Cells(Target.Row,9)
Endif

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas