Antoni

Hola Rafael: Te propongo una variación. En primer lugar he cambiado el formulario a No modal para poder ir cambiando la celda activa sin necesidad de descargar el formulario, y en segundo lugar voy actualizando la celda activa a medida que se va escribiendo en los textbox, con lo que los botones ya no son necesarios. A ver que te parece. Saludos AñadirAntesDespues II.zip

Hola Santi: Simplemente, genial. Un saludo. Antoni.

Hola: Muy ingenioso, me lo guardo en mi carpeta de ExcelTools. Saludos.

Hola: Esta macro rellena/quita relleno, a las celdas con fórmula. También es un ejemplo de como aplicar SpecialCells. Sub AlternarResaltarFormulas(Kolor) On Error Resume Next If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor Then ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = xlNone Else ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor End If MsgBox "Total celdas con fórmula: " & ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Cells.Count End Sub [/CODE] Podeis variar Kolor entre 0 y 55. Saludos. PD: Como he leído por ahí, a mi también se me están alineando los coágulos en el cerebro. Cada día que pasa, tengo menos ideas para confeccionar aportes.

Hola a todos: Como casi siempre, voy a ser yo quien se ponga un poco "borde", acordaros de aquello que dice: o sea que a seguir "currando" para hacer a la web, simplemente: "The Best". Saludos a todos y "Happy" 2011. Germán: The Best quiere decir "La mejor" no "La Bestia",....... jajaja.

Enhorabuena: Ya estás en el nº 1. Saludos.

Re: Felices Fiestas, a todas las personas de buena voluntad ¡¡¡ Feliz Navidad !!!

Hola: Ahora me funcionan los dos. Sube el excel para pasar a rgb las imágenes. Saludos.

Jajaja...muy bueno, aunque no consigo cambiar de color. ¿ Has cambiado algo del procedimiento ?, de todas formas me lo miraré y compararé con la versión anterior. Saludos.

Re: Ejercicios con el raton para novatos del excel (Nivel basico de ingles requerido) Hola: Muy bueno y didáctico. Hay un error en la hoja "Select cells", en K11, donde dice: You have just select the second range of cells[/PHP] debe decir: [PHP]You have just select the third range of cells.[/PHP] Saludos.

Hola: Adjunto una versión "cutre" del popular Paint de windows. Es otra aplicación del "evento" mousemove en la hoja. Color primario: Click en paleta de colores Color secundario: Click derecho en paleta de colores Modo pintar: Botón On/Off Click izquierdo, pinta con el color primario hasta nuevo click (Derecho o izquierdo) Click derecho, pinta con color secundario hasta nuevo click (Derecho o izquierdo) Para los que tengais hijos, ya teneis otra forma de entretenerlos. Saludos. Macro PintarCuadros.zip

Hola: En el adjunto encontrareis un formulario, en este formulario, podreis Insertar, Eliminar y Actualizar cualquier hija del libro, desde 1 a 8 columnas. La hoja, debe tener una fila de encabezamiento con el nombre de las columnas. En dichos nombres pueden insertarse unos caracteres al principio y al final que nos permitirán saber en el momento de editar: (Se explican en el adjunto) Si el dato es obligatorio o no Si la columna admite duplicados o no Si la columna es modificable o no Si el dato tiene formato texto Si el dato tiene formato fecha Si el dato es numérico El formulario, se redimensiona de forma automática en función del nº de columnas, de igual forma, en función del tipo de dato, se configuran el resto de controles. El encabezamiento del formulario, en la propiedad ControlTipText, muestra los atributos de la columna. Toda la edición se realiza en un listbox, existiendo un "botón" que nos permite pasar la información a la hoja. También, mediante otro "botón", es posible recuperar la imagen anterior de la última actualización. Creo que os puede resultar interesante revisar el código, ya que los controles se trabajan unicamente con la colección Controls del formulario. Espero que os sea útil. Saludos a todos. Macro EditarHoja.zip

Hola Santi; Pues no había visto el laberinto, está muy bién, A mi nieta le va a encantar. Saludos.

Hola: Allá por el mes de mayo, a raiz de una consulta de verzulsan, neverdelimon proporcionó un aporte a base de combinar APIS y un módulo de clase para conseguir un evento MouseMove en la hoja. Me ha parecido interesante y lo he recuperado con un ejemplo de como saber en todo momento la suma de un rango de celdas. En el adjunto hay dos macros, ArrancarMouseMove y PararMouseMove, creo que con el nombre ya está todo dicho. ArrancarMouseMove, se ejecuta de forma automática al arrancar el libro. Besitos. ¡¡¡ Me voy corriendo que viene Tutankamon y es un "plasta". !!! EventoMouseMove.zip

Hola josemaría: Para ambiar el nombre de thisworbook, hemos de proceder exactamente como en cualquier otro objeto: F4 para tener las propiedades abiertas, click en Thisworkbook, y cambiar la propiedad .Name por el nombre que queramos. Es increible, pero pasa totalmente desapercibido, hasta hace poco, yo tampoco me había dado cuenta que se podía cambiar. ¡Ah! y lo mismo pasa con las hojas. En relación con los "cuadritos", se pueden llegar ha hacer maravillas jugando con los colores y tamaños. Saludos.

Hola: En el "otro foro", alguien hizo una consulta de como dibujar cuadrados en la hoja con los bordes de las celdas, y pensé, que forma mas estúpida de perder el tiempo y decidí que aburrirse todavía era una forma mas estúpida de perder el tiempo, o sea que aquí me teneis haciendo una herramienta para recuadrar rangos. Espero que os parezca tan inútil como a mi, pero si alguien tiene que hacer muchas plantillas, igual hasta le vale. Eso si, si alguien tiene dudas de como usar un control spinbutton, de como recuadrar una celda, o de como se pone color a un borde, igual le entretiene un rato. Pues nada mas, ya falta menos para la Navidad. Saludos. Macro. ¡Ah! Recuerdos de Cleo para todos. Cuadrático.zip

Hola: Pues después de ver a tanto "monstruo" por aquí, no iba yo a quedarme mudo. Sub SoloNumeros() For Each celda In Selection For x = 1 To Len(celda.Value) If IsNumeric(Mid(celda.Value, x, 1)) Then cadena = cadena & Mid(celda.Value, x, 1) Next x celda.Value = cadena Next celda End Sub [/CODE] Que los vientos os sean propicios para que vuestras naves lleguen a puerto amigo. Y si no teneis naves, pues,...........no se,.....ya se me ocurrirá algo. Saludos.

Hola: Hay un refrán español que dice: "La cabra siempre tira al monte",......jajaja Un abrazo amigo Gerson

Hola Gerson: Veo que poco a poco vas cambiando de bando, jejeje. Un abrazo.

Hola: Otra muestra mas del aburrimiento en un día de "perros" en Galicia. Se explica por si solo. Hasta la próxima si no me ahogan las lluvias. Editar listbox con multiselección.zip

Gracias Pedro: Pero todavía puede ser mas fácil: FechaFinal = FechaInicial + Dias[/CODE] Solo pretendía explicar que existen unos parámetros que son opcionales, y que pueden informarse o no. Evidentemente, con los tres parámetros a false, la función carece de sentido. Saludos cordiales.