Antoni

Hola tuve: Rolano ya te ha comentado que es el famoso N, se trata de un combobox con la propiedad .Visible = False, de manera que solo se ve en modo diseño. (Cinta del programador\Diseño). ¿ Y para que ?, para saber si hay duplicados, para ello, voy cargando el combobox N con los datos de las celdas aprovechando la propiedad .Text del combobox. Dicha propiedad, al modificarla, modifica el valor de .ListIndex del combobox con los valores: -1 Cuando el texto a buscar no existe en el combobox <> -1 Cuando el texto a buscar ya existe en el combobox En resumen, si quieres aplicar la macro en una hoja/libro distintos al ejemplo, debes añadir un combobox en la hoja, con nombre N y la propiedad .Visible = False Saludos.

Hola a todos, incluidos "vosotros", ya sabeis quien: Luego os quejais que me meto con vosotros, como no me voy a meter si os pasais el día provocando. Sois como aquellos que se empeñaban en decir que La Tierra era plana después que ya se había dado la vuelta al mundo. Dejadlo ya, ¿ No veis que las fórmulas son reminiscencias del pasado ? ¿Que Microsoft las mantiene para que no os paseis el día llorando ? Aquí os dejo una macro, con archivo adjunto para que Gerson no se canse. A pesar de todo, os quiero, os quiero igual que un padre quiere a sus hijos que tienen "algún que otro defectillo".......jajaja No os pongais tristes después de probar la macro, vosotros a lo vuestro copy/paste, copy/paste.... Un beso, esta vez si, para todos.......... Macro, anteriormente conocido como Antoni, os desea Feliz Navidad. PD: Ya se que no viene al caso, pero ya no sabía que poner y quería poner algo. Extraer unicos CON macro.zip

Hola: Pues el título lo dice todo. "Saudiños dende" Santiago de Compostela. Macro. CeldaQueParpadea.zip

Esto de las referencias, no hay quien las entienda; supuestamente, para trabajar con el objeto VBProjectComponents, hay que activar la referencia Microsoft Visual Basic Extensibility xx.x, sin embargo, tu la desmarcas y te funciona. No lo entiendo. Saludos "Dexter". Antoni.

Gerson: ¿ y a tube porqué no le dices que suba el archivo ?, ¡Claro!, como ya tienes el mío,....jajaja Gracias tube, muy buena la reducción de código, no pensé. Saludos.

Hola Gerson: Es un error que despista. Incluye la referencia Microsoft Visual Basic Extensibility 5.0, y verás como funcióna. (Bueno, eso creo). Saludos.

Hola: ¿ No le estaremos dando excesiva trascendencia a algo que no la tiene ? El foro es un conjunto de personas que preguntan porque quieren y otro conjunto de personas que contestan porqué les da la gana. Esto no es un problema de razón, si no de opinión, todas las opiniones, si se exponen con respeto, deben caber en el foro, y aunque no coincidan con las de uno, no por ello debemos manifestar ni malestar ni animaadversión hacia nadie. Las opiniones contrarias a las nuestras son las que nos enriquecen. Y después del "rollo pastoral", y sobre el tema, decir que estoy en línea con Toldeman. Pues nada, feliz domingo a todos. Antoni.

Hola Catracho: Pues tienes razón, aportando el archivo, quizás alguien mas se anime a experimentar con el tema. De todas maneras, pienso que la curiosidad debe ser una de las cualidades que debes tener si deseas aprender. ¿ No se lo estaremos poniendo demasiado fácil ? Saludos. Antoni. FijarScrollArea.zip

Hola Rolano: Está muy bien, y muy bien presentado. Saludos.

Hola: De cuando en cuando me dedico a bucear por las páginas especializadas de Excel en la Web. Ha partir de una macro encontrada en ozgrid , he adaptado este código para no salirse del rango de la hoja. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'Ultima fila LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious).Row 'Ultima columna LastColumn = Cells.Find(What:="*", SearchDirection:=xlPrevious).Column 'Fijar área de scroll ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address End Sub [/CODE] "Saudiños".

Hola: ¿ Que tal están mis dos "formulianos" preferidos ? Para no ser meno aquí os dejo una UDF que hace lo mismo. Public Function DiaDeLaSemana(Fecha As Range) As Variant If Fecha.Cells.Count > 1 Then Exit Function If IsDate(Fecha) = True Then Dia = Array("Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado") DiaDeLaSemana = Dia(DatePart("w", Fecha) - 1) End If End Function [/CODE] Saludos. German: Yo a veces mato moscas a cañonazos, pero tu las matas con torpedos de antimateria.......Ja ja ja ...

Hay un error en el adjunto de ayer. Sustituir esta fucnión: Function ADO_CONEXION(CONEXION As Object, Optional DATABASE As Variant = "MyDB") On Error GoTo ERROR_ADO_CONEXION '====================================================== ' Obtiene una conexión con la base de datos '====================================================== Set CONEXION = New ADODB.Connection Application.ScreenUpdating = False ThisWorkbook.Worksheets("SQL").Cells(9, 2) = "ADO_CONEXION" For x = 3 To 7: ThisWorkbook.Worksheets("SQL").Cells(x, 2) = "": Next x CONEXION.Open DATABASE 'CONEXION POR ODBC ADO_CONEXION = 0 Exit Function '------------------------ ERROR_ADO_CONEXION: ADO_CONEXION = 1 ThisWorkbook.Worksheets("SQL").Cells(5, 2) = Err.Number ThisWorkbook.Worksheets("SQL").Cells(6, 2) = Err.Source ThisWorkbook.Worksheets("SQL").Cells(7, 2) = Err.Description '------------------------ End Function [/CODE] Un saludo.

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.