Localizar numero repetidos en la misma columna

Este es mi rutina va bien pero quiero que repita la acción hasta el final de la columna y no solo una vez
Dim NumeroPoliza As Variant
Range("B5").Select
NumeroPoliza = ActiveCell.Value
Do While ActiveCell <> "" And ActiveCell.Offset(0, 2).Value <> Range("B4").Value
If NumeroPoliza = ActiveCell.Value And ActiveCell.Offset(0, 5).Value <> "" Then
ActiveCell.Offset(0, 5).Interior.ColorIndex = 15
End If
ActiveCell.Offset(1, 0).Select
Loop

1 Respuesta

Respuesta
1
Si deseas acertlo hasta el final de la columna,
Cambia el While por un for,
Ej:
Dim NumeroPoliza As Variant
Range("B5").Select
NumeroPoliza = ActiveCell.Value
for i = 0 to  65536 ' o 1048576 en Excel 2007
If NumeroPoliza = ActiveCell.Value And ActiveCell.Offset(0, 5).Value <> "" Then
ActiveCell.Offset(0, 5).Interior.ColorIndex = 15
End If
ActiveCell.Offset(1, 0).Select
next i

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Separar e datos unidos por comas en una celda, en varias celdas de la misma columna

Necesito solucionar algo sencillo que me esta rompiendo el coco: necesito una macro para excel 2007 que me permita separar en varias celdas de una misma columna, varios elementos que se encuentran en una sola celda separados internamente entre sí por...
1 respuesta

Crear ordenes de trabajo en base a una lista

Tengo una tabla donde los usuarios van a ingresar fila por fila algunas tareas que van a ir enumeradas, ademas de otros datos, como fecha, prioridad, etc. Por cada tarea necesito que se elabora una orden de trabajo nueva que contenga todos los datos...
1 respuesta

Macro para mostrar valores de una variable en Msgbox

Experto recurro a ti para solicitar de tu valiosa ayuda en el siguiente problema, resulta que yo tengo un código el cual me ayuda para de una serie ordenada avisarme cuáles folios consecutivos son los que me faltan en esa serie, así que cuando...
1 respuesta

Recorrer una columna, mover datos y combinar celdas

Tengo un archivo con bastantes partidas.. Necesito que me recorra la columna "B" donde está la palabra "Partida", una vez encontrada la palabra "Partida, se vaya a la celda en la misma fila y la columna "M", luego me recorra la columna "M" hacia...
1 respuesta

Comparar valores de columna A, si iguales, concatenar valores de B en C, si no copiar B en C sin con

Tengo un Excel, en la columna A hay valores repetidos desde 2 veces hasta N, y en la columna B hay valores diferentes para cada celda de A, independientemente de sus valores. Lo que tengo que hacer es mientras los valores de A sean iguales, hay que...
1 respuesta

Macro que recorra una columna...

En la columna A desde la celda A1 hasta la celda A100 hay importes algunos positivos y otros negativos, lo que necesito es una macro que recorra la columna y cuando encuentre un numero negativo lo coloque en la celda de la derecha en la misma...
1 respuesta

Macro recorre columna !urgente!

En la columna A desde A1 hasta A100 hay números, celdas vacías y ceros, necesito una macro que recorra el rango y me elimine unicamente los ceros que el resto del rango quede igual... Muchas gracias x tu ayuda Ya me habías mandado una macro pero lo...
1 respuesta