MACRO CONDICIONAL DEVOVER TEXTO

[ra1234]

Hola,
Soy nuevo en esto y precisaría de vuestra ayuda para ejecutar una macro.
El caso es que quiero comparar dos columnas de texto y cuando coincida exactamente igual el texto lo copie en otra...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! ra
En lugar de esas 135 filas de datos, te sugiero que te armes un "ejemplito" con no más de 5 filas de datos.

No omitas los resultados que esperas en la columna O tanto cuando hay...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ra1234]

Hola Cacho R.,

Muchas gracias por tu interés, lo he intentado como me has dicho solo usando 10 lineas, pero me sigue saliendo el error de se requiere objeto, con lo cual no me ha devuelto ningún...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Javier_Diaz]

Hola,

Creo que Cacho no se referia a la cantidad de filas, si no para tener el ejemplo.

Prueba esto.

Sub Condicional()

Dim celda1, celda2 As Range
Dim Color As Integer

Color = 200
For...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ra1234]

Hola Javier,

Perfecto funciona correctamente, ahora intentaré que lo devuelva a otra columna en lugar de que lo coloree.
Aún así es lo que pretendía.

Muchísimas gracias.

Saludos,

Raúl

 

[oemor]

Hola Cacho R.,

Muchas gracias por tu interés, lo he intentado como me has dicho solo usando 10 lineas, pero me sigue saliendo el error de se requiere objeto, con lo cual no me ha...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! para todos. Otra manera sería:

Sub Macro346()
Dim Vec, Rng1 As Range, Rng2 As Range, Q&, i&

Set Rng1 = Range("e10:e20"): Set Rng2 = Range("k10:k20")

Vec =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ra1234]

Perfecto Cacho, también funciona correctamente.

Muchas gracias a todos por la ayuda.