Número consecutivo en excel...
Hola!
... Lo puedo realizar en una hoja de excel, pero al crear una nueva hoja, ya no me sale el número consecutivo, sino me queda el mismo. Le anexo la macro que tengo para esto:
Sub Libro()
Range("F2").Select
ActiveCell.FormulaR1C1 = Range("F2").Value + 1
End Sub
... Lo puedo realizar en una hoja de excel, pero al crear una nueva hoja, ya no me sale el número consecutivo, sino me queda el mismo. Le anexo la macro que tengo para esto:
Sub Libro()
Range("F2").Select
ActiveCell.FormulaR1C1 = Range("F2").Value + 1
End Sub
1 Respuesta
Respuesta de calvuch
1
En un modulo nuevo usa este macro
Option Explicit
Dim t As Long
Sub Libro()
Range("F2").Select
[f2] = t
t = t + 1
End Sub
Así siempre utilizas el ultimo valor asignado a la variable T que es Global para todo el proyecto ( Libro)
Option Explicit
Dim t As Long
Sub Libro()
Range("F2").Select
[f2] = t
t = t + 1
End Sub
Así siempre utilizas el ultimo valor asignado a la variable T que es Global para todo el proyecto ( Libro)
Hola! Gracias por ayudarme, sabes en la misma hoja me funciona bien. El detalle es cuando guardo y doy nueva hoja (en el mismo libro) en esa nueva no me da el siguiente número, sino queda el mismo que ya tenía.
Mira en lo de guardar y nueva hoja lo tengo así:
Sub GUARDARYNUEVAHOJA()
'
' GUARDARYNUEVAHOJA Macro
'
'
ActiveWorkbook.Save
Sheets("NOTA").Select
Sheets("NOTA").Copy After:=Sheets(4)
End Sub
Mira en lo de guardar y nueva hoja lo tengo así:
Sub GUARDARYNUEVAHOJA()
'
' GUARDARYNUEVAHOJA Macro
'
'
ActiveWorkbook.Save
Sheets("NOTA").Select
Sheets("NOTA").Copy After:=Sheets(4)
End Sub
Insisto el valor lo toma de la variable T que es global, si no la declaraste en un modulo después de la linea Option explicit, solo sera local y no te pasara el valor a las otras hojas ( no otros libros)
Prueba así
En un "nuevo modulo" pones
Option Explicit
Public t As Long
Sub Libro()
Range("F2").Select
[f2] = t
t = t + 1
End Sub
Así si te pasas de una hoja a otra y ejecutas el macro libro siempre estarás tomando el valor de variable T, independiente de si grabas o no.
Prueba así
En un "nuevo modulo" pones
Option Explicit
Public t As Long
Sub Libro()
Range("F2").Select
[f2] = t
t = t + 1
End Sub
Así si te pasas de una hoja a otra y ejecutas el macro libro siempre estarás tomando el valor de variable T, independiente de si grabas o no.
