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!!!

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

validar informacion de dos columnas

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!

Responder a este mensaje

#2 Luis Vargas

04/02/2004 - 16:32 | Informe spam

David, disculpa que no he haya respondido como me fue pero estaba tan
emocionado con el código que se me olvidó agradecerte el apoyo brindado.
Para lo que necesitaba hacer me trabaja de mil maravillas

Muchisimas gracias

"David" escribió en el mensaje
news:880c01c3e9eb$e4e512b0$
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!

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida