hola me podrias ayudar a revisar que me falta en mi programacion por favor
Sub Button6_Click()
[C3] = [C3] + 1
'
' Consecutivo Macro
'
'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-4]C&R[-1]C&R[-3]C"
Range("C6").Select
'
'
' Folio Macro
'
'
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R6C3"
'
'
End Sub
me sale un error cuando aprieto varias veces el boton
necesito tu ayuda por fa
Leticia
Pues he copiado tal cual tu macro, y no me sale ningún error al pulsar muchas veces (lento y rápido) el botón.
Lo que sí veo es que la fórmula que pones en "Consecutivo macro" depende de la celda activa. Si has pinchado en una celda, ahí se pondrá la fórmula.
Puede ocurrir que a mí no me dé error por un comportamiento de Excel que se haya añadido a partir de cierta versión (esto es pura elucubración, no tengo instaladas versiones anteriores para probar).
Lo que hace tu macro es cambiar el valor de la celda C3, luego se va a la celda activa y coloca una fórmula que hace referencia a 3 celdas que están por encima de ella. Finalmente selecciona H2, y cambia también la fórmula.
La segunda vez que pulsas el botón, la celda activa es H2, y solo tiene una celda por encima, por lo que puede ser que el error que te da sea porque intenta colocar la fórmula en la celda activa, pero hace referencia a celdas que están fuera de la hoja.
En mi caso no me da error, porque le da la vuelta a la hoja y continúa contando desde el final.
¿Puede ser eso?
Un saludo