Crear nueva hoja (parmijo)
Hola experto parmijo, con la macro que me enviaste solucione un gran problema.
Sub Insertahoja()
'Creada por experto parmijo
Dim x As String
x = InputBox("Ingrese Nombre de la Hoja")
Sheets.Add.Name = x
End Sub
Pero me surgió otro problema, y solicito tu ayuda para resolverlo.
Si en el Inputbox, le doy un nombre de hoja existente me marca error 1004, y agrega una hoja1.
La ayuda que te pido es que me salga un mensaje con las opciones:
La hoja "Datos" ya existe, la quieres actualizar o Cancelar si no la quiero modificar.
Saludos Raul
Sub Insertahoja()
'Creada por experto parmijo
Dim x As String
x = InputBox("Ingrese Nombre de la Hoja")
Sheets.Add.Name = x
End Sub
Pero me surgió otro problema, y solicito tu ayuda para resolverlo.
Si en el Inputbox, le doy un nombre de hoja existente me marca error 1004, y agrega una hoja1.
La ayuda que te pido es que me salga un mensaje con las opciones:
La hoja "Datos" ya existe, la quieres actualizar o Cancelar si no la quiero modificar.
Saludos Raul
{"Lat":21.9430455334382,"Lng":-101.25}
1 respuesta
Respuesta de parmijo
1
Prueba con la siguiente macro:
Sub comprobar_la_existencia_de_la_hoja()
'***************************************
hoja_de_calculo = InputBox("Ingrese Nombre de la Hoja")
'***************************************
On Error Resume Next
Sheets(hoja_de_calculo).Select
'comprobamos si existe o no la hoja
If ActiveSheet.Name <> hoja_de_calculo Then
respuesta = MsgBox("La hoja de cálculo no existe." + Chr(13) + "¿Deseas crear una " _
+ "hoja de cálculo que se llame """ & hoja_de_calculo & """?", vbOKCancel, "Pregunta")
If respuesta = 1 Then
'Añadimos la hoja
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = hoja_de_calculo
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ha " _
+ "sido creada.", vbOKOnly, "Conclusión")
End If
Else
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ya " _
+ "existe.", vbOKOnly, "Conclusión")
End If
End Sub
Fuente:http://hojas-de-calculo-en-excel.blogspot.com/2008/02/verificar-si-existe-o-no-una-hoja-del.html
Sub comprobar_la_existencia_de_la_hoja()
'***************************************
hoja_de_calculo = InputBox("Ingrese Nombre de la Hoja")
'***************************************
On Error Resume Next
Sheets(hoja_de_calculo).Select
'comprobamos si existe o no la hoja
If ActiveSheet.Name <> hoja_de_calculo Then
respuesta = MsgBox("La hoja de cálculo no existe." + Chr(13) + "¿Deseas crear una " _
+ "hoja de cálculo que se llame """ & hoja_de_calculo & """?", vbOKCancel, "Pregunta")
If respuesta = 1 Then
'Añadimos la hoja
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = hoja_de_calculo
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ha " _
+ "sido creada.", vbOKOnly, "Conclusión")
End If
Else
mensaje = MsgBox("La hoja de cálculo """ & hoja_de_calculo & """ ya " _
+ "existe.", vbOKOnly, "Conclusión")
End If
End Sub
Fuente:http://hojas-de-calculo-en-excel.blogspot.com/2008/02/verificar-si-existe-o-no-una-hoja-del.html
Buen día experto parmijo, una respuesta excelente, de la misma calidad que los vinos producidos en tu País Chile.
Gracias y Feliz Navidad.
Gracias y Feliz Navidad.
