Crear hoja automática
Buenos días a todos
Soy bastante novato en esto por lo que seguro que lo que pido es mucho pero he de intentarlo.
Necesito crear una macro para abrir un hoja nueva cuyo nombre sea la fecha del día en curso ( hasta aquí lo tengo conseguido ) y en donde iré entrando datos descargados en tandas desde un lector de código de barras; además quiero que lo haga mediante un botón que llamaré "Entrada de datos" en la página principal ( esto también lo tengo ), el problema lo tengo en que como los datos se añaden en tandas cuando quiero volver a añadir datos dándole al botón, como ya hay una hoja con la fecha actual me da error.
Lo que quisiera entonces es que si ya exisite una hoja con el nombre de la fecha en curso, el cursor se coloque en la primera celda libre de la primera columna, y que sólo abra una hoja nueva si no hay ninguna con el nombre ya asignado.
¿Es esto posible?
Soy bastante novato en esto por lo que seguro que lo que pido es mucho pero he de intentarlo.
Necesito crear una macro para abrir un hoja nueva cuyo nombre sea la fecha del día en curso ( hasta aquí lo tengo conseguido ) y en donde iré entrando datos descargados en tandas desde un lector de código de barras; además quiero que lo haga mediante un botón que llamaré "Entrada de datos" en la página principal ( esto también lo tengo ), el problema lo tengo en que como los datos se añaden en tandas cuando quiero volver a añadir datos dándole al botón, como ya hay una hoja con la fecha actual me da error.
Lo que quisiera entonces es que si ya exisite una hoja con el nombre de la fecha en curso, el cursor se coloque en la primera celda libre de la primera columna, y que sólo abra una hoja nueva si no hay ninguna con el nombre ya asignado.
¿Es esto posible?
1 Respuesta
Respuesta de calvuch
1
Este macro hace lo que quieres
Sub Hoja_automatica()
Dim f As String
f = Date
On Error Resume Next
Worksheets(f).Select
Select Case err.Number
Case Is = 9
Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets.Item(Worksheets.Count).Name = Date
End Select
[A65536].Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
End Sub
Implementalo en tu proyecto
Sub Hoja_automatica()
Dim f As String
f = Date
On Error Resume Next
Worksheets(f).Select
Select Case err.Number
Case Is = 9
Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets.Item(Worksheets.Count).Name = Date
End Select
[A65536].Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
End Sub
Implementalo en tu proyecto
