Comparar 2 filas para luego mostrar datos faltantes

Se tiene una hoja tal como se muestra a continuación:
                ColA ColB ColC ColD ColE ColF ...
Fila 1 Juan Pedro Pablo Felipe Cristobal Eduardo
Fila 2 Juan Felipe
En dicha hoja se pueden apreciar datos en la Fila 1 y en la Fila 2 en donde hay una lista de nombres. La idea es que luego de ejecutar la macro, ésta me entregue como resultado los nombres faltantes en la Fila 2.. Poniéndolos uno a uno en las columnas que le siguen ..
El resultado final se debería ver de la siguiente forma:
                ColA ColB ColC ColD ColE ColF ...
Fila 1 Juan Pedro Pablo Felipe Cristobal Eduardo
Fila 2 Juan Felipe Pedro Pablo Crostobal Eduardo
He intentado de hacerlo mediante varias funciones pero he fracasado ya en varios intentos. Te adjunto un código relacionado para que me ayudes desde éste para que salga más fácil y rápida tu ayuda, de antemano muchas gracias.
Sub nombres()
Sheets("Hoja1").Select
Range("A1").Select
While ActiveCell.Value <> ""
nombre1 = Range("A1").Value
Range("A2").Select
While ActiveCell.Value <> ""
    nombre2 = ActiveCell.Value
    If nombre1 = nombre2 Then
    Else
    Range("A2").Offset(0, 1).End(xlToRight) = nombre1
    End If
    Wend
    ActiveCell.Offset(0, 1).Select
    Wend
End Sub

1 Respuesta

Respuesta
1
El problema que se queda "pensando para siempre" es porque utilizas un While y esa condición que tiene nunca es falsa de allí que se queda allí siempre.
Deberías cambiar los while por unos for que si tendrían un limite, si el numero de columnas es variable en la primera linea que es la base de la comparación, entonces colócale un limite a tu programa solo funciona para máximo 50 columnas por ejemplo.
El rango en que pegaba el "nombre1" estaba claramente malo ya que me lo pegaba al final de la ultima columna existente en excel..
El código en que estoy trabajando hasta el momento es el siguiente:
Sub nombres()
Range("A1").Select
While ActiveCell.Value <> ""
nombre1 = Range("A1").Value
Range("A2").Select
While ActiveCell.Value <> ""
nombre2 = Range("A2").Value
If nombre1 = nombre2 Then
Else:
MsgBox (nombre1 & "    no es igual a    " & nombre2)
Range("Z2").End(xlToLeft).Offset(0, 1).FormulaR1C1 = nombre1
End If
Wend
ActiveCell.Offset(0, 1).Select
Wend
End Sub
En donde al correrlo se queda pensando para siempre (error en la comparación del nombre 1 = nombre 2)
Claro, un "for" vendría de lo más bien.
En estos minutos que pasaron se me ocurrió utilizar un "Do whie" que en caso de que encuentre el nombre termine dicha rutina que antes parecía infinita.
Mi código actualizado es el siguiente, pero sigue estando erróneo debido a no se me ocurre una forma de declarar de mejor forma lavariable "nombre2) ya que al ejecutar eñ nuevo código que te adjuntaré me escribe infinitamente el nombre nuevo no encontrado en la fila 2...
En caso de que encuentres una forma alternativa de resolverlo, se agradecería mucho.
Código:
Sub nombre()
Range("A1").Select
While ActiveCell.Value <> ""
nombre1 = ActiveCell.Value
Range("A2").Select
Do While ActiveCell.Value <> ""
nombre2 = ActiveCell.Value
If nombre1 = nombre2 Then
Exit Do
Else:
Range("Z2").End(xlToLeft).Offset(0, 1).FormulaR1C1 = nombre1
End If
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, 1).Select
Wend
End Sub
Debes hacer una pregunta para cada campo, por eso solo preguntas por nombre 2 debes hacerlo para cada columna o campo que quieres copiar
Tuve que enfocarlo completamente de otra forma para poder resolverlo...
Te adjunto como terminó el código en caso de ineteresarte.
Sub nombre2()
Range("A1").Select
While ActiveCell.Value <> ""
nombre1 = [1:1].Find(What:=ActiveCell.Value)
On Error Resume Next
nombre3 = [2:2].Find(What:=nombre1)
If nombre3 = nombre1 Then
Else
    Range("Z2").End(xlToLeft).Offset(0, 1).FormulaR1C1 = nombre1
End If
ActiveCell.Offset(0, 1).Select
Wend
End Sub
Saludos
Super que lo hayas podidoresolver

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Macro buscar y recopilar datos en Excel

Tengo un botón en una la Hoja1 de Excel e información en esta misma hoja de los rangos (A5:F100), en la columna A del rango (A1:A100) tengo un numero 0 (cero) o también el numero 1 (uno), lo que necesito es que al momento de oprimir el botón me...
2 respuestas

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Macro que busque un valor y copie la fila entera

Espero me puedan ayudar, Necesito hacer una macro que me busque un valor en la hoja 1 y copie toda la fila a la hoja 2 sin sobreescribir el ultimo registro, y una vez copiada la fila, la elimine de la hoja 1
1 respuesta

Buscar un valor y copiar toda la fila

Lo que estoy necesitando es buscar un valor de una tabla en otra y una vez encontrado copiar la fila completa a una nueva hoja. Seria algo así: Esta seria la primera tabla 1 aaa 213 bbb 2 bbb 343 ddd 3 rrrr 434 rrrr Y la segunda seria algo así 1 213...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Macro que elimina las celdas que le preceden

Tengo poca experiencia en las macros por lo cual necesito la ayuda de algún experto con mi problema, tengo una macro que me elimina los datos repetidos de una fila pero quiero que me elimine también los datos que tiene en las siguientes tres...
1 respuesta

Macro recorra toda la columna y copie solo datos diferentes de vacío.

Deseo que la macro recorra toda la columna y copie solo datos diferentes de vacío en la columna siguiente. Los datos se copiaran en la siguiente columna consecutivamente sin celdas vacías. La columna que recorre la macro tiene celdas con formulas y...
1 respuesta

Necesito crear una macro excel que haga lo siguiente:

Sumar cantidades de celdas variables de una columna, hacia abajo, hasta llegar a una celda vacía. Ahí colocar el subtotal (la suma de las celdas hasta la vacía) en la celda contigua a la derecha de la vacía, en la columna contigua a la derecha que...
1 respuesta

Eliminar fila si cumple dos condiciones

Necesito una macro que elimine las filas que en la columna "A" sea = 1 pero que también en la columna "M" <> Penaliza, es decir si no se cumplen las condiciones pues no borra esa fila por ejemplo si en "A" =1 pero "M" = Penaliza, entonces no borra la...
1 respuesta