Ayuda con inputbox

[ColdGeorge]

Hola a todos
Esta instrucción es útil para ir a cierta página de mi documento en Word, el problema es que si presiono el botón Aceptar o Cancelar sin haber introducido un valor me muestra un error en la segunda línea. Cualquier ayuda será bienvenida.

Dim pagina As Long
pagina = InputBox("Introduce el número de la página", "Buscador de páginas")
Selection.GoTo wdGoToPage, wdGoToAbsolute, pagina

Gracias de antemano,
ColdGeorge

 

[dmt32]

Hi
having understood your issue via translate I hope reply in English ok

try this update to your code & see if helps

 Dim pagina As Variant
    
    Do
        pagina = InputBox("Introduce el número de la página", "Buscador de páginas")
        'cancel pressed
        If StrPtr(pagina) = 0 Then Exit Sub
    Loop Until Val(pagina) > 0
    
    pagina = CLng(pagina)
    
    Selection.GoTo wdGoToPage, wdGoToAbsolute, pagina

adjust code as required

Dave

 

[ColdGeorge]

Hi Dave
Thanks for your help
This is my final version of code:

Dim pagina As Variant

Do
pagina = InputBox("Introduce el número de la página", "Buscador de páginas")

If StrPtr(pagina) = 0 Then Exit Sub
Loop Until Val(pagina) > 0

pagina = CLng(pagina)

Selection.GoTo wdGoToPage, wdGoToAbsolute, pagina 'your page number here

MsgBox ("Listo estás en la página ") & pagina

End Sub

Thanks again,
ColdGeorge

 

[dmt32]

welcome glad update does what you want & appreciate your feedback

Dave