Gente tengo una pregunta, estoy haciendo una planilla para mi negocio, la misma consiste en comparar los precios de listas nuevas contra las de las viejas, el tema es que tengo muchisimos articulos, entonces hice una macro donde compara todo y me ordena los precios que se modificaron, hasta ahi voy bien ahora mi consulta es la siguiente, despues de este codigo que es el de buscar

Cells.Find(What:=Range("d1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate

yo necesito que desde la celda que quedo activada me seleccione 4 celdas para la derecha y todo para abajo y las borre por que son resultados duplicados

como tengo que escribir ese codigo, ya que la busqueda es aleatoria y no siempre va a la misma celda

Hola! Juan. No me queda claro eso de:

... desde la celda que quedo activada me seleccione 4 celdas para la derecha ...

pero y según mi primera interpretación, intenta con:

Dim C As Range, LR As Long
Set C = Cells.Find(What:=[d1], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
LR = ActiveCell.SpecialCells(xlLastCell).Row
Range(C, Cells(LR, C.Column)).Resize(, 4).Delete xlShiftUp[/PHP]

Saludos, Cacho R.

a como yo lo entendí iria este codigo despues de tu busqueda:

Dim rng1, rng2 As Range

Set rng1 = ActiveCell

ActiveCell.Offset(0, 3).Select

Selection.End(xlDown).Select

Set rng2 = ActiveCell

Range(rng1, rng2).Clear

[/CODE]

comenta saludos

muchas gracias funciona perfecto los dos, son unos genios:nevreness:

CERRAMOS la consulta, entonces.