Business
Jobs
  • About Us
  • Solutions
    • Job Postings
      Post your job and receive qualified candidates in 48h.
    • Candidate Assessments
      500+ technical and psychological tests, plus anti-fraud.
    • Headhunting
      Tailor-made executive search from start to finish.
    • Payroll + EOR
      Payroll dispersal and EOR across 15+ LATAM countries.
  • Pricing
  • Jobs

0

192
Views
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
Answer question
Find remote jobs

Discover the new way to find a job!

Top jobs
Top job categories
Business
Post vacancy Pricing Sales
Legal
Terms and conditions Privacy policy
© 2026 PeakU Inc. All Rights Reserved.
Andres GPT
Show me some job opportunities
There's an error!