Macro para numero consecutivo
Buenas tardes,
Resulta que necesito crear un macro para asignarla, el cual al dar clic me cambie el valor de una celda (comienza en 0000), cada que le de clic me aumene un numero, es decir me de un numero conceutivo.
Agradezco en lo que me puedan ayudar.
Resulta que necesito crear un macro para asignarla, el cual al dar clic me cambie el valor de una celda (comienza en 0000), cada que le de clic me aumene un numero, es decir me de un numero conceutivo.
Agradezco en lo que me puedan ayudar.
1 Respuesta
Respuesta de owate
1
Supongamos que la celda que contiene el valor es la A1,
En la celda A2 pondresmos una fórmulta del tipo "=A1+n", donde n es el número que deseamos se incremente.
La macro que haría que el valor de A1 cambie en n unidades es la siguiente:
Sub Suma()
'
' Suma Macro
'
'
Range("A2").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
En la celda A2 pondresmos una fórmulta del tipo "=A1+n", donde n es el número que deseamos se incremente.
La macro que haría que el valor de A1 cambie en n unidades es la siguiente:
Sub Suma()
'
' Suma Macro
'
'
Range("A2").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
