Comparar 2 Columnas
Publicado por Nicolas (1 intervención) el 08/10/2007 14:41:50
hola gente, bueno les queria hacer una consulta. haber el tema es asi tengo 3 columnas
en la primera tengo nombres en la segunda los id y en la tercera nombres
lo que quiero hacer es comparar si los nombres de la columna 1 y 3 y si son iguales a la columna 3 colocarle el id correspondiente a ese nombre. el tema es que los nombres de la columna 3 estan desordenados y no se pueden ordenar.
Yo intente hacer una macro, pero el tema es que no se como decirle que me lo remplaze por el id.
Sub comparar()
Range("A2").Select
Posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("D2").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
ActiveCell.Offset(1, 0).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Posicion = Posicion + 1
Range("b1").Select
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select
Wend
End Sub
Bueno gracias
en la primera tengo nombres en la segunda los id y en la tercera nombres
lo que quiero hacer es comparar si los nombres de la columna 1 y 3 y si son iguales a la columna 3 colocarle el id correspondiente a ese nombre. el tema es que los nombres de la columna 3 estan desordenados y no se pueden ordenar.
Yo intente hacer una macro, pero el tema es que no se como decirle que me lo remplaze por el id.
Sub comparar()
Range("A2").Select
Posicion = 1
While ActiveCell.Value <> ""
valorcomparacion = ActiveCell.Value
Range("D2").Select
Salir = "no"
While ActiveCell.Value <> "" And Salir = "no"
If ActiveCell.Value = valorcomparacion Then
ActiveCell.Offset(1, 0).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Posicion = Posicion + 1
Range("b1").Select
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select
Wend
End Sub
Bueno gracias
Valora esta pregunta


0