verzulsan

Mas simple, si valen errores y contadores de array, quedaria asi: Public Function zLen(rango() As Byte) On Error GoTo output For i = 1 To 2 ^ 15: rango(i) = 0: Next output: MsgBox i / 2 End Function[/CODE] En realidad esto tendria sentido si estuvieramos hablando de C#, en VB hay muchisimo mas detras, al asignar la cadena al array es cuando se crea el valor de Len e incluso si este no se usa seguira existiendo como valor del propio objeto, y aun que no lo uses manualmente en el codigo el bucle si que lo usa por que si no, ¿Como demonios iba a saber de que longitud tiene que crear el array? Realmente lo que se esta haciendo aqui es, usar LEN (disimuladamente) para asignar su valor a la longitud de un array, recorrer todo el array y capturar el error que se produce cuando se intenta escribir fuera de ese rango. Si lo piensas bien, esto no tiene mucho sentido. Pero bueno, mejor que hacer un sudoku no?, Parece que no soy el unico que se aburre ...ja...ja.. Saludos

Gracias Gerson, ya he puesto alli un link directo hacia aqui. Saludos!

Buenas a todos, Esto es para el tema [sOLUCIONADO] Ordenar números en una sola celda que esta ya cerrado como solucionado donde German abrio una pregunta, cuando me puse a hacer la funcion no me di cuenta que el tema estaba cerrado asi que lo pongo aqui como aporte general. Se trata de dos UDF, una ordena de forma ascendente y otra de forma descendente usando el metodo burbuja. Unicamente has de usar las formulas =aorden(A1) para ordenar ascendentemente y =dorden(A1) para ordenar descendentemente, tambien puedes combinarlas en una sola, =dorden(A1)-aorden(A1). Quizas con esto te resulte mas comodo realizar tu estudio. Adjunto el archivo, y una lastima que no deje escribir en los temas solucionados, estaria bien que existiera la posibilidad de escribir si lo que vas a hacer es complementar los aportes. Saludos PD: Con esto tanto Formulianos como Macronianos podran convivir en armonia xD ordenar numero.zip

Hola German!, Pues la verdad que no lo habia escuchado nunca pero si cosas parecidas. No me he puesto a sacar como funciona la curiosidad pero me parece interesante para entretenerse un rato buscando la razon. Adjunto tu documento un pelin mas estructurado para que sea mas facil la lectura de las instrucciones. Un saludo EDIT: Esto me recuerda mucho a la numerologia y ciencias ocultas, donde existen numerosas coincidencias y casualidades que no son como tal sino un desconocimiento total sonbre el origen de las cosas. No creo que ni siquiera los matematicos sepan que significa aun que sepan por que ocurre, solo Dios lo sabra... "Si es que existe" Constante Kaprekar modificado.zip

Mauricio lo instalaste! jejeje, Me alegra saberlo, veras que es bastante mas rapido todo en excel 2000 aun que notaras que le faltan muchas cosas que tienen versiones posteriores pero es ideal para correr macros y para operar con numerosas formulas sin que casque el excel. Sirve sobre todo para probar macroformulas gigantes donde tardarian una eternidad en 2003 o 2007, eso si, tiene una pega y es que si desarrollas un libro pesado del que esperas una cierta velocidad, al ejecutarla luego en versiones posteriores notaras la lentitud que no notaste en el 2000. Ya me comentaras como te fue, un saludo!

Hola Pedro, Vaya!, el mio dice que ahora que tengo menos estres en el trabajo (cierto), que aproveche para poner en marcha mi dieta y no pierda mas tiempo (cierto tambien), hoy por la mañana me he levantado diciendo que a que espero para poner en marcha mi nuevo plan de ejercicios y quitarme de fumar xD. Me siento espiado

Me la he instalado pero tranquilo que lo hice en una maquina virtual VM Ware, en esta plataforma tienes la ventaja que estas limitaciones de tiempo no existen, tengo en mi equipo instalado el excel 2000 y luego 3 maquinas virtuales una con cada version de excel, en realidad mas maquinas virtuales pero para cosas que aqui no vienen a cuento. Tambien existe la posibilidad de instalarlo en el propio equipo y luego viendo que archivos modifica tanto del equipo como del regedit, restaurarlos a su estado original para volver a ejecutar la instalacion, que es basicamente lo que se puede hacer con las maquinas virtuales, volver al pasado... Un saludo y gracias por tus sabias explicaciones como siempre

Impresionante Pedro, me superas en ralladuras, lo llaman ahora ser friki xD, me he tragado numerosos problemas de combinatoria y siempre con temas rollo pero me mola aplicado a los cumpleaños, ¿Cuanto crees que seria el numero necesario de personas para que coincidiera segun los argumentos iniciales?, a saber: - Cumpleaños el mismo dia - Misma ciudad - Pasion por el excel - Se conocen en persona - Nicks parecidos Y son solo estos los que yo conozco, seguramente tengan mas..

Feliz cumpleaños logroastur!, me pasa lo mismo que a German, Felicidades para ti tambien maamtur. Me he reido un rato con tu poesia German , voy a intentar complementarla Querido amigo logroastur, regalo que darte no tengo, pero cuando tenemos un problema, ahí estás ahi y yo vengo. Un saludo!!

Buenas Dramidom medicinal , ya habia oido hablar de esta version de manos de Pedro, esta bien que se ponga como noticia por que asi mas gente tendra la oportunidad de bajarselo, la verdad que promete bastante Ultimas lineas del post: https://www.ayudaexcel.com/foro/showthread.php?t=12033&p=59952&viewfull=1#post59952 Un saludo

Hola 7z, nada, el mio es una chorrada en realidad por que no sabia que ponerme Verde Azul y Santi, Santi y rojo no tienen nada que ver lo se xD, ya sabes lo tipico, casi todo esta cogido y no se me ocurrio otra cosa en ese momento. Puedes llamarme Santi Saludos

[Hola EDITADO: mis comentarios no eran correctos segun la persona a la que dichos comentarios aludian] Muy interesante el archivo, me genera error en la version 2000 y 2003 de excel, de hecho peta el excel pero funciona perfectamente en la version 2007. Dejo aqui el enlace directo a la pagina sin espera de megaupload, y tambien el enlace directo al archivo que esta en esta misma pagina pero por si no lo veis: Pagina del enlace Descarga directa A mi me ocurre justo al reves... sera que soy raro.. Un saludo y gracias por compartir

Re: ¡¡¡¡¡ verzuuuuuuuussssssssssslaaaaaaaaaaaan!!!!!!! Bueno ya tendra que ser para la proxima, hoy hemos pinchado. A ver si se cumple tu formula El excel sirve realmente para todo JA! xD

Felicidades amigo German! , Felicidades atrasadas para ti tambien Gerson En mi caso menos mal que no sale la fecha por que cuando me doy de alta en los sitios lo suelo hacer tan rapido que marco cualquier fecha y he visto que aqui no me deja cambiarla jejeje. Saludos para ti tambien Antoni

Re: ¿Por que no cambia el titulo de mi mensaje original en el foro? Hola Gerson, ya no me hace falta gracias. De todas formas ya se que para la proxima vez sois vosotros los que lo teneis que cambiar. Saludos

Encontre tu blog! . Muy buenas Pedro, esta seccion seguro que la visitan poco por que es raro que hayan dejado pasar por alto tu entrada, yo la verdad que la visito solo de vez en cuando si el boton de novedades esta rojo, te vi por casualidad. El foro gana mucho con personas como tu y aqui hay mucha gente que vale la pena, eres un tio que sabe y que vale, que da buenos consejos y que sabe explicar para los que menos saben, todo un ejemplo de como se debe ayudar a los que tienen menos experiencia. Pues eso, me alegra contar con amistades como la tuya y espero que te quedes aqui mucho tiempo. Espero poder meterme pronto en el mundillo de las interfaces GUI, gustandote como te gustan las animaciones tiene que ser una labor bastante entretenida. Lo dicho, espero poder colaborar junto a ti en diferentes proyectos (cosa que ya esta ocurriendo) y que ambos podamos ganar mucho en experiencia. Saludos

No entendi bien tu ultimo post, ¿Hacer el que?, no se si te refieres a que sea yo quien cambie la imagen, eso solo lo puede hacer un moderador. La verdad si que me aburro jejeje, pero lo echare de menos cuando vuelva al curro, estoy en mi mes de descanso Un saludo para ti tambien amigo German, por lo que he visto en tus ultimas ayudas has mejorado mucho en excel o eras asi de bueno antes y no me di cuenta, por cierto, ¿de que equipo eres?

luis, te vuelvo a agradecer el post ya que lo perdiste tras borrar el post antiguo, gracias por compartir, buenisimos los juegos Un saludo tambien para Rolano y Gerson, una pasada los adjuntos Rolano

Hola German!, pues eso, ¡Gracias! xD Una idea de que se viera mas seria cambiar el texto en miniatura por un gif como por ejemplo: O tambien valdria un gif animado, aqui dejo una pagina llena de imagenes, muy... cursis la mayoria xD: http://photobucket.com/images/thanks%20gif/ Saludos

Buenas, un saludo a todos los administradores y moderadores, Tenia una pregunta acerca de la edicion del titulo de un post ya publicado. Hace un momento he intentado cambiar el titulo de uno de mis mensajes, pero esto se hace efectivo solo entrando al post dentro de la cabecera del primer mensaje pero fuera del post en el indice del foro en general, el mensaje sigue manteniendo el titulo que le di la primera vez, ¿que es lo que hay que hacer para cambiar el titulo original del post? Un saludo a todos.

Hola Rolano!, muy buenos los juegos, sobre todo el del tetris y el de chess. Al de chess me entran ganas de sustituir las casillas de letras por imagenes, quedaria mucho mejor, y el del tetris es un pasote jeje, creo que lo pondre en el post de animacines. Muy buen aporte!. Por cierto, no se si ya estoy desvariando, me parece que si, pero se me ocurrio la loca idea de poder jugar al chess multijugador con ese archivo a traves del foro, se podria crear un post titulado "partidas ajedrez", cada persona que quisiera jugar tendria su archivo chess.xls abierto, responderia en el post y le diria al ChessExcel la URL de su #post, mete su clave y password del foro, el otro jugador hace lo mismo, entonces, cada jugada que se hace en excel este editaria el post con la jugada nueva, mientras tanto el chess.xls del jugador en espera va haciendo peticiones al post para detectar cambios y cuando sean hechos este se descarga los resultados y se genera el movimiento en su casilla. Tambien el excel podria enviar el codigo del tablero en forma de enlace de 8x8 imagenes concatenadas que generaria en el post cambiante el estado temporal de la partida para que todos pudieran ver como va el desenlace de la partida de ambos jugadores... Mejor paro ya por que creo que realmente estoy desvariando xD, pero se puede hacer. Un saludo!

Buenas noches Mauricio, Fleming y Antoni , aqui trasnochando un poco antes de irme a la cama, Ok, una mala interpretacion por mi parte, ya estoy centrado, no pasa nada solo fue una confusion. Pues pienso igual que tu Fleming, se pierde menos con el truco de gerson, y la macrito de Mauricio no esta mal, siempre encuentra la manera el genio este de gastar una linea menos de codigo Bueno, para dar las buenas noches, dejo aqui un chiste en excel para copiar una hoja con todos sus formatos, ¡No me he podido resistir! xDD, lo mejor es el final Sub MegaCopiadoDeHoja_xD() Dim HojaActual As String Dim HojaNueva As String HojaActual = ActiveSheet.Name Sheets.Add HojaNueva = ActiveSheet.Name For i = 1 To 65536 'xD For j = 1 To 256 Sheets("" & HojaActual & "").Select Sheets("" & HojaActual & "").Cells(i, j).Select Selection.Copy Sheets("" & HojaNueva & "").Select Sheets("" & HojaNueva & "").Cells(i, j).Select ActiveSheet.Paste Next j Next i Application.DisplayAlerts = False Sheets("" & HojaNueva & "").Delete Application.DisplayAlerts = True End Sub[/CODE] Saludos y buenas noches

Buenas de nuevo amigo Pedro, pues estoy totalmente de acuerdo con Gerson en que aqui faltaba alguien como tu, se hace muy ameno e ilustrativo leer tus comentarios. Ya estoy descargandome la version beta 2010 con nuevas espectativas, gracias nuevamente por los enlaces y la informacion, seguire por supuesto con las versiones 2000, 2003 y 2007 instaladas y ahora con la 2010 espero no casque mi equipo jejeje. Saludos tambien para ti Gerson EDITADO: me confundi y puse German en vez de gerson.. otra vez la dislexia.

Hola Antoni, Pues que raro que te funcione, acabo de hacer 9 pruebas, 3 en cada excel, excel 2000, 2003 y 2007, los tengo los 3 instalados, en cada uno lo he probado en la Hoja1, en ThisWorkbook, y en un modulo aparte. Solo me funciona si la hoja desde la que lo hago se llama "MiHoja". Si pudieras explicar como se hace te lo agradeceria. Saludos

Buenas Antoni y Agerman, Aqui os dejo otra forma de hacer lo mismo pero sin macro explicada de la mano de German, Post Origen Por cierto Antoni, ¿A ti te funciona la macro sin renombrar la hoja? yo tuve que renombrarla, o tambien ajustar tu macro a esto: Sub CopiarHoja() NombreHoja = ActiveSheet.Name Sheets.Add: Sheets("" & NombreHoja & "").Cells.Copy: ActiveSheet.Paste End Sub[/CODE] Un saludo