Empresas
Empregos
  • Sobre nós
  • Soluções
    • Publicação de vagas
      Publique sua vaga e receba candidatos qualificados em 48h.
    • Avaliações de candidatos
      Mais de 500 testes técnicos e psicológicos, mais anti-fraude.
    • Headhunting
      Busca executiva personalizada do início ao fim.
    • Folha de Pagamento + EOR
      Dispersão de folha e EOR em mais de 15 países da LATAM.
  • Preços
  • Empregos

0

196
Visualizações
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 à pergunta
Encontrar trabalhos remotos

Descubra a nova forma de encontrar um emprego!

melhores empregos
Principais categorias de trabalho
Empresas
Postar vaga Preços Comercial
Jurídico
Termos e Condições Política de privacidade
© 2026 PeakU Inc. All Rights Reserved.
Andres GPT
Recomende algumas ofertas para mim
Preciso de ajuda