d2enri

Aparentemente este código funciona bien solo selecciona los rangos donde tienes datos comprueba que en la columna 10 no tengas datos de algún tipo como puede ser algún punto o bordes si aun así no te funciona pásame tu archivo d2enrique arroba hotmail.com

Si dejas tu correo te mando algún ejemplo

Si me pasas tu código o archivo y me indicas los rangos que quieres borrar y donde quieres el nº de factura te lo modifico

Eso se puede hacer con formato condicional si no quieres muchos colores Dime si tienes excel 2003 ó 2007 Y cuantos colores quieres también si me pasas el archivo sera más rapido d2enrique arroba hotmail.com

Cambia tu fórmula por esta otra y si no hay datos no te dará nada =SI.ERROR(BUSCARV(B19;'1basededatos'!A2:H15000;2;FALSO);"")

Si me pasas tu correo te pasare un buscador realizado con macro que te busca todas las coincidencias

No se si existe una manera mejor de realizarlo pero podrías crear una macro Si solo es un archivo entras en Buscar y seleccionar, elijes reemplazar buscas la coma y la reemplazas por el punto luego pulsas reemplazar todos y ya lo tienes Si lo...

Si no entendí mal te basta con esta fórmula =SI(F31>0,J41,J40) esta si tu sistema usa coma =SI(F31>0;J41;J40) esta si usa punto y coma Si no era esto explícamelo un poco mejor

si A1 14/03/2010 y A2 25/12/2010 pon esta formula =SIFECHA(A1;A2;"d") el resultado = 286

No hace muchos días hice una macro que hace lo que pides Sub eliminar_filas() Dim rango As Range For Each rango In ActiveSheet.Range("e1:e100") If rango = "" Then rango.EntireRow.Delete End If Next End Sub Si quieres que se ejecute al cambiar alguna...