joseq mmmm

Range("B10").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(SUM(VLOOKUP(RC[-1],ALBARANES!R[-4]C[-1]:R[997]C[3],5,0)),"""")"

' Busca texto "Total Factura" selecciona celda derecha copia y pega otro libro Cells.Find(What:="Total Factura", After:=ActiveCell, LookIn:=xlFormulas2 _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...

Pero un poco más de investigación ha dado resultado Coloco el código que funciona Sub copiar_celdas_diferentes_pegar_otro_libro() ' abre el siguiente archivo Archivo = "D:\Jose Ono\Facturas\PLANTILLAS\clientes facturados.xlsx" Set fso =...

Ya encontré la respuesta La plantilla la tenia bloqueada el gobierno

No se si me podréis ayudar Necesitaría eliminar filas. En la columna E tengo formulas en las 1000 celdas, necesito que elimine todas las filas que en la columna E no tengan resultado De otra manera, que busque la ultima celda de la columna E en el...

Gracias por todo lo aportado