tag:blogger.com,1999:blog-4623278671508370136.post8963950634497926011..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Una función personalizada para mostrar el Número de página en una celda.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger18125tag:blogger.com,1999:blog-4623278671508370136.post-68114825149597610712019-06-21T10:01:37.802+02:002019-06-21T10:01:37.802+02:00Hola,
como se indica la función opera correctament...Hola,<br />como se indica la función opera correctamente bajo el supuesto de que exista al menos un salto vertical y otro horizontal.<br />Si necesitas variar las condiciones tendrás que incluir condicionales IF... THEN para cubrir las distintas posibilidades:<br />1-sin saltos verticales<br />2-sin saltos horizontales<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-43831340878613987902019-06-20T19:55:13.897+02:002019-06-20T19:55:13.897+02:00buentas tardes.
A lo que me refiero es condicion...buentas tardes. <br /><br />A lo que me refiero es condicionar la funcion para que me enumere las hojas solo hacia abajo, ya que no tengo ninguna hoja a la derecha; por lo tanto, la función me marca un error. <br />gracias y saludos.Anonymoushttps://www.blogger.com/profile/10652312720821674367noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-50632366785299183482019-06-20T16:44:14.494+02:002019-06-20T16:44:14.494+02:00Hola, que tal?
Lo siento pero no comprendo ¿?, a q...Hola, que tal?<br />Lo siento pero no comprendo ¿?, a qué te refieres con 'condicionar la función a 0'??<br /><br />Quedo atento a la aclaración<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85895203604341177322019-06-20T02:25:42.268+02:002019-06-20T02:25:42.268+02:00que tal buenas tardes, oiga me gustaria que me exp...que tal buenas tardes, oiga me gustaria que me explicara como condicionar la funcion a 0 ya que la verdad desconozco de programación y quisiera, si fuera usted tan amable, que me proporcionara el codigo condicionado a 0. ya que le estube moviendo a como crei que podia ser, pero no consegui hacer que funcione el codigo. <br />de antemano muchas gracias.<br />saludos.Anonymoushttps://www.blogger.com/profile/10652312720821674367noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-20598482547855219402018-09-08T12:20:08.764+02:002018-09-08T12:20:08.764+02:00Hola Luis,
te has asegurado existan varias hojas??...Hola Luis,<br />te has asegurado existan varias hojas??<br />'Ojo, la función está definida bajo el supuesto que existe al menos un salto vertical y uno horizontal!!!. En caso contrario devolvería un error...'<br />Lo he vuelto a probar (el código del post) y funciona correctamente<br />¿¿??<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-61204856888171557922018-09-07T23:55:00.818+02:002018-09-07T23:55:00.818+02:00Set direccion = Range(Application.Caller.Address)
...Set direccion = Range(Application.Caller.Address)<br /><br />Estimado Ismael, tengo la siguiente dificultad al copiar Tu codigo:<br />error 91<br />variable de objeto o bloque with no establecido<br />gracias<br />LuisAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-50086596349960503662018-06-25T19:43:38.946+02:002018-06-25T19:43:38.946+02:00Hola,
con gusto te ayudaré.
Un placer saludarte ig...Hola,<br />con gusto te ayudaré.<br />Un placer saludarte igualmente.<br /><br />Asegúrate tienes tu hoja dividida en varias páginas<br /><br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-14581476965797836542018-06-25T18:34:44.374+02:002018-06-25T18:34:44.374+02:00no me da el codigo solo me queda #valor
no me da el codigo solo me queda #valor<br />Anonymoushttps://www.blogger.com/profile/16302621579631068237noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-48263806129293879422018-06-15T08:56:11.055+02:002018-06-15T08:56:11.055+02:00Hola Danilo,
un placer saludarte igualmente, con g...Hola Danilo,<br />un placer saludarte igualmente, con gusto respondo tu cuestión<br />.VPageBreaks.Count<br />realiza el conteo de saltos verticales, asi que:<br />if .VPageBreaks.Count=0 then ... else ....<br /><br />Saludos cordialesExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-16217574312518054762018-06-14T00:09:42.082+02:002018-06-14T00:09:42.082+02:00Como conidiciono el codigo para que .VPageBreaks.C...Como conidiciono el codigo para que .VPageBreaks.Count sea cero ???Anonymoushttps://www.blogger.com/profile/17885748146115877290noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-71406494133284419232015-05-09T09:55:41.648+02:002015-05-09T09:55:41.648+02:00Hola...
es más simple emplear el código de la func...Hola...<br />es más simple emplear el código de la función de este mismo post...<br />Un saludo!Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-25556875556274556612015-05-08T15:03:10.022+02:002015-05-08T15:03:10.022+02:00Hola Merida, hola buen dia, acabo de toparme con e...Hola Merida, hola buen dia, acabo de toparme con esto, y es algo que me es útil, pero, puse el código tal cual, y lo que hace es ponerme en todas las hojas, el mismo dato, ose a no va cambiando de acuerdo al numero de hoja.<br />Si me pueden apoyar por favor.<br /><br />Intente también el método sugerido por Ismael, pero, se me hace mas extenso y complicado.<br />graciasINMODESARROLLO QUINTALhttps://www.blogger.com/profile/05122612011050906852noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-24230191545214962882013-07-16T09:39:31.873+02:002013-07-16T09:39:31.873+02:00Hola Mérida,
esa opción la podías haber aplicado s...Hola Mérida,<br />esa opción la podías haber aplicado siguiendo el link de la primera línea de esta entrada.<br /><a href="http://excelforo.blogspot.com.es/2012/03/numero-de-pagina-en-una-celda-de-excel.html" rel="nofollow">http://excelforo.blogspot.com.es/2012/03/numero-de-pagina-en-una-celda-de-excel.html</a><br /><br />pero me alegro dieras con ella.<br />Un cordial saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-88799053960055440462013-07-16T07:50:45.677+02:002013-07-16T07:50:45.677+02:00Muchas gracias por la ayuda.
Finalmente encontré ...Muchas gracias por la ayuda.<br /><br />Finalmente encontré esta respuesta por internet que estoy integrando en el programa:<br /><br />Sub DefineNombres()<br />Names.Add Name:= "Paginas", RefersToR1C1:= "=GET.DOCUMENT(50)"<br />Names.Add Name:= "PaginadePaginas", RefersToR1C1:= "=""Pagina "" & IF(ISNA(MATCH(ROW(), GET.DOCUMENT(64),1)),1, MATCH(ROW(), GET.DOCUMENT(64),1)+1) & "" de "" & GET.DOCUMENT(50) + 0*now()"<br />Names.Add Name:= "Pagina", RefersToR1C1:= "=IF(ISNA(MATCH(ROW(), GET.DOCUMENT(64),1)),1, MATCH(ROW(), GET.DOCUMENT(64),1)+1)"<br />End Sub<br /><br />despues basta con teclear en cualquier celda:<br /><br />=pagina<br />=paginas<br />=paginadepaginas<br />Méridahttps://www.blogger.com/profile/05783710485980247879noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-11350921987991988512013-06-18T19:27:48.062+02:002013-06-18T19:27:48.062+02:00Hola,
bueno... creo que yo optarí apor la modifica...Hola,<br />bueno... creo que yo optarí apor la modificación 3.<br />De todas formas si quieres puedes enviarme el fichero a<br />excelforo@gmail.com<br /><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-34328626648342351302013-06-18T08:28:04.396+02:002013-06-18T08:28:04.396+02:00Creo que has entendido la idea general, pero la cu...Creo que has entendido la idea general, pero la cuestión es que yo tengo una hoja índice (hoja_index), muchas hojas (hoja_1, ... hoja_n) y una hoja final (hoja_final).<br /><br />Hoja_n tienen información en las 6 primeras columnas, pero a mí sólo me interesa copiar 4. La última fila, en la primera columna pone FIN, de forma que tengo un indicador de que he llegado al final.<br /><br />Hoja_final está inicialmente vacía (o aunque esté llena, la macro lo primero que hace es vaciarla) y ES ESTA HOJA LA ÚNICA QUE QUIERO IMPRIMIR EN PDF INDICANDO UN ÍNDICE, por tanto, es aquí donde me gustaría indicar índice (índice que tengo y puedo sacar, ver siguiente)<br /><br />Hoja_index tiene 2 columnas (tiene más, pero que interesen para ponerte al caso, sólo 2). En 1 indico un nombre (Titulo_general, Título_particular, Hoja_n), en la otra indico una de estos 4 valores:<br />-SÍ (quiero que vaya a la hoja, es decir, existe una hoja con el nombre de esa celda, y la recorre para copiar sus datos en Hoja_final)<br />-NO (me la salto, no quiero usarla pero en un futuro o en otra ocasión, sí que quiero recorrerla)<br />-TÍTULO1 (copia solo las 2 celdas del índice en Hoja_final y a tamaño mucho mayor, inicialmente lo hice para poder indexar en word)<br />-TÍTULO2 (copia solo las 2 celdas del índice en Hoja_final y a tamaño mayor, inicialmente lo hice para poder indexar en word)<br /><br />La modificación "facil" que podría hacer de la macro es:<br />1-copiar el índice que quiero (en vez de recorrer cada hoja, sólo poner el índice, está chupado hacerlo porque ya está implementado)<br />2-hacer lo que hacía hasta ahora la macro (es decir, poner de nuevo los títulos, nombre de hojas y contenido de hojas)<br />3-poner el número de página en el índice creado en (1), para ello podría ponerse en todas las filas, en una columna auxiliar, el número de página, y luego, dado que no hay ningún nombre de página repetido, buscar en el ´´indice esa palabra en toda la hoja y devolverle en la columna que elijamos el número de página...<br /><br />No sé si me he explicado correctamente... O quizá prefieras te envíe una parte del archivo para que puedas entender lo que hago hasta ahora para entender qué es lo que quiero hacerMéridahttps://www.blogger.com/profile/05783710485980247879noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-71405226599391770592013-06-17T20:41:58.687+02:002013-06-17T20:41:58.687+02:00Hola,
la función del post lo que hace es indicar e...Hola,<br />la función del post lo que hace es indicar en qué posición del total de páginas impresa se sitúa, por lo que entiendo quieres construir un Índice paginado (como en Word)... por tanto, una manera sería en las diferentes paginas de trabajo colocar esta función y luego en la página Principal (Indice) referirte a cada celda con función...<br /><br />No sé si te he entendido correctamente<br />:-(<br /><br />SdlsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-57505228958380074662013-06-17T15:20:04.539+02:002013-06-17T15:20:04.539+02:00Hola Compañero.
Tengo una macro que, a partir de ...Hola Compañero.<br /><br />Tengo una macro que, a partir de una hoja índice, copia los elementos de cada hoja de excel que le indica el índice hasta que encuentra FIN. <br />En el índice le indico mediante SI o NO si quiero o no que se pasee por esa hoja.<br /><br />Estaba buscando indicar el número de página en una columna (es decir, todos los elementos tendrían un número de página (num_pag_aux), de forma que pueda crear un índice, pero no he encontrado manera de hacerlo. <br />¿Habría la posibilidad de hacerlo?<br />Antes lo que hacía era pasar a Word y allí paginar (he creado en Excel título1 (en el índice, no hay hojas con este nombre, pero pone ese título y salta a la siguiente celda), título2 (el nombre de la hoja) con diferentes tamaños que luego en word al recorrerlos el tamaño lo pasa a titulo1, título2 o normal), pero ahora tengo unos 5.000 artículos y la verdad es que... bueno, digamos que no hay manera porque se equivoca demasiado en word.<br /><br />¿Podrías echarme una mano?<br /><br />Gracias y saludosMéridahttps://www.blogger.com/profile/05783710485980247879noreply@blogger.com