Saltar al contenido

Gerson Pineda

Administradores
  • Contador de contenido

    9986
  • Unido

  • Última visita

  • Days Won

    206

Sobre Gerson Pineda

  • Rango
    Administrador

Formas de contacto

  • Web http://gerson-pineda-el-catracho.blogspot.com/

Información de perfil

  • Sexo Hombre
  • Localización: Honduras

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

1968 visitas de perfil
  1. Hola a todos

    Pues eres mas que bienvenido, te invito también a resolver las dudas, que puedas! Saludos exceleanos
  2. Convertir Texto a numero

    Por eso te mencione que la exportación es incorrecta, poco se puede hacer desde Excel Saludos
  3. Convertir Texto a numero

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

    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
  5. 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
  6. Filtrar superiores e inferiores con empates

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

    Hola a todos! Como han notado, el foro ha tenido actualizaciones, por favor, paciencia, poco a poco se ira corrigiendo Saludos
  8. Eliminar registros duplicados con macro

    Perfecto, pues ya aprendiste algo nuevo Saludos
  9. Traspaso de líneas a otra hoja con condición

    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
  10. Eliminar registros duplicados con macro

    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
  11. 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
  12. Increíbles dibujos con Excel

    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
  13. Autor y fecha

    @Antoni Por favor prueba y nos comentas Saludos a ambos
  14. Podemos concluir como "solucionado"? Saludos
×