Inicio > Microsoft Excel > tavopz > Si una hoja existe...

Si una hoja existe...

Experto:
Usuario:
Fecha: 29/04/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
28/04/2008
oscarcito59, usuario preguntando en Microsoft Excel
Usuario
TAVITO: sigo dando vueltas con la agenda... Ahora se me ocurrió un nuevo camino, pero ando cortado en algo...
Necesito una macro (para colocar en un UF, en un botón) que se fije si una hoja EXISTE: si existe, que la lea (ahí ya sé, con App.WSheetF.VLookup...); SI NO EXISTE, que copie la hoja "MATRÍZ" con el nombre que le doy desde un TextBox (en el mismo UF y en el mismo momento).
En limpio: selecciono una fecha en Calendar, y lo que selecciono aparece, en formato dd-mmm, en el TextBox que te digo. Hago click. Si no hay dados turnos todavía para ese día, que me copie la hoja MATRÍZ con el nombre del día (TextBox); si ya existe, que me la lea...
Un abrazo
28/04/2008
oscarcito59, experto respondiendo en Microsoft Excel
Experto
Hola,
Si entendí bien la pregunta. La idea es seleccionar una hoja, pero si no existe entonces que copie otra:
 
Private Sub Boton_Click()
On Error GoTo noexiste
Sheets("Hoja1").Activate
Exit Sub
noexiste:
Sheets("Matriz").Copy
End Sub

 
Pienso que es eso. Intenta seleccionar la Hoja, si te salta error es porque no existe, sino entonces hace la copia.
 
Espero que te funcione.
 
Saludos, Tavopz
29/04/2008
oscarcito59, usuario preguntando en Microsoft Excel
Usuario
TAVO: exista o no exista, considera que no existe... Y me crea hojas del mismo día...
Esto fué lo que adapté (TextBox2=fecha; "MATRÍZ", hoja a copiar SI NO EXISTE LA FECHA; SelecTur=UF siguiente a éste, con carga de datos).
Fijate, please, qué me falta, o qué burrada cometí.
Un abrazo
On Error GoTo noexiste
Sheets(TextBox2.Value).Activate
Load SelectTur
SelecTur.Show
Me.Hide
Exit Sub
noexiste:
Worksheets("MATRÍZ").Activate
Worksheets("MATRÍZ").Copy After:=Sheets("MATRÍZ")
Sheets("MATRÍZ (2)").Name = TextBox2.Value
MsgBox "NO HAY TURNOS DADOS para el Día seleccionado.", vbInformation, "DISPONIBILIDAD PLENA DE HORARIOS"
End Sub
29/04/2008
oscarcito59, experto respondiendo en Microsoft Excel
Experto
Hola,
No veo errores en cuanto al código. La verdad es complicado revisarlo sin entender qué es lo que estás haciendo.
 
Espero que te funcione todo.
 
Saludos, Tavopz
29/04/2008
oscarcito59, usuario preguntando en Microsoft Excel
Usuario
Perfecto, Tavito... Después de varios "ensayo y error", con tu indicación, llegamos a que funcione...
Si querés, te mando lo que "hicimos". Avisame joseoscarrusso@yahoo.com.ar
Un abrazo
Enlaces patrocinados