Habrá alguna manera de lograr que lo que esta en rojo, solo compare el rango de celdas que tienen algo y si estan vacias no? (no indicar un rango preciso como A1:A1000 mas bien que busque hasta encontrar la vacia y ese es el rango)
No tengo practicamente idea de macros, muy poco y no sabria por donde empezar para adaptarla...
realmente hoy no tengo 1000 celdas completas recien voy por la 80, no quiero modificar el rango a mano porque despues hay que acordarse de volver a hacerlo para agrandarlo, en cambio si se pudiera modificar como pretendo seria automatico
espero me puedan ayudar gracias igual.
Nacho.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos! tengo esta macro:
Sub loco()
Dim CompareRange As Variant, x As Variant, y As Variant, contador As Double
Dim RANGES As Range
Set CompareRange = Sheets("PRECIOS").Range("B1:B1000")
Set RANGES = Sheets("COMPRAS").Range("B1:B1000")
Application.ScreenUpdating = False
Sheets("PRECIOS").Select
Range("A1").FormulaLocal = "=CONTARA(B1:B1000)"
For Each x In RANGES
For Each y In CompareRange
If x = y Then contador = 1
Next y
If contador = 1 Then
contador = 0
Else
Cells(Cells(1, 1).Value + 1, 2).Value = x
Cells(Columns(1).SpecialCells(xlCellTypeLastCell).Row, 1).Select
Application.ScreenUpdating = True
End If
Next x
Range("A1") = ""
Sheets("PRECIOS").Select
End Sub
Habrá alguna manera de lograr que lo que esta en rojo, solo compare el rango de celdas que tienen algo y si estan vacias no? (no indicar un rango preciso como A1:A1000 mas bien que busque hasta encontrar la vacia y ese es el rango)
No tengo practicamente idea de macros, muy poco y no sabria por donde empezar para adaptarla...
realmente hoy no tengo 1000 celdas completas recien voy por la 80, no quiero modificar el rango a mano porque despues hay que acordarse de volver a hacerlo para agrandarlo, en cambio si se pudiera modificar como pretendo seria automatico
espero me puedan ayudar gracias igual.
Nacho.