UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

johanmoreno


Buenas Tardes...Amigos
anticipo las gracias por toda la colaboracion que puedan prestarme...

Me surge el siguiente inconveniente... tengo 2 listados casi siempre de 1000 articulos...

En la columna A son las Compras y en la columna B Las ventas.... que requiero que con una macro me permita sacar en la columna C que es donde colocare el listado...alli en la columna C debere tener todos los articulos que:


a.- Articulos en A que estan en B 
b.-Artiulos en A que no estan en B
c.-Articulos en B que estan en A (evitando los repetidos) de la opcion a.-
d.-Articulos en B que no estan en A

Ejemplo de mi Caso
     A             B           C
compras    ventas   Listado
000059     000001   000001
000062     000059   000059
000065     000060   000060
000066     000061   000061
000070     000069   000062
                           000065 
                           000066  
                           000069
                           000070

Anexo codigo de macro... que logre adaptar...
Mediante este codigo VBA pude realizar algo parecido pero, revisando por algun motivo no toma algunos datos alli....

Intentare anexar el archivo... con los datos y la macro como la muestro mas abajo...

Sub compararlista()
Dim celda, valor As String
Range("A2").Select
Do While ActiveCell.Value <> ""
celda = ActiveCell.Address
valor = ActiveCell.Value
Range("B2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
Exit Do
Range(celda).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell.Value = "" Then
Range("C2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = valor
End If
Range(celda).Select
ActiveCell.Offset(1, 0).Select
valor = ActiveCell.Value
Loop
Range("B2").Select
Do While ActiveCell.Value <> ""
celda = ActiveCell.Address
valor = ActiveCell.Value
Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
Exit Do
Range(celda).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell.Value = "" Then
Range("C2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = valor
End If
Range(celda).Select
ActiveCell.Offset(1, 0).Select
valor = ActiveCell.Value
Loop
End Sub

Gracias por toda la ayuda q bien puedan prestarme...

johanmoreno


Buen Dia
anexo el archivo en la consulta... gracias
Archivos
EstructuradeCostos.xls
Archivo para comparar 2 listas en 2 columnas
No tienes los permisos para descargar los archivos.
(131 KB)

Igtelo


Hola Johan.

Lo hice antes de que subieras tu archivo, espero te sirva.
De todos modos bajo tu archivo...

Saludos
Ignacio Téllez
Archivos
Johanmoreno-Unicos.zip
No tienes los permisos para descargar los archivos.
(21 KB)



Última edición por Igtelo el 13/12/14, 09:55 pm, editado 1 vez

Igtelo


Johan.

Ya bajé tu archivo pero tus referencias andan mal, por favor revisa.
Creo que con lo que subí lo puedes hacer.

Saludos
Ignacio Téllez

5RESUELTO Respues error en linea el 15/12/14, 10:04 am

johanmoreno


Hola amigo igtelo

Muchas gracias por tu colaboracion...

Desconozco pero en esta linea el archivo me esta dando error 424 se requiere un objeto

w = [F80000].End(xlUp).Row + 1  'Encuentra número de celda vacía en F


Nuevamente gracias...

Estoy buscando que de las 2 lista datos1 y datos2 púeda sacar lo que aparece en la lista de datos3... EFECTIVAMENTE sacando los duplicados...
Gracias nuevamente si me puede ayudar igtelo

Igtelo


Hola Johan.

El archivo que subí trabaja bien, sube tu archivo comprimido en zip y que tenga solo unas 10-15 líneas, sin archivo no te puedo decir que te anda fallando.
En el módulo debe traer la macro que hiciste

El archivo debes subirlo comprimido en zip, porque como xlsm no lo acepta el servidor.

Saludos
Ignacio Téllez

johanmoreno


Hola Ignacio ya vi cual es el problema... El archivo que manejo esta en 2003 el archivo en 2007 corre sin problema

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.