Gerson Pineda

Pues eres mas que bienvenido, te invito también a resolver las dudas, que puedas! Saludos exceleanos

Por eso te mencione que la exportación es incorrecta, poco se puede hacer desde Excel Saludos

Para eso, puedes probar con: =SI(NO(ESERR(HALLAR(".",B1))),B1,--(SUSTITUIR(B1,DERECHA(B1,4),"")&"."&DERECHA(B1,4))) Saludos

Hola jolufe A simple vista, se puede detectar que la exportación es incorrecta, respecto a los números, pues todo indica que que trae 4 decimales, pero no hace la separación de los mismos, ¿estoy en lo correcto? Con este numero 1532881998 si separamos 4 decimales queda así "153288", y convertir a decimales "1998" Por lo que tomando la celda B2 de tu archivo, prueba así =--(SUSTITUIR(B2,DERECHA(B2,4),"")&"."&DERECHA(B2,4)) Ojo solo me estoy basando a un valor Saludos

Hola johan Te adjunto mi versión con VBA y funciona así La columna B de hoja1 debe estar libre Al abrir el libro se carga la lista desplegable Cuando eliges una letra, debes volver a dar clic en la flecha Para volver a cargar las letras, debes dar doble clic Ya nos comentaras como te fue Saludos Lista desplegable dinamica_GP.rar

Saludos a todos! Otras 2 opciones mas, con formula y VBA respectivamente Obtener inferiores_GP.rar

Hola a todos! Como han notado, el foro ha tenido actualizaciones, por favor, paciencia, poco a poco se ira corrigiendo Saludos

Perfecto, pues ya aprendiste algo nuevo Saludos

Ahi van 2 métodos mas Sub PasarDatos() Application.ScreenUpdating = False For Each Cel In Range("C2", Range("C1").End(xlDown)) fil = Cel.Row: vsum = Cells(fil, "F") + Cells(fil, "G") If Cel = vsum Then vuf = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Cel.EntireRow.Copy Hoja2.Range("A" & vuf) Cel.EntireRow.Delete End If Next Application.ScreenUpdating = True End Sub Sub PasarDatos2() Application.ScreenUpdating = False Dim vunir As Range For Each Cel In Range("C2", Range("C1").End(xlDown)) fil = Cel.Row: vsum = Cells(fil, "F") + Cells(fil, "G") If Cel = vsum Then If vunir Is Nothing Then Set vunir = Cel Else Set vunir = Union(vunir, Cel) End If End If Next vuf = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 vunir.EntireRow.Copy Hoja2.Range("A" & vuf) vunir.EntireRow.Delete Set vunir = Nothing Application.ScreenUpdating = True End Sub Saludos a los 3 Mover datos a otra hoja_GP.xlsm

Hola Jonathan Lee y prueba con la herramienta "Quitar duplicados" o con "Filtros avanzados", de lo contrario sube una muestra del archivo, con pocos datos, pero representativos de lo que tienes en el original Saludos

Prueba asi Set Rango = Range("K250", Range("L250").End(xlDown)) vrang = Rango.Address(, , , 1) With ActiveChart .SeriesCollection.NewSeries .SeriesCollection(2).XValues = vrang .SeriesCollection(2).Values = vrang End With Set Rango = Nothing Si no funciona, sube archivo de muestra Saludos

Es ahí cuando me doy cuenta, que no valgo nada jaja Uno de los primeros dibujos que mire fue de un auto deportivo negro (lo publique aqui en el foro, hace años!) Shukei es uno de los mejores, si no (para mi) el mejor! Uno de Shukei Saludos

@Antoni Por favor prueba y nos comentas Saludos a ambos

Podemos concluir como "solucionado"? Saludos