Hola
Jaime. Bienvenido a foros del web...
Imagina que en la celda B10 tienes el importe de una factura (la base imponible de la misma, o lo que quieras). Supongamos que cada vez que cambia el importe, quieres que se genere un nº de factura correlativo, y que el número de factura está en la celda A5 (que es la que cambiará, al cambiar la celda B10).
Tan solo tienes que colocar este código en la hoja de cálculo donde quieras incrementar 1 el valor de la celda en cuestión (ya sabes, Alt + F11, para entrar en modo VBA):
Código:
'Este procedimiento se ejecutará cada vez que cambiemos
'algo de la hoja donde tengamos este código
Private Sub Worksheet_Change(ByVal Target As Range)
'y más concretamente, se ejecutará el código SOLO
'Y EXCLUSIVAMENTE, cuando cambie el valor de la celda B10
If Target.Cells = Range("B10") Then
'¿qué haremos llegado el caso?
'pues coger el valor de A5, sumarle 1,
'y volver a poner ese valor en A5
Range("A5") = Range("A5") + 1
End If
End Sub
Salu2