Jump to content
juan Ignacio

AGREGAR UNA EXTENSION FL !!

Recommended Posts

Buenas tardes a todos !!

Me ayudan con lo siguiente, en la columna A esta una Base de clientes con la extension FL, en la columna C hay mas clientes pero sin la extension FL y lo que necesito es una formula que en la columna E copie los clientes de la columan C pero que al encontrar al cliente en la columan A lo traiga con la extension FL :

Eso seria..

Muchas Gracias !!! 👍

Saludos.

FL.xlsx

Share this post


Link to post
Share on other sites

Hola,

Prueba el código...

Sub BuscarSemejantes_LBV()
Dim Celda As Range, n&, m&, Encontro As Range, xValor
    m = 4
    For Each Celda In Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
        xValor = Left(Celda.Value, 7)
        Set Encontro = Range("C4:C" & Range("C" & Rows.Count).End(xlUp).Row).Find(xValor, , , xlWhole)
        If Not Encontro Is Nothing Then
            Celda.Interior.Color = vbYellow
            Cells(Encontro.Row, "C").Interior.Color = vbYellow
            Cells(m, "E") = Celda.Value
            Cells(m, "E").Interior.Color = vbYellow
            m = m + 1
        End If
    Next Celda
End Sub

 

Saludos

Share this post


Link to post
Share on other sites

Leopoldo,

Gracias por la respuesta, y probe el codigo pero lo que necesito es mantener a todos los clientes en la columna E que se encuentran en la columna C pero agregar FL a la columna E segun los clientes que se encuentran en la columna A !!

Gracias !!

Saludos.

Share this post


Link to post
Share on other sites
Sub BuscarSemejantes_LBV()
Dim Celda As Range, n&, m&, Encontro As Range, xValor
    m = 4
    For Each Celda In Range("C4:C" & Range("C" & Rows.Count).End(xlUp).Row)
        xValor = Celda.Value & "FL"
        Set Encontro = Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(xValor, , , xlWhole)
        If Not Encontro Is Nothing Then
            Celda.Interior.Color = vbYellow
            Cells(Encontro.Row, "A").Interior.Color = vbYellow
            Cells(m, "E") = Celda.Value & "FL"
            Cells(m, "E").Interior.Color = vbYellow
            m = m + 1
        End If
    Next Celda
End Sub


 

Share this post


Link to post
Share on other sites
Hace 46 minutos , Leopoldo Blancas dijo:

Lo que le entiendo es que...

Cada registro de la columna C verificar que esta en A sin el FL y si es así, que se agregue a E aumentándole el FL...

Saludos.

Leopoldo, tu respuesta esta muy buena pero la única observación es que se debe mantener el total de clientes que hay en C en la columna E !! La respuesta de Gabriel es lo que te acabo de mencionar.... si lo puedes agregar al cogigo genial !!

Muchas Gracias 😉 !!

JI

Share this post


Link to post
Share on other sites

Yo prefiero usar el Power Query antes que los macros.

Con los rangos convertidos en tablas 'Tabla_A" y "Tabla_B" se arma la tabla resultante.

Algo que noté es que existen elemnetos duplicados en la "Tabla_B", lo puede ver con el conteo que he agregado en la tabla final, esa columna que tiene el conteo se puede eliminar, no se necesita dejar en el resultado, solo la muestro para ver los repetidos.

Solo para reducir el tamaño del archivo adjunto lo he guardado como *.xlsb

FL con PowerQuery.xlsb

Edited by GabrielRaigosa

Share this post


Link to post
Share on other sites
Hace 2 horas, isidrod dijo:

solo queda con macros para para que el archivo  sea menos pesado

Hummm creo que ya le entendí lo que necesita el compañero, 

Hace 2 horas, GabrielRaigosa dijo:

Yo prefiero usar el Power Query antes que los macros.

Yo prefiero las Macros antes que Power Query... Hasta que aprenda Power Query.😂😂😂

 

Con solo unos pequeños cambios en la Macro...

 

 

 

Saludos.

FL_LBV.xlsm

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy