Hoja
Quisiera que me ayudaras, lo que necesito saber si un hoja con un determinado nomb re existe en un libro y sino existe como la puedo crear.
Gracias.
Atentamente.
jlaurics
Gracias.
Atentamente.
jlaurics
1 Respuesta
Respuesta de tavopz
1
Si te refieres a hacerlo con una macro, puedes usar la siguiente:
===============
Sub CrearHojaNueva()
Dim i As Integer
Dim tmp As Boolean
xx$ = InputBox("Indique el nombre de la hoja a crear")
For i = 1 To Sheets.Count
If Sheets(i).Name = xx Then
tmp = True
End If
Next i
If tmp = False Then
Sheets.Add
ActiveSheet.Name = xx
MsgBox ("Se creó la hoja " & xx)
Else
MsgBox ("La hoja " & xx & " ya existe, no se puede crear")
End If
End Sub
============
Si tienes alguna inquietud al respecto no dudes en preguntar nuevamente.
PD:
===============
Sub CrearHojaNueva()
Dim i As Integer
Dim tmp As Boolean
xx$ = InputBox("Indique el nombre de la hoja a crear")
For i = 1 To Sheets.Count
If Sheets(i).Name = xx Then
tmp = True
End If
Next i
If tmp = False Then
Sheets.Add
ActiveSheet.Name = xx
MsgBox ("Se creó la hoja " & xx)
Else
MsgBox ("La hoja " & xx & " ya existe, no se puede crear")
End If
End Sub
============
Si tienes alguna inquietud al respecto no dudes en preguntar nuevamente.
PD:
