Hola! Carlos. Fíjate si lo siguiente te puede ser de utilidad: _________________ Sub Macro408() Dim Las27 As Range, ListInterno As Range If IsEmpty([b21]) Then Exit Sub Set Las27 = [b21] If Not IsEmpty([b22]) Then Set Las27 = Range([b21], [b21]. End(xlDown)) With Sheets("listado alb") . Unprotect Set ListInterno = Range(. [a2],. [a65536]. End(xlUp)) End With With ListInterno. Offset(, 11) . Value = Evaluate("IF( ISERROR(MATCH(" & _ ListInterno. Address(External:=True) & ", " & _ Las27. Address(External:=True) & ", 0)), " & _ . Address(External:=True) & ", ""facturado"")") End With Set Las27 = NothingSet ListInterno = Nothing Sheets("listado alb") ... ver debate
