Elsa Matilde

En la imagen dejo 2 códigos para llenar el Listbox, ya sea asignando el rango (no hace falta darle formato) o llenándolo celda x celda (se requiere darle formato). Además 2 códigos para pasarlas a la hoja. Y aquí también se le da formato si no se le...

Una opción es colocar el código en un módulo. En el evento Open luego de abrir el UF se llamará a esa macro con 'Call'. Por ej: Inserta un módulo y allí copia todo tu código. Sub macroCalculos() lastrow = Sheets("MKP").Cells(Rows.Count,...

Entiendo que la fórmula irá en celda D5 y se controla la fecha de AJ5 en lugar de F5 como mencionas. Entonces así quedaría la fórmula: =SI(Y($AJ$5<>"";MES($AJ$5)=MES(HOY()));1;0) Es decir que si se cumplen las 2 condiciones devolverá 1, sino...

De alguna manera habrá que identificar el año o por lo menos los 2 últimos caracteres. Por ejemplo aquí le digo que tome el año de la primer celda de la tabla, o sea A5 en mi caso. anio = Right(Year(Range("A5")), 2) Y luego tu instrucción de filtrado...

En la imagen siguiente verás la fórmula para el valor en Q3 que rescata el importe según fecha en col N. La celda siguiente tiene la misma pero haciendo referencia a col O. =INDICE(J:J;COINCIDIR(Q2;O:O;0)) Pero revisa tu col de fechas (N:O) porque en...

Necesitas un bucle (*) que recorra la col A de la hoja... lo que no queda claro es si los datos en Hoja1 empiezan en A10 porqué quieres empezar en A1 ('... al Dato que sea igual a la celda A1, luego a la A2, ..) Suponiendo entonces que sea a partir...

Te dejo la macro reducida para este caso, donde se tiene la misma sucursal y el mismo artículo. Debes completar el bucle SelectCase con los meses que faltan. Así con este ejemplo podrás resolver otros casos similares. Sub Suc_1() 'ajustada x...

Una opción, dependiendo de la cantidad de valores que haya que comparar, es la siguiente fórmula con las funciones SI e Y. =SI(Hoja1!C2<=60; 9,5;SI(Y(Hoja1!C2> 60;Hoja1!C2<=120);16;SI(Y(Hoja1!C2>120;Hoja1!C2<=240);24;100))) Aquí cancelé con el valor...

Las 2 sugerencias que te enviaron acelerarán el proceso: Application.ScreenUpdating = False, para no ver los cambios en la hoja ante cada pase. Y el modo de obtener la primer fila libre, buscandola desde abajo hacia arriba en lugar de recorrer todo...

No te respondí la anterior por encontrarme de licencia... aún lo estoy ;) Acabo e descargar el ejemplo dejado allí y mi propuesta es la siguiente: Private Sub CmbCalcular_Click() Dim MontoTotal As Integer Dim Factura As Integer Dim Boleta As Integer...