¿como capturo un mensaje de error ?

Manuel, no me deja cambiarle el nombre! cuando pongo un nombre repetido, se
cicla y no me da oportunidad de cambiarlo

"Manuel Romero" escribió:

Mira en tu codigo mas abajo

> estuve haciendo unas pruebas y me surgio otra duda, como te daras cuenta no
> soy muy bueno para esto
>
>> On Error Resume Next
>> Set ws=Sheets(UserForm1.Text1.Text)
>> On Error GoTo 0
>> If ws Is Nothing Then
> aqui le pones que si ws no vale nada entonces le ponga el valor de
> UserForm1.Text1.Text, pero en ese caso que no seria nulo?
> otra mas, si no es nulo el valo cuando lo va a poner, siempre me va a estar
> mandando al error no?, porque no hay opcion de escoger una respuesta valida?,
> o me equivoco?
>
>> Sheets("mes_new").Name = UserForm1.Text1.Text
>> Else
>> MsgBox "Aqui va tu mensaje"
>>> End If
>
> te mando el cuerpo completo de mi macro para que la veas:
>
> Sub Nombra_mes()
> '
> ' Nombra_mes Macro
> ' Acceso directo: CTRL+t
> ' Macro grabada el 27/09/2005 por Gabriel Diaz
> ' cualquier comentario favor de dirigirlo a
> '
> '
> UserForm1.Show
> End Sub
>
>
> Sub CreaMes()
> '
> ' CreaMes Macro
> ' Acceso directo: N/A
> ' Macro grabada el 18/07/2005 por Gabriel Diaz
> ' cualquier comentario favor de dirigirlo a
> '
> '
>
> 'esta parte oculta al usuario lo que hace la macro
> Application.ScreenUpdating = False
>
> 'esta parte desprotege al libro
> ActiveWorkbook.Unprotect
> 'esta parte agrega una hoja nueva al libro
> Sheets.Add
> ActiveSheet.Name = "mes_new"
> 'esta parte hace visible la hoja fuente llamada "mes_bco" y
> 'copia la informacion a la hoja nueva llamada "mes_new"
> Sheets("mes_bco").Visible = 1
> Sheets("mes_bco").Select
> ActiveSheet.Unprotect
> Cells.Select
> Selection.Copy
> Sheets("mes_new").Select
> ActiveSheet.Paste
> 'esta parte da el formato adecuado a la hoja nueva
> Range("A1:R1").Select
> ActiveWindow.Zoom = True
> Range("C11").Select
> ActiveWindow.FreezePanes = True
> Application.CutCopyMode = False
> With ActiveSheet.PageSetup
> .PrintTitleRows = "$9:$10"
> .PrintTitleColumns = ""
> End With
> ActiveSheet.PageSetup.PrintArea = ""
> With ActiveSheet.PageSetup
> .LeftHeader = ""
> .CenterHeader = ""
> .RightHeader = ""
> .LeftFooter = ""
> .CenterFooter = ""
> .RightFooter = ""
> .LeftMargin = Application.InchesToPoints(0.393700787401575)
> .RightMargin = Application.InchesToPoints(0.393700787401575)
> .TopMargin = Application.InchesToPoints(0.393700787401575)
> .BottomMargin = Application.InchesToPoints(0.393700787401575)
> .HeaderMargin = Application.InchesToPoints(0)
> .FooterMargin = Application.InchesToPoints(0)
> .PrintHeadings = False
> .PrintGridlines = False
> .PrintComments = xlPrintNoComments
> .CenterHorizontally = False
> .CenterVertically = False
> .Orientation = xlLandscape
> .Draft = False
> .PaperSize = xlPaperLetter
> .FirstPageNumber = xlAutomatic
> .Order = xlDownThenOver
> .BlackAndWhite = False
> .Zoom = False
> .FitToPagesWide = 1
> .FitToPagesTall = 4
> .PrintErrors = xlPrintErrorsDisplayed
> End With
> 'esta parte le pone el nombre a la hoja que el usuario definio
> Sheets("mes_new").Select
dim wb as worksheet
on error resume next
do
set wb=sheets(userform1.text1.text)
if wb is nothing then exit do
msgbox "Ese nombre ya existe, cambialo!"
userform1.show
loop
activesheet.name=userform1.text1.text
on error goto 0
> ' Sheets("mes_new").Name = UserForm1.Text1.Text
>
> 'esto fue ayuda de KL de grupos de discusion de excel
> 'On Error Resume Next
> ' Set ws = Sheets(UserForm1.Text1.Text)
> ' On Error GoTo 0
> ' If ws Is Nothing Then
> ' Sheets("mes_new").Name = UserForm1.Text1.Text
> ' Else
> ' MsgBox "Ese nombre ya existe, cambialo."
> ' UserForm2.Show
> ' End If
>
> 'esta parte inserta la seguridad al libro, a la hoja y esconde la hoja fuente
> Range("A11").Select
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
> Sheets("mes_bco").Select
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
> Sheets("mes_bco").Visible = 0
> ActiveWorkbook.Protect Structure:=True, Windows:=False
>
> 'esta parte desoculta al usuario lo que hace la macro
> Application.ScreenUpdating = True
>
> End Sub
>
> Sub Cambia_Nombre()
> '
> ' Cambia_Nombre Macro
> ' Acceso directo: N/A
> ' Macro grabada el 11/10/2005 por Gabriel Díaz
> ' cualquier comentario favor de dirigirlo a
> '
> '
> 'esta parte oculta al usuario lo que hace la macro
> Application.ScreenUpdating = False
>
> 'esta parte desprotege la hoja y el libro
> ActiveSheet.Unprotect
> ActiveWorkbook.Unprotect
>
> 'esta parte selecciona y cambia de nombre al libro
> Sheets("mes_new").Select
> On Error Resume Next
> Set ws2 = Sheets(UserForm2.Text2.Text)
> On Error GoTo 0
> If ws2 Is Nothing Then
> Sheets("mes_new").Name = UserForm2.Text2.Text
> Else
> MsgBox "Ese nombre ya existe, cambialo."
> UserForm2.Show
> End If
> ActiveWorkbook.Protect Structure:=True, Windows:=False
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
>
> 'esta parte desoculta al usuario lo que hace la macro
> Application.ScreenUpdating = True
>
> End Sub
>
>
> Sub Nuevo_año()
> '
> ' Nuevo_año Macro
> ' Acceso directo: CTRL+g
> ' Macro grabada el 27/09/2005 por Gabriel Díaz
> ' cualquier comentario favor de dirigirlo a
> '
> '
> Workbooks.Add Template:="C:\Gasolinera\RegistroGas_bco.xls"
> End Sub
>
>
> "gdiaz" escribió:
>
>> Muy bien KL, solo que ahi se detiene la macro, no hay alguna opcion para que
>> capture el error, pida un nuevo nombre y siga con la macro?
>>
>> "KL" escribió:
>>
>>> Hola gdiaz,
>>>
>>> Que tal esto:
>>>
>>> On Error Resume Next
>>> Set ws=Sheets(UserForm1.Text1.Text)
>>> On Error GoTo 0
>>> If ws Is Nothing Then
>>> Sheets("mes_new").Name = UserForm1.Text1.Text
>>> Else
>>> MsgBox "Aqui va tu mensaje"
>>> End If
>>>
>>> Saludos,
>>> KL
>>>
>>>
>>> "gdiaz" wrote in message
>>> news:
>>>> Manuel, te voy a poner parte del codigo para que veas como tengo el
>>>> problema:
>>>> primero cree un user form para capturar el nombre que quiere el usuario,
>>>> al
>>>> que llame "userform1", el cuadro de texto retiene la informacion.
>>>> luego creo la nueva hoja y le doy todos los formatos que necesita la hoja
>>>> y
>>>> al final le cambio el nombre "mes_new" al nombre del usuario asi:
>>>>
>>>> 'esta parte le pone el nombre a la hoja que el usuario definio
>>>> Sheets("mes_new").Select
>>>> Sheets("mes_new").Name = UserForm1.Text1.Text
>>>>
>>>> pero si el usuario repite un nombre que ya existe truena la macro y deja
>>>> todo sin terminar.
>>>> lo que tu me dices es un loop, pero no estaria haciendo lo mismo? ademas
>>>> de
>>>> que no esta en vba, no? ya que hice una prueba y me marca procedimiento
>>>> interno no valido en el do
>>>>
>>>>
>>>> "Manuel Romero" escribio:
>>>>
>>>>> dim nombre as string
>>>>> dim wb as sheet
>>>>>
>>>>> do
>>>>> nombre=inputbox("deme un nombre:")
>>>>> set wb=activeworkbook.sheets(nombre)
>>>>> loop until wb is nothing
>>>>>
>>>>>> hola, tengo el siguiente problema:
>>>>>> tengo una macro que pide se capture un el nombre para una hoja nueva,
>>>>>> que
>>>>>> puedo hacer si el usuario captura un nombre que ya existe, para que la
>>>>>> macro
>>>>>> no truene y le vuelva a pedir otro nombre?
>>>>>
>>>>>
>>>>>
>>>
>>>
>>>

Hola gdiaz,

Creo que la cuestion es como llamas el macro "Nombra_mes". Me imagino que lo
haces a traves de algun boton, digamos "CommandButton1" que se encuentra en
el formulario "UserForm1". Si es cierto, entonces podrias copiar el
siguienete codigo en el modulo de UserForm1:

'-Inicio Codigo
Private Sub CommandButton1_Click()
Call CreaMes
End Sub

Sub CreaMes()
Dim Nombre As String
Nombre = UserForm1.Text1.Text
If Nombre <> "" And NombreValido(Nombre) _
And NombreUnico(Nombre) Then
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
With Sheets("mes_bco")
.Visible = True
.Copy , Sheets(Sheets.Count)
With ActiveSheet
.Name = Nombre
.Protect
End With
.Visible = False
End With
ActiveWorkbook.Protect Structure:=True, Windows:=False
Application.ScreenUpdating = True
Unload Me
End If
End Sub

Function NombreValido(Nombre As String) As Boolean
Dim CarInvalidos As Variant
Dim i As Long
CarInvalidos = Array(":", "\", "/", "?", "*", "[", "]")
For i = 0 To UBound(CarInvalidos)
If InStr(Nombre, CarInvalidos(i)) Then
MsgBox "El nombre " & Nombre _
& " contiene caracteres invalidos (" _
& CarInvalidos(i) & ")."
NombreValido = False
Exit Function
End If
Next i
NombreValido = True
End Function

Function NombreUnico(Nombre As String) As Boolean
Dim hoja
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name = Nombre Then
NombreUnico = False
MsgBox "El nombre " & Nombre _
& " ya existe."
Exit Function
End If
Next hoja
NombreUnico = True
End Function
'-Fin Codigo

Saludos,
KL


"gdiaz" wrote in message
news:

Muy bien KL, solo que ahi se detiene la macro, no hay alguna opcion para
que
capture el error, pida un nuevo nombre y siga con la macro?

"KL" escribio:

Hola gdiaz,

Que tal esto:

On Error Resume Next
Set ws=Sheets(UserForm1.Text1.Text)
On Error GoTo 0
If ws Is Nothing Then
Sheets("mes_new").Name = UserForm1.Text1.Text
Else
MsgBox "Aqui va tu mensaje"
End If

Saludos,
KL


"gdiaz" wrote in message
news:
> Manuel, te voy a poner parte del codigo para que veas como tengo el
> problema:
> primero cree un user form para capturar el nombre que quiere el
> usuario,
> al
> que llame "userform1", el cuadro de texto retiene la informacion.
> luego creo la nueva hoja y le doy todos los formatos que necesita la
> hoja
> y
> al final le cambio el nombre "mes_new" al nombre del usuario asi:
>
> 'esta parte le pone el nombre a la hoja que el usuario definio
> Sheets("mes_new").Select
> Sheets("mes_new").Name = UserForm1.Text1.Text
>
> pero si el usuario repite un nombre que ya existe truena la macro y
> deja
> todo sin terminar.
> lo que tu me dices es un loop, pero no estaria haciendo lo mismo?
> ademas
> de
> que no esta en vba, no? ya que hice una prueba y me marca procedimiento
> interno no valido en el do
>
>
> "Manuel Romero" escribio:
>
>> dim nombre as string
>> dim wb as sheet
>>
>> do
>> nombre=inputbox("deme un nombre:")
>> set wb=activeworkbook.sheets(nombre)
>> loop until wb is nothing
>>
>> > hola, tengo el siguiente problema:
>> > tengo una macro que pide se capture un el nombre para una hoja
>> > nueva,
>> > que
>> > puedo hacer si el usuario captura un nombre que ya existe, para que
>> > la
>> > macro
>> > no truene y le vuelva a pedir otro nombre?
>>
>>
>>

No, lo que hice fue lo siguiente: Cree un boton en una barra de herramientas
nueva, este boton al darle clic ejecuta la macro “Nombra_mes” esta macro lo
unico que hace es mostrar “userform1”.
En el userform1 se captura el nombre del mes en el “userform1.text1.text” y
al darle aceptar se oculta el userform1 y se ejecuta la macro “crea_mes” que
es la que hace todo.

ya se que quedo medio complicado pero es que primero solo tenia la macro
crea_mes, pero el usuario final esta mas bruto que yo asi que le fui
agregando "candados" por eso le fui haciendo parches. como ves te mando el
archivo mejor para que lo veas?

"KL" escribió:

Hola gdiaz,

Creo que la cuestion es como llamas el macro "Nombra_mes". Me imagino que lo
haces a traves de algun boton, digamos "CommandButton1" que se encuentra en
el formulario "UserForm1". Si es cierto, entonces podrias copiar el
siguienete codigo en el modulo de UserForm1:

'-Inicio Codigo
Private Sub CommandButton1_Click()
Call CreaMes
End Sub

Sub CreaMes()
Dim Nombre As String
Nombre = UserForm1.Text1.Text
If Nombre <> "" And NombreValido(Nombre) _
And NombreUnico(Nombre) Then
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
With Sheets("mes_bco")
.Visible = True
.Copy , Sheets(Sheets.Count)
With ActiveSheet
.Name = Nombre
.Protect
End With
.Visible = False
End With
ActiveWorkbook.Protect Structure:=True, Windows:=False
Application.ScreenUpdating = True
Unload Me
End If
End Sub

Function NombreValido(Nombre As String) As Boolean
Dim CarInvalidos As Variant
Dim i As Long
CarInvalidos = Array(":", "\", "/", "?", "*", "[", "]")
For i = 0 To UBound(CarInvalidos)
If InStr(Nombre, CarInvalidos(i)) Then
MsgBox "El nombre " & Nombre _
& " contiene caracteres invalidos (" _
& CarInvalidos(i) & ")."
NombreValido = False
Exit Function
End If
Next i
NombreValido = True
End Function

Function NombreUnico(Nombre As String) As Boolean
Dim hoja
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name = Nombre Then
NombreUnico = False
MsgBox "El nombre " & Nombre _
& " ya existe."
Exit Function
End If
Next hoja
NombreUnico = True
End Function
'-Fin Codigo

Saludos,
KL


"gdiaz" wrote in message
news:
> Muy bien KL, solo que ahi se detiene la macro, no hay alguna opcion para
> que
> capture el error, pida un nuevo nombre y siga con la macro?
>
> "KL" escribio:
>
>> Hola gdiaz,
>>
>> Que tal esto:
>>
>> On Error Resume Next
>> Set ws=Sheets(UserForm1.Text1.Text)
>> On Error GoTo 0
>> If ws Is Nothing Then
>> Sheets("mes_new").Name = UserForm1.Text1.Text
>> Else
>> MsgBox "Aqui va tu mensaje"
>> End If
>>
>> Saludos,
>> KL
>>
>>
>> "gdiaz" wrote in message
>> news:
>> > Manuel, te voy a poner parte del codigo para que veas como tengo el
>> > problema:
>> > primero cree un user form para capturar el nombre que quiere el
>> > usuario,
>> > al
>> > que llame "userform1", el cuadro de texto retiene la informacion.
>> > luego creo la nueva hoja y le doy todos los formatos que necesita la
>> > hoja
>> > y
>> > al final le cambio el nombre "mes_new" al nombre del usuario asi:
>> >
>> > 'esta parte le pone el nombre a la hoja que el usuario definio
>> > Sheets("mes_new").Select
>> > Sheets("mes_new").Name = UserForm1.Text1.Text
>> >
>> > pero si el usuario repite un nombre que ya existe truena la macro y
>> > deja
>> > todo sin terminar.
>> > lo que tu me dices es un loop, pero no estaria haciendo lo mismo?
>> > ademas
>> > de
>> > que no esta en vba, no? ya que hice una prueba y me marca procedimiento
>> > interno no valido en el do
>> >
>> >
>> > "Manuel Romero" escribio:
>> >
>> >> dim nombre as string
>> >> dim wb as sheet
>> >>
>> >> do
>> >> nombre=inputbox("deme un nombre:")
>> >> set wb=activeworkbook.sheets(nombre)
>> >> loop until wb is nothing
>> >>
>> >> > hola, tengo el siguiente problema:
>> >> > tengo una macro que pide se capture un el nombre para una hoja
>> >> > nueva,
>> >> > que
>> >> > puedo hacer si el usuario captura un nombre que ya existe, para que
>> >> > la
>> >> > macro
>> >> > no truene y le vuelva a pedir otro nombre?
>> >>
>> >>
>> >>
>>
>>
>>

Hola gdiaz,

No, lo que hice fue lo siguiente: Cree un boton en una barra de
herramientas
nueva, este boton al darle clic ejecuta la macro "Nombra_mes" esta macro
lo
unico que hace es mostrar "userform1".
En el userform1 se captura el nombre del mes en el "userform1.text1.text"
y
al darle aceptar se oculta el userform1 y se ejecuta la macro "crea_mes"
que
es la que hace todo.

ya se que quedo medio complicado pero es que primero solo tenia la macro
crea_mes, pero el usuario final esta mas bruto que yo asi que le fui
agregando "candados" por eso le fui haciendo parches. como ves te mando
el
archivo mejor para que lo veas?

Deberias de haber antepuesto un SI a tu mensaje ya que lo que describes es
justo lo que yo he supuesto, solo que el boton en el "UserForm1" no se llama
"CommandButton1" sino "Aceptar". Asi que pon mi codigo [salvo el
procedimiento 'Private Sub CommandButton_Click()'] en el modulo del
UserForm1 y luego borra todo el codigo dentro del procedimiento 'Private Sub
Aceptar_Click()' [o como se llame tu boton aceptar en realidad] y pon solo
una cosa: crea_mes.

El truco esta en que en vez de hacer que el boton Aceptar cierre el
formulario al finalizar, sea el macro 'Sub crea_mes()' que se encargue de
ello si todo ha ido bien y se ha creado la nueva hoja [si no, el formulario
permanecera abierto]. La linea 'Unload Me' dentro del macro 'Sub crea_mes()'
es la responsable de cerrar el formulario.

Saludos,
KL

Por cierto, no he recibido tu archivo, sera porque no has quitado las
palabras NOSPAM y PLEASE de la direccion.

Saludos,
KL


"gdiaz" wrote in message
news:

No, lo que hice fue lo siguiente: Cree un boton en una barra de
herramientas
nueva, este boton al darle clic ejecuta la macro "Nombra_mes" esta macro
lo
unico que hace es mostrar "userform1".
En el userform1 se captura el nombre del mes en el "userform1.text1.text"
y
al darle aceptar se oculta el userform1 y se ejecuta la macro "crea_mes"
que
es la que hace todo.

ya se que quedo medio complicado pero es que primero solo tenia la macro
crea_mes, pero el usuario final esta mas bruto que yo asi que le fui
agregando "candados" por eso le fui haciendo parches. como ves te mando
el
archivo mejor para que lo veas?

"KL" escribio:

Hola gdiaz,

Creo que la cuestion es como llamas el macro "Nombra_mes". Me imagino que
lo
haces a traves de algun boton, digamos "CommandButton1" que se encuentra
en
el formulario "UserForm1". Si es cierto, entonces podrias copiar el
siguienete codigo en el modulo de UserForm1:

'-Inicio Codigo
Private Sub CommandButton1_Click()
Call CreaMes
End Sub

Sub CreaMes()
Dim Nombre As String
Nombre = UserForm1.Text1.Text
If Nombre <> "" And NombreValido(Nombre) _
And NombreUnico(Nombre) Then
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
With Sheets("mes_bco")
.Visible = True
.Copy , Sheets(Sheets.Count)
With ActiveSheet
.Name = Nombre
.Protect
End With
.Visible = False
End With
ActiveWorkbook.Protect Structure:=True, Windows:=False
Application.ScreenUpdating = True
Unload Me
End If
End Sub

Function NombreValido(Nombre As String) As Boolean
Dim CarInvalidos As Variant
Dim i As Long
CarInvalidos = Array(":", "\", "/", "?", "*", "[", "]")
For i = 0 To UBound(CarInvalidos)
If InStr(Nombre, CarInvalidos(i)) Then
MsgBox "El nombre " & Nombre _
& " contiene caracteres invalidos (" _
& CarInvalidos(i) & ")."
NombreValido = False
Exit Function
End If
Next i
NombreValido = True
End Function

Function NombreUnico(Nombre As String) As Boolean
Dim hoja
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name = Nombre Then
NombreUnico = False
MsgBox "El nombre " & Nombre _
& " ya existe."
Exit Function
End If
Next hoja
NombreUnico = True
End Function
'-Fin Codigo

Saludos,
KL


"gdiaz" wrote in message
news:
> Muy bien KL, solo que ahi se detiene la macro, no hay alguna opcion
> para
> que
> capture el error, pida un nuevo nombre y siga con la macro?
>
> "KL" escribio:
>
>> Hola gdiaz,
>>
>> Que tal esto:
>>
>> On Error Resume Next
>> Set ws=Sheets(UserForm1.Text1.Text)
>> On Error GoTo 0
>> If ws Is Nothing Then
>> Sheets("mes_new").Name = UserForm1.Text1.Text
>> Else
>> MsgBox "Aqui va tu mensaje"
>> End If
>>
>> Saludos,
>> KL
>>
>>
>> "gdiaz" wrote in message
>> news:
>> > Manuel, te voy a poner parte del codigo para que veas como tengo el
>> > problema:
>> > primero cree un user form para capturar el nombre que quiere el
>> > usuario,
>> > al
>> > que llame "userform1", el cuadro de texto retiene la informacion.
>> > luego creo la nueva hoja y le doy todos los formatos que necesita la
>> > hoja
>> > y
>> > al final le cambio el nombre "mes_new" al nombre del usuario asi:
>> >
>> > 'esta parte le pone el nombre a la hoja que el usuario definio
>> > Sheets("mes_new").Select
>> > Sheets("mes_new").Name = UserForm1.Text1.Text
>> >
>> > pero si el usuario repite un nombre que ya existe truena la macro y
>> > deja
>> > todo sin terminar.
>> > lo que tu me dices es un loop, pero no estaria haciendo lo mismo?
>> > ademas
>> > de
>> > que no esta en vba, no? ya que hice una prueba y me marca
>> > procedimiento
>> > interno no valido en el do
>> >
>> >
>> > "Manuel Romero" escribio:
>> >
>> >> dim nombre as string
>> >> dim wb as sheet
>> >>
>> >> do
>> >> nombre=inputbox("deme un nombre:")
>> >> set wb=activeworkbook.sheets(nombre)
>> >> loop until wb is nothing
>> >>
>> >> > hola, tengo el siguiente problema:
>> >> > tengo una macro que pide se capture un el nombre para una hoja
>> >> > nueva,
>> >> > que
>> >> > puedo hacer si el usuario captura un nombre que ya existe, para
>> >> > que
>> >> > la
>> >> > macro
>> >> > no truene y le vuelva a pedir otro nombre?
>> >>
>> >>
>> >>
>>
>>
>>