COMPARAR LISTAS ENTRE RANGOS

Suponiendo que...
- la lista de la columna A esta en el rango [A2:A9]
- la lista de la columna B empieza desde la celda [B2]

Prueba poner la siguiente formula en la celda [C2] y copiarla hacia abajo:

=SI(ESNUMERO(COINCIDIR(B2;$A$2:$A$9;0));"PARA PAGAR";"")

Saludos,
KL


wrote in message news:
Hola a Todos, espero que se encuentren bien. Una vez más recurro a
ustedes, para resolver la siguiente situación:

Necesito una macro que haga lo siguiente:

Tengo una lista con 8 conceptos en la columna "A":

"Columna A"
Comisiones
Descuentos
Ventas
Compras
Viaticos
Impuestos
Sueldos
Honorarios

En la columna B aparece una lista con aproximadamente 150 diferentes
conceptos que se repiten desde la celda B2 hasta B10000. Lo que
necesito es una macro que value los conceptos de cada una de las
celdas en la columna B y compare con la lista de 8 conceptos de la
columna A, si el concepto en la columna B se encuentra dentro de la
lista de "A", que en la celda correspondiente en "C" ponga "PARA
PAGAR", de lo contrario, que deje la celda correspondiente en "C" en
blanco.

Sin más por el momento, espero que me puedan ayudar. Les deseo un buen
día y Gracias anticipadas.

On 2 mayo, 15:03, "KL" wrote:

Suponiendo que...
- la lista de la columna A esta en el rango [A2:A9]
- la lista de la columna B empieza desde la celda [B2]

Prueba poner la siguiente formula en la celda [C2] y copiarla hacia abajo:

=SI(ESNUMERO(COINCIDIR(B2;$A$2:$A$9;0));"PARA PAGAR";"")

Saludos,
KL

wrote in messagenews:

Hola a Todos, espero que se encuentren bien. Una vez más recurro a
ustedes, para resolver la siguiente situación:

Necesito una macro que haga lo siguiente:

Tengo una lista con 8 conceptos en la columna "A":

"Columna A"
Comisiones
Descuentos
Ventas
Compras
Viaticos
Impuestos
Sueldos
Honorarios

En la columna B aparece una lista con aproximadamente 150 diferentes
conceptos que se repiten desde la celda B2 hasta B10000. Lo que
necesito es una macro que value los conceptos de cada una de las
celdas en la columna B y compare con la lista de 8 conceptos de la
columna A, si el concepto en la columna B se encuentra dentro de la
lista de "A", que en la celda correspondiente en "C" ponga "PARA
PAGAR", de lo contrario, que deje la celda correspondiente en "C" en
blanco.

Sin más por el momento, espero que me puedan ayudar. Les deseo un buen
día y Gracias anticipadas.

Fernanda,

Lo que debieras poner en la celda C2 sería:
=SI(Buscarv(B2;$A$2:$A$9;1;0)²;"PARA PAGAR";"")

Luego copia la formula hasta la C10000.

Saludos

Hola Arcano,

Me parece que no has probado tu formula ;-)

Saludos,
KL


"Arcano" wrote in message news:
On 2 mayo, 15:03, "KL" wrote:

Suponiendo que...
- la lista de la columna A esta en el rango [A2:A9]
- la lista de la columna B empieza desde la celda [B2]

Prueba poner la siguiente formula en la celda [C2] y copiarla hacia abajo:

=SI(ESNUMERO(COINCIDIR(B2;$A$2:$A$9;0));"PARA PAGAR";"")

Saludos,
KL

wrote in messagenews:

Hola a Todos, espero que se encuentren bien. Una vez más recurro a
ustedes, para resolver la siguiente situación:

Necesito una macro que haga lo siguiente:

Tengo una lista con 8 conceptos en la columna "A":

"Columna A"
Comisiones
Descuentos
Ventas
Compras
Viaticos
Impuestos
Sueldos
Honorarios

En la columna B aparece una lista con aproximadamente 150 diferentes
conceptos que se repiten desde la celda B2 hasta B10000. Lo que
necesito es una macro que value los conceptos de cada una de las
celdas en la columna B y compare con la lista de 8 conceptos de la
columna A, si el concepto en la columna B se encuentra dentro de la
lista de "A", que en la celda correspondiente en "C" ponga "PARA
PAGAR", de lo contrario, que deje la celda correspondiente en "C" en
blanco.

Sin más por el momento, espero que me puedan ayudar. Les deseo un buen
día y Gracias anticipadas.

Fernanda,

Lo que debieras poner en la celda C2 sería:
=SI(Buscarv(B2;$A$2:$A$9;1;0)²;"PARA PAGAR";"")

Luego copia la formula hasta la C10000.

Saludos

Si es absolutamente necesario hacerlo mediante macros, aqui van dos opciones mias:

Op1: Rapida

Sub test1()
Dim rngDatos As Range
With ActiveSheet
Set rngDatos = .Range(.Cells(2, "B"), .Cells(.Rows.Count, "B").End(xlUp))
End With
rngDatos.Offset(, 1) = Evaluate("IF(ISNUMBER(MATCH(" & _
rngDatos.Address(, , , True) & ",$A$2:$A$9,0)),""PARA PAGAR"","""")")
End Sub

Op2: Mas lenta

Sub test2()
Dim rngConceptos As Range
Dim rngDatos As Range
Dim Celda As Range
With ActiveSheet
Set rngConceptos = .[A2:A9]
Set rngDatos = .Range(.Cells(2, "B"), .Cells(.Rows.Count, "B").End(xlUp))
End With
Application.ScreenUpdating = False
For Each Celda In rngDatos
If Not IsError(Application.Match(Celda, rngConceptos, 0)) _
Then Celda.Offset(, 1) = "PARA PAGAR"
Next Celda
Application.ScreenUpdating = True
End Sub

Saludos,
KL


"KL" wrote in message news:

Hola Arcano,

Me parece que no has probado tu formula ;-)

Saludos,
KL


"Arcano" wrote in message news:
On 2 mayo, 15:03, "KL" wrote:

Suponiendo que...
- la lista de la columna A esta en el rango [A2:A9]
- la lista de la columna B empieza desde la celda [B2]

Prueba poner la siguiente formula en la celda [C2] y copiarla hacia abajo:

=SI(ESNUMERO(COINCIDIR(B2;$A$2:$A$9;0));"PARA PAGAR";"")

Saludos,
KL

wrote in messagenews:

Hola a Todos, espero que se encuentren bien. Una vez más recurro a
ustedes, para resolver la siguiente situación:

Necesito una macro que haga lo siguiente:

Tengo una lista con 8 conceptos en la columna "A":

"Columna A"
Comisiones
Descuentos
Ventas
Compras
Viaticos
Impuestos
Sueldos
Honorarios

En la columna B aparece una lista con aproximadamente 150 diferentes
conceptos que se repiten desde la celda B2 hasta B10000. Lo que
necesito es una macro que value los conceptos de cada una de las
celdas en la columna B y compare con la lista de 8 conceptos de la
columna A, si el concepto en la columna B se encuentra dentro de la
lista de "A", que en la celda correspondiente en "C" ponga "PARA
PAGAR", de lo contrario, que deje la celda correspondiente en "C" en
blanco.

Sin más por el momento, espero que me puedan ayudar. Les deseo un buen
día y Gracias anticipadas.

Fernanda,

Lo que debieras poner en la celda C2 sería:
=SI(Buscarv(B2;$A$2:$A$9;1;0)²;"PARA PAGAR";"")

Luego copia la formula hasta la C10000.

Saludos

EXCELENTES RESPUESTAS, MUCHAS GRACIAS.

Siempre es un placer!!!!!!!!!!!!!!!!!!!!!!!