Enfrentar Celdas Iguales

Amigos
Aquí tengo otra situación imposible para resolverla solo y sin ayuda.
Tengo 2 columnas con números: una consecutiva "testigo" y otra el
consecutivo "saqueado"
Lo que necesito es que los consecutivos se enfrenten para ver cual me hace
falta.
Hacer "a mano" 4500 filas es muy dispendioso.
Ejemplo

A B C D
0001 0004
0002 0007
0003 0008
0004 0011
0005 0015
0006 0016
0007 0018
0008 0021
Etc, etc
Como observarán en éste ejemplo, los números 0001 0002, 0003, fueron
"saqueados" entonces sus celdas en la columna "D" o sea del frente deben
quedar vacías y los números que existen deben colocarse en el frente o sea
en columna "D" así como sigue:


A B C D
0001
0002
0003
0004 0004
0005
0006
0007 0007
0008

El resto de números deben estar más abajo frente a las celdas que les
corresponden.
Qué fórmula o código hay que aplicar para esto?.
Lo ideal para mi sería que yo tuviera una sola celda de entrada y allí al
digitar el número correspondiente a la Columna "D", con el sólo Enter el
número saliera a buscar su "pareja" y se posara al frente.
Les recuerdo que la columna "C" es simplemente "Testigo".
Muchas gracias por anticipado

Oscar
Barranquilla

Hola Ramón
Esto no me funcionó. Lo que sale deberías ensayarlo tu mismo, pues me

dificil explicar.
Se selecciona la celda A1 luego la A2, Luego la A3, A4, A5, A6, A7, A8 y
regresa a la A1 a muy alta velocidad una y otra vez. Tengo que pulsar ESC
para poder pararlo, pues el Mouse no responde.
Ojalá yo pueda tomar solo la celda "E2" como unica celda de entrada.
Gracias y Saludos

Oscar
Barranquilla
"ramon" escribió en el mensaje
news:%
> suponiendo que los datos estan en el rango a1:a8 (utilizo el numero de
fila
> como numero de orden)
>
> For Each Celda In Range("A1:A8")
> Celda.Select
> Fila1 = Celda.Row
> Fila2 = Trim(Str(Fila1))
> Fila3 = Trim(Str(Celda))
> If Celda = Fila1 Then
> Range("B" & Fila2).Value = Celda.Value
> Else
> Range("B" & Fila3).Value = Celda.Value
> End If
> Next
>
>
> "Compumakro" escribió en el mensaje
> news:
> > Amigos
> > Aquí tengo otra situación imposible para resolverla solo y sin ayuda.
> > Tengo 2 columnas con números: una consecutiva "testigo" y otra el
> > consecutivo "saqueado"
> > Lo que necesito es que los consecutivos se enfrenten para ver cual me
hace
> > falta.
> > Hacer "a mano" 4500 filas es muy dispendioso.
> > Ejemplo
> >
> > A B C D
> > 0001 0004
> > 0002 0007
> > 0003 0008
> > 0004 0011
> > 0005 0015
> > 0006 0016
> > 0007 0018
> > 0008 0021
> > Etc, etc
> > Como observarán en éste ejemplo, los números 0001 0002, 0003, fueron
> > "saqueados" entonces sus celdas en la columna "D" o sea del frente

> > quedar vacías y los números que existen deben colocarse en el frente o
sea
> > en columna "D" así como sigue:
> >
> >
> > A B C D
> > 0001
> > 0002
> > 0003
> > 0004 0004
> > 0005
> > 0006
> > 0007 0007
> > 0008
> >
> > El resto de números deben estar más abajo frente a las celdas que les
> > corresponden.
> > Qué fórmula o código hay que aplicar para esto?.
> > Lo ideal para mi sería que yo tuviera una sola celda de entrada y allí
al
> > digitar el número correspondiente a la Columna "D", con el sólo Enter

> > número saliera a buscar su "pareja" y se posara al frente.
> > Les recuerdo que la columna "C" es simplemente "Testigo".
> > Muchas gracias por anticipado
> >
> > Oscar
> > Barranquilla
> >
> >
>
>

... 2 columnas con numeros: una consecutiva "testigo" y otra el consecutivo "saqueado"
... necesito ... que los consecutivos se enfrenten para ver cual me hace falta.
... "a mano" 4500 filas es muy dispendioso.

Hola, Oscar !

> ... he hecho lo posible y ... no me funciona ... mira el codigo a ver

==> las hojas que enviaste en el adjunto, son 'diferentes' a la consulta

el cogido propuesto esta 'basado' en la consulta original y

a) la columna con los numeros 'testigo' es la columna 'c' e 'inicia'

1) 'revisa' cada celda del rango [que especifiques] en la columna

2) si el 'saqueado' =>Celda.Offset(, 1)<= es mayor que el

d) para que 'funcione'
1) la primer fila de 'saqueados' DEBE SER IGUAL a la primer fila

>> 1) 'ajusta' al rango 'real' de filas de la columna 'testigo'
>> 2) el 'screenupdating' es para que se ejecute mas 'rapidin' ;)
>> 3) el 'save' es para 'recuperar' la ultima fila 'ocupada' [despues

>> Sub Empatar_Testigo()
>> Dim Celda As Range
>> Application.ScreenUpdating = False
>> For Each Celda In Range("c1:c21")
>> If Celda.Offset(, 1) > Celda Then Celda.Offset(, 1).Insert xlDown
>> Next
>> ActiveWorkbook.Save
>> End Sub

¿comentas con estos 'supuestos'?
_______
Saludos,
Héctor.
MS-MVP

... error ... falta de comprension mia.