German

Muchas gracias a ti también @JSDJSD aunque lo tenía solucionado, lo he probado y funciona perfectamente, lo guardo para otra ocasión y lo comunico para otr@ usuari@ que lo pudiera necesitar. Saludos a tod@s, Germán.

Muchísimas gracias a l@s dos, @Silvia ese archivo lo ví y aunque ciertamente no le presté mucha atención, no conseguí adaptarlo, y @Snake he probado y además con mi mínimo conocimiento de códigos VBA he conseguido adaptarlo, solo busqué en el código y cambie los pesos por euros y centavos por centimos, y luego probé nuevamente y fue genial. Muy buen archivo para quien desee tenerlo, además con 4 posibilidades de presentar el resultado. Reiterar mis gracias a ambos y al "excel"-ente foro que sigue siendo, ya que aunque muchos no me conocen hace algunos años dedicaba mucho tiempo a aprender y colaborar en él. Saludos a tod@s. Germán. Y DAMOS POR SOLUCIONADO EL TEMA.

Hola compañer@s, encantados de volver con ustedes nuevamente después de tanto tiempo. La consulta creo es sencilla y utilizando el buscador no me ha aparecido el tema, que no quiere decir que no exista, sino que no lo he visto. Me gustaría si la hubiera una formula o función para el excel 2010 que en una celda distinta poner en letras una cantidad numérica mostrada en euros en otra celda. Y en caso de no existir esa formula o función, pues un código VBA para poder hacerlo. Agradeciendo con anterioridad vuestra ayuda y colaboración, recibid un cordial saludo, en especial a los más veteranos. Germán. Convertir NumLet.xlsx

Hola estimado amigo Antoni (para amigos más "veteranos" Macro Antonio) es un placer volver a "hablar" contigo, espero que todo te vaya bien. Y volviendo al tema, he probado tu código y perfecto, ya que eran botones de formulario. Queda SOLUCIONADO, si necesito algo más abro otro post. Saludos cordiales a @DiegoLG y a tod@s, y un fuerte abrazo @Antoniy a @Gerson Pineda que se pasó por el post.

Hola @DiegoLG buenas tardes, ese código funciona estupendo y preciso con lo que necesito. Ahora me gustaría poder borrar los dos botones que activan las macros en la primera hoja, una vez hecha la copia se quedan los botones, ¿como puedo quitarlos también con código en la hoja copiada? Un saludo, Germán.

Muchas gracias @DiegoLG, lo pruebo y ésta tarde te digo algo. Un saludo, Germán.

Hola amigos buenas tardes, solo quería un código para poder cambiar el nombre de una hoja y que esta ponga el texto que está en la celda "C2". No pongo archivo porque pienso que es así de fácil, si lo necesitan díganlo. Aprovecho la ocasión para mandar un afectuoso saludo a tod@s los componentes del foro, y en especial a los compañeros con los que compartí éste foro hace algún tiempo. Muchas gracias, Germán.

Hola @REVELION para el valor 0 es fácil, le añades a la fórmula un =SI(Tuformula=0;"";tuformula). Y para el tema de #N/A hay funciones que no reconocen ese error, pero hay otras que sí, como por ejemplo =ESNOD(Tuformula) y =ESERROR(Tuformula) que te devuelve verdadero o falso con lo cual la utilizas de la misma manera que SI.ERROR, tal que así.... =SI(ESERROR(Tuformula);"";Tuformula) Te recuerdo que abriendo las funciones te explica que hace y como funciona cada función. Por lo menos las más fáciles así puedes entenderlas. Y recuerda que subiendo un archivo es más fácil ver los problemas y ayudar a solucionarlos. Te he ayudado porque solo es una fórmula, pero así y todo hay que hacer caso a las normas. Espero haber podido ayudarte. Un saludo, Germán.

Hola compañeros, excepcional las propuestas expuestas, siento no ser entendido en la materia para poder valorarla en su justa medida, solo puedo basarme en los resultados, y son acordes a lo pedido. GRACIAS A TODOS. @Cacho R gran solución y con la idea de guardarlo en otro libro, y además como dicen los compañeros muy rápido. @johnmpl y @digitalboy muchas gracias por vuestros aportes y sugerencias. @Antoni nuevamente saliendo al quite con la solución a tu gran aporte que funciona de lujo. Muchísimas gracias a todos por vuestro trabajo, interés y dedicación. Podemos dar el tema por TERMINADO Y SOLUCIONADO. Un saludo, Germán.

Aunque ha quedado solucionado con una de las aportaciones, le pido a los administradores que no cierren de momento el tema a la espera de que @Antoni pueda contestar a ese posible problema detectado. GRACIAS. Un saludo a todos, Germán.

Buenas tardes a todos.. @Enigma25 muchísimas gracias por el aporte e interés, funciona genial. @digitalboy gracias por tu aporte e interés, he tenido en cuenta tu opinión y he guardado tu aportación para futuras necesidades. Y acabo de ver tu nuevo comentario sobre el trabajo de Antoni. Gracias nuevamente. @Antoni Hola Antoni, un placer saludarte nuevamente después de tanto tiempo y volver a "hablar" contigo. Muchísimas gracias por tu aporte, y como siempre buscando solucionar no solo la duda, sino posibles problemas de funcionamiento. Pero he puesto en la primera fila datos en más de 100 columnas, he copiado el código lo ejecuto y solo me transpone las 5 primeras columnas, el resto no lo hace. Ya me dices. Un abrazo a todos y muchísimas gracias por anticipado. Germán.

Hola amig@s buenas tardes, nuevamente solicitando de su ayuda, y dándole las gracias por anticipado. Estoy realizando un trabajo y se me piden pasar en un archivo que podrían tener hasta 100 o más columnas con datos y hasta 100.000 filas, que dejando el nombre de la primera columna siempre en la columna A, el resto de datos que haya en las restantes columnas de la misma fila, me los pase todos a la columna B. Una vez traspasado todos los datos de la fila 1, supongamos que había 50 datos en dicha fila, en la fila 51 en al columna A colocamos el 2º nombre listado inicialmente y en la columna B fila 51 hagamos la transposición de la fila 2 inicial al completo. A TENER EN CUENTA: El código debe de tener en cuenta que en la misma fila podrían tener 20, 30, 50 o más, por lo que debe de listar todos los valores encontrados en la fila, y sin transponer las celdas en blanco, solo las que tengan datos, como se ve en la hoja de ejemplo "COMO LOS QUIEREN" del archivo de ejemplo que adjunto. Y también que pueden haber hasta 100.000 filas con datos a transponer. Espero haberme explicado con claridad, aunque en el ejemplo creo se verá más claramente. Muchísimas gracias. Un saludo a tod@s, Germán. TransponerBaseDatos.xlsx

Buenas tardes, a pesar del intento la persona que me había consultado parece no desea seguir con el proyecto, por lo que dando las gracias a las personas involucradas en las contestaciones, muy especialmente al compañero @logroastur daré éste tema como FINALIZADO, aunque no haya quedado solucionado por el motivo explicado. Gracias y un cordial saludo a tod@s. Germán.

Hola de nuevo, @sergio, muchas gracias, no sé cual sería el error, a ver si el correo lo puse mal, te lo vuelvo a poner ya que he visto que en perfil no aparecía, no sé si con el cambio de soporte se perdió en algún momento, el email es <lacosturera_merche@hotmail.com>. @logroastur hoy he vuelto a probar (ya que los fines de semana no puedo) y se abre el formulario al ejecutar la macro, y sorpresa, no me da erros, pero tras esperar un tiempo prudencial veo que no se carga es resto de páginas del formulario, o sea se queda parada pero sin dar fallo alguno. Entiendo que tampoco te aclares con mis explicaciones, pero es que tampoco sé por donde mirar y qué explicar. @digitalboy gracias por tus apreciaciones, eso que comentas es lo que pretendía desde un principio. Un saludo a todos, Germán.

Bueno seguiré investigando a ver si puedo ver algo más, hasta ahora no sé cual puede ser, si he visto que la ruta tu tienes puesto : FullName : "C:\Archivos de programa\Microsoft Office\Office12\EXCEL.EXE" : String No sé si ese puede ser el error, y si es así, donde podría cambiarlo, lo siento pero no tengo ni idea de VBA y cualquier cosa se me hace un mundo. Supongo que a ti te funcionará bien, no? He llegado hasta ver en Ventana Locales el wbb.document y hay muchisimos valores, no sabría cual cambiar y como cambiarlos. Muchas gracias por tu colaboración, tu tiempo y trabajo. Un saludo, Germán.