Dante Amor

Podrías poner ejemplos con imágenes de lo que tienes en J7 y K7. ¿En dónde hay que buscar? Es otro libro, ¿cómo se llama el libro? Es otra hoja, ¿cómo se llama la hoja? Cómo están tus datos en A4:K1000, dónde buscar y qué resultado quieres, con una...

Para sumar necesitas evaluar una fórmula como esta: =SUMPRODUCT(SUBTOTAL(9,OFFSET(E$6:T$4000,ROW(E$6:E$4000)-ROW(E$6),0,1))) Otra opción es realizar en memoria un ciclo con todos loa datos y evaluar los datos según la condición del filtro y sumar los...

Cuáles quieres colorear, ¿las de la columna A o las de la D o ambas? ¿Lo quieres con formado condicional o con macro? Si es con macro, ¿la quieres en automático o cuando presiones un botón?

Si ejecutas la macro para poner "B", ¿Si ya tiene "B" agregar otra "B"? Si ejecutas la macro para quitar la " B", ¿Si no tiene B quitar el primer número?

Revisa la siguiente macro Macro que guarde libro con otro nombre cuando archivo ya exista

Está podría ser una opción. Estas son las características: 1. En la columna E debes poner los nombres únicos de las personas. 2. Todos los nombres, al final de los datos, deberán terminar con estatus "Abandonó". Supongo que la reunión tiene una hora...

Prueba la siguiente macro: Sub CrearContraseñas() Dim sSim As String, sNum As String, sLet As String, sCad As String Dim arr As Variant, m As String Dim i As Long, j As Long, x As Long, y As Long, n As Long ' sSim = "@#$%/\()-+*" 'Los símbolos que...

Detecte la última Columba vacía de A, seleccione la Columna y baje las fórmulas una columna más Supongo que te refieres a la última fila vacía de la columna A. Seleccione la fila y copia las fórmulas en la fila de abajo. Es decir, si la última celda...

Los puntos rojos significa que vas a utilizar una expresión, algo como esto: With Range("B5") .Value = "hola" End With Pero al dejar el punto sin la expresión, el editor de VBA te envía el error y lo pinta de rojo. No sé por qué la macro pone el...

Prueba lo siguiente: Sub TEST() With Worksheets("PRINCIPAL").Range("A:AP") . AutoFilter . AutoFilter 2, Array("ALMACEN", "TIENDA"), xlFilterValues . AutoFilter 34, 0 End With End Sub