hugolaza

¿En un solo ListBox o en dos separados?

Añade esta linea debajo de : Application.ScreenUpdating = False Range("F4", Range("G65536").End(xlUp)).Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlNo

Usa esta fórmula : =SI(SI(B2="Condicion1",1,0)+SI(C2="Condicion2",1,0)+SI(D2="Condicion3",1,0)>=2,10,SI(B2="Condicion1",1,0)+SI(C2="Condicion2",1,0)+SI(D2="Condicion3",1,0)+8) En donde, celda B2 contiene la primera condición Celda C2 contiene la...

Utiliza esta rutina: Sub CopiarVertical() Range("B1", Range("IV1").End(xlLeft)).Copy Range("A2").PasteSpecial Transpose:=True Range("B1", Range("IV1").End(xlLeft)).ClearContents Range("A1").Select End Sub

Cambia la fila : If LCase(ActiveCell) = "improcedente" Then a 1. If LCase(ActiveCell) = "disponibles" Then ' para buscar disponibles 2. If LCase(ActiveCell) = "improcedente" or LCase(ActiveCell) = "disponibles" Then ' para que busque improcedente y/o...

=CONTARA(Rango)

Copia este código en tu UserForm. Asegurate de borrar algún código de LisBox1_Change() que puedas tener. Añade un TextBox1 a tu UserForm. Allí se almacenará el total. Cambia la referencia Range("A1") por la celda donde empiezan las cantidades. Si por...

Supongo que en esa casilla tienes algo así : =A1+F6+G8 o bien =Suma(A1:B12) Entonces, para que el valor maximo sea 100 cambia los ejemplos de la sigiente manera : =SI(A1+F6+G8>100,100,A1+F6+G8) o bien =SI(SUMA(A1:B12)>100,100,SUMA(A1:B12))

Utiliza esta rutina: Sub Copiar() Range("A1:C6").Copy For a = 1 To 5 Range("F1").Offset((a - 1) * 6, 0).PasteSpecial Next a Application.CutCopyMode = False End Sub Cambia la linea For a = 1 To 3 a la cantidad de veces que quieras se repita tu copia....

Incluye esta llinea en tu macro, para almacenar tu cálculo en una columna. Range("A65536"). End(xlUp). Offset(1, 0) = tu_calculo Consideraciones : * Cambia la referencia : Range("A65536") por la columna donde colocarás tu cálculo. Si la columna fuera...