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?
1

1 Respuesta

174.475 pts. las fallas constantes de esta web me cansaron!! me voy...
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas