COMPARAR CELDAS y REEMPLAZAR VALORES

17/05/2007 - 15:18 por jorge_cruz_palma | Informe spam
Buenos días, un saludo desde Río Gallegos, Argentina. He estado liando
con un problema y he decidido pedir ayuda en este magnífico foro.

Tengo una lista de nombres de la siguiente manera:

Columna A Columna B
Santiago SA de CV 20
Santiago S.A. de C.V. 20
Santiago, Sa de CV 30
Proveedora Argentina SC 40
Provee Argentina SC 50
Proveedora Argen. SC 60
Edifimuebles Arg. SA de CV 70
Edifimuebles Argentina. SA de CV 150
Edifimuebles Arg. S.A. de C.V. 200
Edifimuebles Argentina, SA de CV 20

El problema es el siguiente: Con la lista anterior necesito realizarr
una tabla Dinámica donde me sume el total de productos comprados por
proveedor, el PROBLEMA es, que un sólo proveedor se encuentra escrito
de varias maneras diferentes, por lo cual la tabla dinámica no suma el
total por proveedor. Lo que hago, es, manualmente copio un nombre del
proveedor y lo pego en todos los nombres del mismo proveedor de tal
manera que un sólo proveedor se encuentre escrito de la misma manera y
funcione la Tabla Dinámica. Tengo aproximadamente 2500 proveedores,
donde un sólo proveedor llega a estar escrito hasta 5 veces diferente,
ya sea que tenga una coma de más o un punto. Lo cual hace imposible
unificarlos manualmente.

Cómo puedo crear una macro que busque la coincidencia entre los
proveedores y copie automáticamente el proveedor que más caractéres
tenga???

Por ejemplo, el proveedor Santiago, se encuentra escrito de 3 maneras
diferentes, la macro deberá comparar las celdas e identificar que las
3 primeras celdas se parecen en algún porcentaje, de esas tres celdas
elijirá la que más caractéres tenga (Santiago S.A. de C.V.) y deberá
copiar ese valor a las otras dos celdas que dicen Santiago, de tal
manera, que las tres celdas de ese proveedor se encuentren escritas
exactamente Igual, y así sucesivamente con los demás proveedores.

Sin más por el momento, espero que alguien me pueda dar luz de cómo
realizar este trabajo. Gracias Anticipadas y quedo a sus órdenes.
 

Leer las respuestas

#1 Tux
18/05/2007 - 17:23 | Informe spam
escribió:
Buenos días, un saludo desde Río Gallegos, Argentina. He estado liando
con un problema y he decidido pedir ayuda en este magnífico foro.

Cómo puedo crear una macro que busque la coincidencia entre los
proveedores y copie automáticamente el proveedor que más caractéres
tenga???

..






Hola Jorge? Fernanda? Al_sa_ca? Soren?

Bien quiza un camino largo sea el utilizar Buscar y reemplazar del menu
Edicion, con posibilidad de buscar por ejemplo Santi y reemplazarlo por
Santiago SA de CV pero te encuentras con un muro de cara que es que se
reemplazaria solo las palabras o letras buscadas :-(

Luego pues pensando que se podria hacer una macro que hiciera la funcion
de buscar por ejemplo Provee y reemplazarlo por El proveedor exacto para
ello[es un macro apañada :-P ]:

Sub Prueba1()

Dim c As Variant
Dim k As String


With Sheets("hoja1").Columns("A")
Set c = .Find("provee")
If Not c Is Nothing Then
k = c.Address
Do
c.Value = "name"
Set c = .FindNext(c)

On Error Resume Next
Loop While Not c Is Nothing

End If

End With

End Sub

Entonces para no estar todo el rato cambiando en el codigo los nombres a
buscar y los nombres a reemplazar se pueden crear inputBoxs para
facilitar la tarea, ect... ¿? para luego crear la tabla dinamica, perooo
no se si esto te puede [ o ] os puede interesar :-D

No obstante nos comentas/ ais ok? :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

Preguntas similares