Modificar formula que concatena de forma multiple para que me copie en celdas diferentes

[sujeto117]

Hola,

Me gustaría saber si es posible que con una formula escriba en diferentes celdas, es decir, en mi caso encontré una fórmula que me concatenaba resultados respecto a un rango (que también me valía), pero ahora querría modificarla para que me "extrajera" los resultados a partir de la celda donde pongo la formula.

Pego aquí el código.

Function MULTCONCAT(lista As Range)
Dim ncell As Range
Dim m_concat As String
m_concat = ""
i = 1
For Each ncell In lista
  If ncell <> "" Then
    If i = 1 Then
      m_concat = m_concat & ncell.Value
      i = i + 1
    Else
      m_concat = m_concat & " or " & ncell.Value
    End If
  End If
Next ncell
m_concat = m_concat & " "
MULTCONCAT = m_concat
End Function
[/code]

Gracias de antemano!

[febrero59]

Buenas noches Sujeto117,

Adjunto el fichero con la función.

¿Qué querrías hacer?:drunk:

Buenas noches,

Juan.

FUNCION concatenar.xls

[sujeto117]

querría, en vez de concatenar los resultados, separar los en diferentes celdas de una misma columna, no obstante, me he creado finalmente otra función desde 0 consiguiendo idénticos resultados..