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.
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