Saltar al contenido

Macro para copiar el valor numerico de una celda (I1) incrementandolo en uno

publicado

Necesito crear una macro que copie el valor númerico de una celda de referencia incrementandolo en una unidad y que al mismo tiempo actualice la celda de referencia situandose para finalizar en la celda de origen. Ejemplo: si estoy situado el la celda (I8) necesito que copie el valor de la celda (I1) = 6 incrementandolo en una unidad. (I8) = 7. Actualizando el valor de la celda de referencia (I1) = 7 y finalizando su posicion en la celda de origen (I8)

Featured Replies

publicado

Si lo he entendido bien

Sub Ejecuta()
    ActiveCell = Range("I1") + 1
    Range("I1") = ActiveCell
End Sub

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.