tag:blogger.com,1999:blog-7983188466168395484.post1034646745268895725..comments2023-10-31T14:55:45.413+01:00Comments on Hojas de cálculo Excel: Desplazarse por hojas, con macrosEl pilt®afilla - www.3piesalgato.comhttp://www.blogger.com/profile/17515836395057154507noreply@blogger.comBlogger12125tag:blogger.com,1999:blog-7983188466168395484.post-76360076781463102912010-11-06T19:12:10.320+01:002010-11-06T19:12:10.320+01:00REFERENTE A mi ultimo mensage Tampoco quiero que s...REFERENTE A mi ultimo mensage Tampoco quiero que si por acidente presiono el boton estando en la hoja 1, me acuse errorJoaoMhttps://www.blogger.com/profile/01039858309976031707noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-43033638103367661232010-11-06T19:05:13.819+01:002010-11-06T19:05:13.819+01:00tengo este codigo que casi todo es de acá pero res...tengo este codigo que casi todo es de acá pero resulta que de la hoja 3 regresa a la 2 de la 2 a la 1 perfecto pero de la hoja 4 no sale, no regresa a la 3, no se mueve si estoy ubicado en alguna, 4, 5, 6, ect no se mueve de ahí, ¿donde está el error?<br />Private Sub cmdPrevHoja_Click()<br />Application.ScreenUpdating = False<br /> ComboDoble.clear<br /> cmdLimpiarTodo_Click<br /> If ActiveSheet.Name > Sheets(1).Name Then<br /> ActiveSheet.Previous.Select<br />End If<br /> UserForm_Initialize<br />Application.ScreenUpdating = True<br />End SubJoaoMhttps://www.blogger.com/profile/01039858309976031707noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-48758134281609388722010-09-19T07:02:54.252+02:002010-09-19T07:02:54.252+02:00HOLA A TODOS, SOY MUY NUEVO EN ESTO DE MACROS PARA...HOLA A TODOS, SOY MUY NUEVO EN ESTO DE MACROS PARA EXCEL POR LO TANTO ESTOS CODIGOS ME FUERON DE MUCHA UTILIDAD PARA REALIZAR CON EXITO UN PROYECTO EN EXCEL. SOLO HAGO LA OBSERVACION QUE EL CODIGO PARA "ir a la hoja inmediatamente anterior a la que estamos" NO ME FUNCIONO CORRECTAMENTE, PERO LO CORREGI DE LA FORMA SIGUIENTE :<br /><br />Sub Hoja_Anterior()<br />If ActiveSheet.Name > Sheets(1).Name Then<br />ActiveSheet.Previous.Select<br />End If<br />End Sub<br /><br />Y ENTONCES ME FUNCIONO A LA PERFECCION.<br /><br />LO COMPARTO CON USTEDES POR SI LES SUCEDIO LO MISMO QUE A MI, ESPERO QUE LES SIRVA YA QUE ES LA PRIMERA VEZ QUE EDITO UN CODIGO PARA EXCEL Y ME FUNCIONA. SALUDOS ! ! !Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-3978135267681492252010-03-21T01:01:48.404+01:002010-03-21T01:01:48.404+01:00Hola javier
Una consulta por ejemplo tengo este c...Hola javier<br /><br />Una consulta por ejemplo tengo este codigo:<br /><br />Private Sub CommandButton1_Click()<br />Dim var1 As String, var2 As String, var3 As String<br />Dim cont As Integer<br /><br />Range("a2").Select<br />var1 = ActiveCell.Text<br /><br />Range("b2").Select<br />var2 = ActiveCell.Text<br /><br />Range("c2").Select<br />var3 = ActiveCell.Text<br /><br />ActiveSheet.Next.Select<br /><br />Range("a2").Select<br /><br />If IsEmpty(ActiveCell) Then<br />ActiveCell.FormulaR1C1 = var1<br />ActiveCell.Offset(0, 1).Select<br />ActiveCell.FormulaR1C1 = var2<br />ActiveCell.Offset(0, 1).Select<br />ActiveCell.FormulaR1C1 = var3<br /><br />Else:<br />Do While Not IsEmpty(ActiveCell)<br />ActiveCell.Offset(1, 0).Select<br />Loop<br />ActiveCell.FormulaR1C1 = var1<br />ActiveCell.Offset(0, 1).Select<br />ActiveCell.FormulaR1C1 = var2<br />ActiveCell.Offset(0, 1).Select<br />ActiveCell.FormulaR1C1 = var3<br /><br />End If<br /><br /><br />End Sub<br /><br />Mi problema es cuando selecciono la celda a2 en la siguiente hoja.<br /><br />Hay alguna manera de seleccionar una celda cuando pasas a otra hoja?<br /><br />Muchas gracias,Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-78311851287872781992010-02-12T08:56:17.423+01:002010-02-12T08:56:17.423+01:00Te recomiendo que te pases por este artículo: Most...Te recomiendo que te pases por este artículo: <a href="http://hojas-de-calculo-en-excel.blogspot.com/2008/10/mostrar-y-ocultar-hojas-utilizando.html" rel="nofollow">Mostrar y ocultar hojas, utilizando macros</a>, para saber como ocultar y mostrar hojas. En lugar de pasar el password para mostrar/ocultar la hoja a través de un inputbox, puedes introducirlo directamente en del código fuente.<br /><br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-40719434050169977902010-02-12T00:39:50.898+01:002010-02-12T00:39:50.898+01:00Hola Javier.
Encontre tu pagina y la verdad que tu...Hola Javier.<br />Encontre tu pagina y la verdad que tus ejemplos son muy claros y mas de uno me sirvio.<br />Ahora te consulto algo.... como puedo ir usando "Desplazarse por hojas con macros" a una determinada hoja si esta oculta, y al irme de esa hoja que la vuelva a ocultar<br />Muchas gracias, SebastianAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-36995433029567563672009-06-16T12:03:54.911+02:002009-06-16T12:03:54.911+02:00Hola Victor.
Por una parte, agradecerte que te ha...Hola Victor.<br /><br />Por una parte, agradecerte que te hayas dado cuenta que no había cerrado los procedimientos, con el End Sub, como es preceptivo (ya está corregido), y por otra, decirte que efectivamente tenías toda la razón del mundo en tu exposición/queja/duda/problema :-) pues el código que puse no era el correcto (daba por hecho que al ser tan sencillo tenía que ser así, que ni lo había probado). Lo acabo de corregir, y ahora sí que funciona correctamente.<br /><br />Muchas gracias por tus observaciones.<br /><br />Un saludo.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-14611709095011549442009-06-16T09:41:33.199+02:002009-06-16T09:41:33.199+02:00Gracias Javier Marco, por tú respuesta no me la es...Gracias Javier Marco, por tú respuesta no me la esperaba el mismo día que hice la pregunta.<br /><br />Cerré el excel, abrí uno nuevo, puse el código en un módulo exactamente igual que el que aparece el ejemplo 1º pero añadiendole "End Sub" al final y volvió a generar el mismo problema, se me marchaba a la hoja 3 directamente desde la hoja 1. Ejecuté el programa paso a paso y la condición if la considera siempre falsa, y encima es en esa misma sentencia es cuando me lleva a la hoja3. Gracias<br /><br />Código:<br /><br />Sub hoja_siguiente()<br />If Not Sheets(Sheets.Count).Select Then<br />ActiveSheet.Next.Select<br />End If<br />End SubVictornoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-67751887954870633952009-06-03T09:42:04.541+02:002009-06-03T09:42:04.541+02:00Probablemente te ocurre eso, porque la hoja2 (supo...Probablemente te ocurre eso, porque la hoja2 (suponiendo que sea esa la segunda hoja), la has desplazado y la has movido hasta el final. Me refiero a que has arrastrado esa pestaña al final de todo.<br /><br />Fíjate en el nombre interno de la hoja (ese que en una de las imágenes sale coloreado de azul), y verás como es probable que aunque te aparezca al final de todo (por eso se desplaza hasta el final), su nombre sea Hoja2.<br /><br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-86089386966236859302009-06-03T09:37:42.579+02:002009-06-03T09:37:42.579+02:00Muchas gracias por tu ayuda.
La primera macro de p...Muchas gracias por tu ayuda.<br />La primera macro de pasar a la siguiente hoja, lo que me hace es llevarme directamente a la última hoja. Sabes por qué pude ser?Victornoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-54545272153084990652009-02-10T16:02:00.000+01:002009-02-10T16:02:00.000+01:00Tampoco te pases... Los fantásticos y generosos so...Tampoco te pases... Los fantásticos y generosos son los Reyes Magos y Papa Noel :-)El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-62612568918096846622009-02-10T15:54:00.000+01:002009-02-10T15:54:00.000+01:00Mil Gracias:Son Fantásticos y super generosos con ...Mil Gracias:<BR/><BR/>Son Fantásticos y super generosos con su ayuda.<BR/><BR/>Funcionaron de película.<BR/><BR/>GraciasAnonymousnoreply@blogger.com