Antoni

Sube un archivo con datos de ejemplo.

Empieza por subir tu archivo para no tener que jugar a las adivinanzas.

No se prácticamente nada sobre el control listview, por lo que seguro que hay otra forma de hacerlo. Abre el formulario, selecciona una fila del listview y pulsa Doble-Click. PRUEBA 1.xlsm

Pon la columna en formato texto.

Mientras subes el archivo te comento, es incompatible el uso de la propiedad RowSource y el método AddItem, a principio del filtro debes poner MiLista.RowSource=""

Selecciona las celdas a sumar y la celda de destino, la celda de destino debe ser la última que se seleccione, permite cualquier número de celdas y rangos. Sub SumarRangos() Dim Total As Double, Rangos As Variant, Celda As Range Rangos = Split(Selection.Address, ",") For x = 0 To UBound(Rangos) - 1 For Each Celda In Range(Rangos(x)) Total = Total + Celda Next Next Range(Rangos(UBound(Rangos))) = Total End Sub

Tu macro ya hace lo que pides, solo imprime si pone "Si" en la columna D, por lo que con cualquier otro valor en la columna D, no imprime.

ActiveSheet.UnProtect "loro", antes de actualizar y ActiveSheet.Protect "loro", después

Corrijo: Sub TextBox8_Change() If IsDate(TextBox8) and IsDate(TextBox7) Then TextBox9 = Round(DateDiff("m", CDate(TextBox7), CDate(TextBox8)) / 12, 2) End If End Sub

Sub TextBox8_Change() If IsDate(TextBox8) and IsDate(TextBox7) Then TextBox9 = Round(DateDiff("m", TextBox7, TextBox8) / 12, 2) End If End Sub

Prueba esta macro: Sub Diferencia() Dim Fecha As Date Fecha = CDate("15/08/2010") '<---------- Tu fecha de ejemplo MsgBox "Años: " & Round(DateDiff("m", Fecha, Date) / 12, 2) End Sub Nota: Los textbox tiene formato texto, debes convertirlos a fecha antes de operar con ellos. (Función CDate)

Range("G5").Formula2Local = "=UNICOS(Soporte)" 'O TAMBIÉN Range("G5").Formula2 = "=UNIQUE(Soporte)"

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.

Pues a mi me funciona:

De todas formas, ¿Has visto el comentario de DiegoPC aquí?

Creo que no va a ser posible o al menos yo no lo veo.

No se acaba de entender, sube un archivo con un ejemplo exacto de lo que quieres hacer.

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

Esta macro hace lo que has pedido inicialmente: Sub Eliminar85FilasColumnaA() Dim Texto As String, Celda As Range Texto = InputBox("Texto a buscar") If Not Texto = "" Then Set Celda = Columns("A").Find(Texto, , , xlWhole) If Not Celda Is Nothing Then Range(Celda).Resize(85, 1).EntireRow.Delete End If End If End Sub

Deberías explicar de donde salen los días festivos.

Lo mismo que te ha contado Abraham, pero teniendo en cuenta la tabla. Sub ListarÚnicos() Dim Únicos As Variant Únicos = WorksheetFunction.Unique(ListObjects(1).DataBodyRange.Columns(1)) Range("G5").Resize(UBound(Únicos), 1) = Únicos End Sub

Comparto totalmente la opinión de JSDJSD O subes un ejemplo con el antes y el después o te quedas sin respuesta.

Abre el adjunto y pulsa sobre la flecha azul. help.xlsm

Súbelo a la nube (Dropbox, SkyDrive, Mega,.....) y adjunta el enlace.

Cambia la fórmula del formato condicional: =($C$2=$D$2)*($C$2<>"")*($D$2<>"")