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

Parece mentira el deterioro cerebral que se sufre con el paso de los años. ¿ No será un exceso de tequila ?, hazme caso, pásate a la cerveza y lo verás todo mas claro.....jajaja:rolleyes: Un saludo muy cordial desde la tierra de las meigas. Macro Antonio.

Jolín, que sentidos sois los "formulianos", os ofendeis enseguida, pero si en el fondo todos sabemos que os gustaría usar macros, ¡¡ Venga hombre !! animaros a usarlas, si es mucho mas sencillo de lo que parece, luego me lo agradecereis. ¡¡¡ Que nunca se pierda el sentido del humor !!! Saludoooooooooos a todoooooooooooos. Macro Antonio.

Gracias catracho, comentarios como los tuyos te hacen engordar 10 kilos, jajaja Un saludo enorme. Antoni.

Hola: Siguiendo mi misión de evangelización por territorios "formulianos", os dejo una mini macro que sustituye a vuestras mas de 200 fórmulas. Sub SepararTexto() On Error Resume Next Application.ScreenUpdating = False If Selection.Columns.Count <> 1 Then Exit Sub If Selection.Column <> 1 Then Exit Sub For x = 1 To Selection.Rows.Count celdas = Split(Cells(x, 1), Cells(x, 2)) y = 4 For c = 0 To 14 If celdas(c) = "" Then Cells(x, y) = Cells(x, 3) Else Cells(x, y) = celdas(c) End If y = y + 1 Next c Next x End Sub [/CODE] ¿ Porqué matar moscas a cañonazos cuando existe el insecticida ?. Saludos. Antoni.

Hola: Os adjunto un formulario con un combobox y un sistema de búsqueda en él. En el propio formulario están las instrucciones. Fijaros en la potencia del operador Like y la función Split. ComboSearch.xlsm Salu2. a to2 ....to2. Antoni.

Hola Juan: Ahora ni siquiera me permite ver los archivos de mi PC. Un saludo. Antoni.

Me uno en todo a lo comentado por Juan. ¡¡¡ Feliz cumpleaños !!! Saludos. Antoni.

Hola: A raíz de esta consulta en el foro de "Excel general" fila activa siempre cen el centro de la pantalla se me ocurrio esta macro por si a alguien le pueda interesar: ' Dim Fila, Columna, x, y Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False ' Control de cambio de celda activa '---------------------------------- If Len(Fila) > 0 Then x = Target.Row - Fila If x < 0 Then x = x * -1 y = Target.Column - Columna If y < 0 Then y = y * -1 If x > 1 Or y > 1 Then Fila = Target.Row Columna = Target.Column Exit Sub End If Else Fila = Target.Row Columna = Target.Column Exit Sub End If ' Control scroll vertical '------------------------ If Target.Row > Fila Then ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1 Fila = Target.Row ElseIf Target.Row < Fila Then ActiveWindow.ScrollRow = ActiveWindow.ScrollRow - 1 Fila = Target.Row End If ' Control scroll horizontal '-------------------------- If Target.Column > Columna Then ActiveWindow.SmallScroll ToRight:=1 Columna = Target.Column ElseIf Target.Column < Columna Then ActiveWindow.SmallScroll Toleft:=1 Columna = Target.Column End If End Sub [/CODE] Saludos. Antoni.

Cenquiu berimach.

Hola: ¡ Que largo y aburrido es el domingo por la tarde!. Y como me aburría he hecho esta UDF, que estoy convencido que se podría obtener lo mismo utilizando el "formato condicional", pero puede servir para ver como se manipulan objetos, en este caso "formas básicas". CompararValores.xls Salu2. Antoni.

Hola: Pues mira sailepaty, como soy muy olvidadizo y trabajo mucho con planificaciones que tienen totales de filas y columnas, decidí hacer esta UDF para asegurarme que si he incluido nuevas filas y columnas, no me haya olvidado de incluirlas en los totales. Saludos. Antoni.

Hola: Supongo que la mayoría ya lo sabeis, pero por si acaso: Forma de abrir un libro y que no se ejecuten las macros de inicio: Abrir Excel\Abrir Seleccionar el libro y Shift+Aceptar Salu2. Antoni PD: Este método no funciona abriendo el libro de ninguna otra manera.

Hola y gracias a todos: A ti Luis gracias además por la excelente fotografía del paseo fluvial de mi pueblo, Bertamiráns. Saludos. Antoni.