Empresas
Empleos
  • Sobre nosotros
  • Soluciones
    • Publicación de vacantes
      Publica tu vacante y recibe candidatos calificados en 48h.
    • Evaluación de candidatos
      500+ pruebas técnicas y psicológicas, más anti-fraude.
    • Headhunting
      Búsqueda ejecutiva a la medida de principio a fin.
    • Nómina + EOR
      Dispersión de nómina y EOR en más de 15 países de LATAM.
  • Precios
  • Empleos

0

197
Vistas
Problemas con Excel Textjoin, necesitan una solución

Estoy tratando de descubrir cómo configurar un par de hojas de Excel que analizan MUCHA información. No puedo mostrar la hoja de Excel real debido a lo que contiene, pero he recreado una hoja de Excel que haría lo mismo.

Ejemplo de Excel

Estoy tratando de que las fechas se completen automáticamente cuando CountIF encuentra algo... Digamos, Blake aparece varias veces en el rango de datos que necesito revisar, necesito todas las fechas o al menos la fecha más reciente para completar solo en 1 celda al lado del número CountIf o en la misma celda que CountIf.

La celda debe mostrar 06/22/2022, 06/29/2022 .

Estoy usando Excel 2016, no tengo un TEXTJOIN integrado.

@scott, gracias por responder, agregué su TEXTJOIN UDF y obtengo un #VALOR. mensaje en algunas de las celdas, no en todas...? pero todo tiene el mismo formato. La única diferencia entre el ejemplo de Excel y mi trabajo de Excel es que la hoja desde la que llamo los datos tiene el formato de la siguiente fórmula, y la ubicación a la que llamo la información está en una hoja diferente, por lo que la fórmula se ve así

 =TEXTJOIN(",",TRUE,IF('SHEET2!E:E="example-A-1",'SHEET2!A:A,""))

Uso de esta UDF

 Function TEXTJOIN(delim As String, skipblank As Boolean, arr) Dim d As Long Dim c As Long Dim arr2() Dim t As Long, y As Long t = -1 y = -1 If TypeName(arr) = "Range" Then arr2 = arr.Value Else arr2 = arr End If On Error Resume Next t = UBound(arr2, 2) y = UBound(arr2, 1) On Error GoTo 0 If t >= 0 And y >= 0 Then For c = LBound(arr2, 1) To UBound(arr2, 1) For d = LBound(arr2, 1) To UBound(arr2, 2) If arr2(c, d) <> "" Or Not skipblank Then TEXTJOIN = TEXTJOIN & arr2(c, d) & delim End If Next d Next c Else For c = LBound(arr2) To UBound(arr2) If arr2(c) <> "" Or Not skipblank Then TEXTJOIN = TEXTJOIN & arr2(c) & delim End If Next c End If TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim)) End Function
about 4 years ago · Santiago Trujillo
Responde la pregunta
Encuentra empleos remotos

¡Descubre la nueva forma de encontrar empleo!

Top de empleos
Top categorías de empleo
Empresas
Publicar vacante Precios Comercial
Legal
Términos y condiciones Política de privacidad
© 2026 PeakU Inc. All Rights Reserved.
Andres GPT
Recomiéndame algunas ofertas
Necesito ayuda