Elsa Matilde

En cada línea del copy debes buscar la primer celda vacía. Hay varios modos, el más común sería buscar la primer celda en la col que siempre tendrá datos hasta el final, digamos A: filx = Workbooks("Stock Gabardina 6OZ(1).xlsm").Worksheets("Azul...

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,...

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...

Así de alguien que ni siquiera ha consultado me llena de gratitud hacia ti. Que tengas un año colmado de momentos felices y de mucha prosperidad... que sea un EXCELente año ;) Sdos cordiales,

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...

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...