Cecilio Pérez Maqueda

Te adjunte a tu correo el archivo.

A ver cambiale el código de tu rutina sub copier() por esta otra (ejecutalo en tu hoja "Fx Deals Transacted" Sub CopiandoHaciaOtrasHojas() Final = Cells(Application.Rows.Count, 1).End(xlUp).Row For i = 4 To Final Thish = Cells(i, 21) fila =...

Otra opción sería =SUMAPRODUCTO(CONSULTAV("Agosto",Hoja1!$C$4:$K$15,{2;3;4;5;6;7;8;9},FALSO)) en este ejemplo con los corchetes indicas que quieres que te traiga las columnas {2;3;4;5;6;7;8;9}, abres y cierras corchetes Valor buscado:Agosto...

Para la columna "A" Range("A4).select Do While Activecell.value<>"" Aquí iría las instrucciones que desea que se ejecute mientras sea diferente a nada/espacios

Supongamos que en la columna B tienes los ceros Sub ocultarfilas() Range("B11").Activate While ActiveCell.Row <> "" If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Hidden = True End If ActiveCell. Offset(1, 0). Activate Wend

Para fihjar la ultima celd a con informacion es con una variable Ejemplo Fin=Range("D"& Rows.count).End(XlUp).row En este caso quiero que determine la ultima celda con datos de la columna D, pero tu lo puedes adaptar según tus necesidades y en las...

Ya chequeaste tal vez en la parte de: if workbooks= false Then Exit sub

Prueba con este código Perdón la tardanza, Cambia el nombre de la hoja "productos" Cambia el nombre de la hoja"Pegado" Ejecutalo desde tu archivo 1 y en automático te desplegara la ventana para buscar tu archivo 2 Comentame si te sirve o quieres que...