Validar columnas con información

02/02/2004 - 23:05 por Luis vargas | Informe spam
Buenas tardes compañer@s:

Tengo una hoja en excel con los siguientes datos:

Columna A: Números de ID (0110450245), Celda A1
Columna B: Vacía
Columna C: Números de ID digitados (bastantes celdas)
Columna D: Nombre del usuario que digitó(Ernesto), Celda D1

Lo que deseo hacer es algo como así:

Si el número que se encuentra en la celda A1 (0110450245)
aparece en la columna C (IDs Digitados), entonces copie el
dato que se encuentra en la columna D (a la par de donde
encontró el dato) y pegue en la columna B ( o sea al lado
del ID que se está buscando.

Lo que deseo es que busque los datos de una columna y si
los encuentra que le pegue el dato que tiene al lado ese
valor al otro listado. Eso es por que tengo un listado
digitado y otro aceptado pero necesito saber de los
aceptados, quien lo digitó para la estadística. Si alguien
me puede ayudar se lo agradeceré muchísimo.

Gracias!!!
 

Leer las respuestas

#1 David
03/02/2004 - 01:23 | Informe spam
Luis, Probá con esta solución para tu problema:

Agregále títulos a tus columnas: en A1 poné Reporte, en C1
poné Digitados, en D1 poné Autor

Construí un rango de criterios: En i1 poné Digitados.

Ingresá fórmulas de búsqueda en bases de datos:
En J2, poné ½EXTRAER(C:D,D1,I1:I2)
En K2, poné =SI(ESERROR(J2),"No encontrado",J2)

Luego, en el editor de VBA, ingresá el siguiente código:

Sub Verifique2()
' Verifique Macro
' Macro grabada el 02/02/2004 por David García
'
Range("A2").Activate
x = ActiveCell.Value
fila = 2
z = 0
Do While z = 0
Range(Cells(2, 9), Cells(2, 9)).Value = x
y = Range(Cells(2, 11), Cells(2, 11)).Value
Range(Cells(fila, 2), Cells(fila, 2)).Value = y
ActiveCell.Offset(1, 0).Activate
fila = fila + 1
x = ActiveCell.Value
If x = 0 Then
z = 1
End If
Loop
End Sub


Espero que te funcione... SUERTE!

Preguntas similares