Antoni

Hola a todos: Adjunto un nuevo envío con mas ejemplos (Cuestiones 1, 2 y 3 de josapu). En cuanto a la cuestión 4, ni idea, pero por intuición creo que va a ser que no. Saludos a todos. "Macro". PD: josapu, por favor, cualquier otra consulta relacionada con este tema, hazla a través del post que abriste en el foro de macros. Gracias. Excel y Bases de datos SQL con ADO.zip

Me ha gustado mucho el video. Muchas gracias. Si puedes, pásame el enlace de donde puedo descargar el programa con el que grabas el video. Un saludo. Antoni.

Hola: A raíz de este post: Excel y MySQL He pensado que la respuesta, podría quedar como aporte. Se trata de un conjunto de macros y funciones que permiten de forma sencilla: Conectarse con una base de datos SQL (Acccess, MySQL, Oracle, SQL Server,...) Borrar una tabla Crear una tabla LLenar una tabla Consultar una tabla Insertar filas Modificar filas Eliminar filas Llenar una hoja Excel con los resultados de una consulta a una tabla. En el adjunto, hay una macro para cada una de las acciones, en módulos independientes. También existe un módulo con todas las acciones juntas en una sola macro. De los principales comandos de ADO, se han realizado funciones para que el código de las macros se vea mas limpio Función: Obtener una conexión Función: Obtener un Recordset con una instrucción SELECT de SQL Función: Ejecutar una sentencia SQL de actualización. En el adjunto encontrareis 4 hojas: Instrucciones SQL (Log de SQL. Está controlado por las funciones anteriores.) Hoja3 y Hoja4: Resultado de las consultas de los ejemplos Es necesario unos mínimos conocimientos de VBA, SQL y Bases de Datos SQL. No dudeis en preguntar. Un saludo. "Macro". Todas las macros han sido probadas sobre Access y funcionan correctamente. Excel y Bases de datos SQL con ADO.zip

Hola: Gracias, está muy bien. Tendremos que ir pensando en pasarno a la versión de Excel 2010. Lo tuyo es un blog y no lo que tengo yo. Un saludo.

Hola Gerson: ¡¡¡ Vaya !!!, Acabo de enterarme que soy super moderador, ya me puedo morir tranquilo. El salario supongo que será en dolares USA, ...ja,ja,ja.. No se en que consiste eso de ser super moderador, pero vocación de policía no tengo mucha, con mi suegro guardia civil y mi yerno policía nacional ya me contarás, y mi suegra que parece un sargento "chusquero". Supongo que una vez al año hay reunión de super moderadores en el Caribe con los gastos pagados y "unos/as acompañantes" para uso y disfrute del personal. ¡¡¡ Ha...!! Una piña colada al atardecer debajo de un cocotero... el sueño de toda mi vida. Si, desde que nos invadieron las tropas borbónicas de Felipe V, en el siglo XVIII, como a Vdes. en el siglo XVI, pero algunos todavía resistimos. Saludos a todos. "Super Macro".

Tranquilo Gerson, yo soy catalán. Vale, subiré el archivo, pero entonces el que se fatiga soy yo, ......ja,ja,ja. Saludos. Antoni.

Hola Gerson: Supongo que es un problema semántico derivado de las diferentes acepciones de la misma palabra en nuestro idioma. Esta macro respeta el valor de la celda como consecuencia de una fórmula y borra (elimina) la fórmula. Ejemplo: Si en una celda cuyo valor es 1234, y su fórmula es A1+1 , después de pasar la macro, la celda quedará con el valor 1234, pero sin la fórmula. Saluda a Honduras de mi parte. Antoni.

Hola: El título del aporte lo dice todo: Sub QuitarFormulasRespetandoValores() On Error Resume Next For Each Hoja In Sheets For Fila = 1 To _ Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row For Columna = 1 To _ Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column Hoja.Cells(Fila, Columna) = Hoja.Cells(Fila, Columna) Next Next Next End Sub[/CODE] Un saludo. "Macro".

Hola Mauricio: He probado el ejemplo que pones, y a mi me funciona. Lo único distinto es en el tipo de interés: 42.0 en lugar de 42,00 que es tal como me queda la celda al salir después de teclear 42 He visto tu Libro1.xls en el enlace que aportaste y el ejemplo cuadra al céntimo con lo aportado por sailepaty, con lo que queda claro que en mi aporte hay algo mal, por lo que recomiendo: ¡¡¡¡¡¡¡ NO USAR ESTE APORTE HASTA NUEVO ENVIO !!!!!!! Gracias a todos y un saludo. Antoni. Sailepaty: En la CEE existe un tipo máximo de interés fijado por el Banco Central Europeo. En cualquier caso es impensable un tipo de interés del 32%. Ni siquiera las financieras privadas llegan a ese nivel.

Hola: Pues eso, una de cronómetros. Permite llevar un control de tiempo independiente en cada fila. El ejemplo adjunto esta aplicado al control de una sala de billares, pero puede utilizarse para cualquier control que se os ocurra. .Control de personal .Parkings .Alquiler de bicicletas .Etc Extravagancia dedicada al amigo _ST. Saludos a todos. Desde Alejandría con Cleopatra, "Macro" Antonio. MultiWatch.zip

Hola MisterHP: Sube tus valores para poder comparar. ¿ En Estados Unidos te cobran esos tipos de interés ? En cualquier caso, para abaratar tu préstamo, ves a tu banco y pide un préstamo en Euros, Libras esterlinas, Yenes o cualquier otra moneda fuerte. Te dirán que no, que es solo para empresas, etc, etc, pero insiste y lo conseguirás. En Europa, el tipo de interés de referencia(Euribor) el 10 de Septiembre de 2010 era el 1,418 %. Se puede conseguir un préstamo hipotecario, el primer año, por debajo del 3%, y en sucesivas revisiones, si se mantienen los tipos de interés, por debajo del 5%. Un saludo. "Macro".

Hola sailepaty: He hecho pruebas pero no consigo cuadrar exactamente con tu propuesta, aunque no hay diferencias significativas. Gracias por tu interés y hasta la próxima. Un saludo. Antoni.

Hola Guanche: Pues a grandes males, grandes remedios. Las revisiones de prestamos suelen ser de revisión trimestral, semestral o anual. Pues en el momento de la revisión coges el capital pendiente que te queda a esa fecha, colocas el nuevo tipo de interés, informas el número de meses restantes de amortización, y recalculas la tabla. Puedes ir guardando los distintos cuadros de amortización en hojas distintas solo con el periodo en vigor del tipo de interés. Un placer y un saludo afectuoso. Antoni.

Hola: Gracias, lo pruebo y comento. Saludos. Antoni.

Gracias sailepaty, pero, con independencia del funcionamiento de la función PAGO, de una cosa si estoy seguro, el devengo de intereses en la banca, se calcula por días. Por lo poco que se de fórmulas, me da la impresión que en tus fórmulas te has basado en un calculo mensual en lugar de un cálculo diario. Si tengo razón, ¿ Podrías modificar las fórmulas ?. Sería interesante, al menos para mi, comprobar si el cálculo que yo realizo, es correcto o no. Nuevamente gracias por el interés que has mostrado en este tema. Saludos. Antoni.

Hola: "Macro" al ataque, esta vez una de préstamos. Se explica por si solo. Si lo ve algún "banquero", que repase el cálculo de intereses. Que lo disfruteis. Besitos. "Macro". CálculoAmortización.zip

Gerson: Las fórmulas son para los matemáticos, las macros para los artistas,,, ja,ja,ja

Solo añadir que Excel 2010 es la ultima versión de Excel que soportará las macros de Excel 4.0. Ver link: Cuenta atrás para las macros de Excel 4.0 Nos vemos. "Macro" Antonio.

Hola rolano: Ni siquiera se me había pasado por la cabeza que tu intención fuera esta. Solamente quise indicar, que cuando subimos código que no hemos realizado nosotros mismos, hemos de asegurarnos que su contenido no contenga malas intenciones ocultas. Por otro lado muy interesante lo de las macros de Excel 4.0. Viendo la estructura de estas macros, a lo mejor los "formulianos" se animan a programar macros, ja,ja,ja. Un saludo muy cordial. "Macro" Antonio, Antoni para los amigos.

Hola Gerson y rolano: Yo no he hablado en ningún momento de eliminar el post. Solo he dicho, y sigo diciendo lo mismo, que un aporte con el código/formulas/hojas protegidas de hecho no sirve para nada en la práctica, y me hace pensar que, o el que lo ha desarrollado no quiere compartirlo, o pretende algo malintencionado. Parece ser que afortunadamente no estamos en este último caso, ya que siguiendo el link que menciona rolano, todo empieza como un reto para averiguar dicho código. El link de rolano te lleva a: Debate seguridad en excel, segunda parte, fase 1 - grupos.emagister.com iniciado por Hector Miguel y comentado entre otros por Abraham. Gerson, por cierto, yo no he conseguido ni desproteger la hoja, o sea que harías bien en subirla para ahorrarme el trabajo, jejeje. Y Abraham, si lees esto y quieres ayudarnos a averiguar el código y/o fórmulas, te lo agradeceremos mucho, yo al menos. Saludos. "Macro" Antonio, Antoni para Gerson. PD. Este aporte nos debe sensibilizar a responsabilizarnos sobre los aportes que subimos, y debemos ser muy cuidadosos con lo que contiene, ya hemos visto aquí en otros aportes lo fácil que resulta eliminar datos e incluso código en un libro con una macro de unas cuantas líneas que incluso puede eliminarse así misma o eliminar carpetas e incluso unidades enteras. Por lo tanto, mucho cuidado por favor.

Hola Rolano: El código del aporte esta oculto de alguna manera que no consigo averiguar. No dudo ni por un momento de la honestidad de Abraham y Hector, pero los códigos ocultos me producen un poco de preocupación. Por otro lado sin ver el código es imposible su aplicación práctica. Esperemos que solo sea un aporte que no aporta y no contenga nada de lo que nos tengamos que arrepentir. Saludos. "Macro" Antonio.

Os podeis creer que no recuerdo este tema: Macro para separar texto y valores en Distintas columnas Y parece que participé y todo. Cada día estoy peor.

No confundas fornelasa, aquí nadie se pelea con nadie, es simplemente para darle un poco de "vidilla" y humor a las cosas. Una saludo para todos. Macro Antonio, anteriormente conocido por Antoni.

Hola: Me temo que va a ser que no. La macro corre correctamente para cualquier fila. De hecho está adaptada a la primera imagen que proporcionaste, es decir, Texto en la columna 1, Separador en la columna 2, Auxiliar de relleno en la columna 3 y Resultados a partir de la columna 4. La macro funciona con una selección de celdas de la columna 1. fijate en la instrucción: For x = 1 To Selection.Rows.Count[/CODE] Hoy voy a ser bueno, y voy a colaborar con el "enemigo": He hecho esta UDF con los parámetros que querías. [CODE]Function DESCONCATENAR(Texto As Range, _ Posicion As Integer, _ Optional Separador As Variant = ",", _ Optional Auxiliar As Variant = "") As Variant On Error GoTo Herror If Texto.Columns.Count <> 1 Then Exit Function Celdas = Split(Texto, Separador) DESCONCATENAR = Celdas(Posicion - 1) Exit Function Herror: DESCONCATENAR = Auxiliar Resume Next End Function [/CODE] [b]DESCONCATENAR(Texto; Número de celda a separar; [separador]; [Auxiliar de relleno])[/b] Salu2. Macro Antonio. PD: Me acabo de dar cuenta que ya habías desarrollado la UDF, pues ale, dos por el precio de una.

Gracias Germán, parece que ya va gracias a tus recomendaciones. No ha sido necesario desactivar el Editor de texto WYSWYG. Saludos. Macro Antonio, antiguamente conocido como Antoni. 3CommandButton.zip