Antoni

No se acaba de ver, solo un ejemplo: 12 hombre+12 mujeres son 24 participantes, si cada participante juega 11 partidos, 24 por 11 son 264 partidos, lo que contradice las siguientes afirmaciones. Dicho lo cual, mejor subes un archivo, por ejemplo 4 hombres y 4 mujeres, a ver si se ve más claro lo que pretendes.

El calendario se calcula automáticamente a partir de la cela Q1. En Q3 hay una llamada a la UDF FirstMonthMonday. Hay 2 formatos condicionales para marcar las fechas fuera del mes. Abre el adjunto y pulsa sobre el "botón" Trova Date. Mio_Progetto_Calendar.xlsx.xlsm

Si lo que buscas es el Cliente, este concepto se halla en la columna 5 de la Hoja7, no en la 83. nombre = Hoja7.Cells(FILA, 83).Value

Faltan hojas en el archivo que has subido (BD, CLIENTES, ALTAARTICULOS1,.....)

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