calvuch

En C debes poner la lista de nombres NO repetidos ( utiliza la funcionalidad de excel) "quitar duplicados" Una vez obtenida la lista con registros únicos, en columna DE pones esto: =si(contar.si(a:a;c1)>1;sumar.si(a:a;c1;b:b);0) Así si el valor de c...

Inserta un modulo en tu proyecto ( desde el editor de visual basic ALT + F11) Una vez insertado el modulo pegas este macro: Sub lista_hojas() Dim r As Worksheet Dim m() As String Dim ca As String Dim i As Integer Dim ii As Integer Dim libro As String...

Prueba así: Sub ajuste() Dim r As Range Dim f As Integer f = Application.WorksheetFunction.CountA(Range("A:A")) If f = 0 Then Exit Sub Application.ScreenUpdating = False For Each r In Range("A1" & ":" & "A" & f) If InStr(1, r.Text, ":") = 0 Then If...

Utiliza la función contar. Si. Conjunto Considerando tu data columna A (meses números 1,2,3 etc) col b (1 para afiliado) col c (seccional en este caso 9) seria =CONTAR.SI.CONJUNTO(A1:A12;1;B1:B12;1;C1:C12;9) tomando como base el rango a1:a12;...

Ups!. Se paso algo... me di cuenta que necesitabas que fuese desde la linea 3 Y olvide el incremental., sorry. Ahora si: Private Sub CommandButton1_Click() Dim fila As Integer fila = Application.WorksheetFunction.CountA(Range("A:A")) + 3 fila = fila...

Pon el macro que estas usando. ¿Lo haces mediante un botón?

Inserta un modulo en tu libro ( desde el editor de visual basic ALT + F11), en ese modulo pegas este macro: Sub color() Range("A:A").Font.color = 0 If [c1] > 0 Then Range("A1" & ":" & "A" & [c1]).Font.color = 255 End Sub Luego desde el editor de...

No hace falta una macro para eso, solo basta que te posiciones sobre el texto que deseas y luego presiona las teclas CTRL + n y listo

Utiliza la funcionalidad de excel "formato condicional" / "Resaltar reglas de celda" / "Es menor que..." Allí le indicas el color que deseas

.