Concaternar textos

hola, Cheeky !

... como encadenar textos, no haciendo referencia a cada celda, sino haciendo referencia a un rango [...]

==> ['tal parece que'] concatenar, en cualquiera de sus 'formas' [funcion o signo de union '&']
SOLO 'trabaja' con elementos 'individuales' [NO 'admite' matrices]
en el caso de alguna matriz en sus argumentos, 'tomara' el primer elemento [solamente]
la siguiente funcion [personalizada] 'trabaja bien' ;)
[ya sea en la hoja o en el libro de macros 'Personal.xls'] ==Function ConcatenarRangos( _
ByRef Rango As Range, _
Optional ByVal Separador As String) As String
Dim Celda As Range, Final As String
For Each Celda In Rango
If Not IsEmpty(Celda) Then
If Final <> "" Then Final = Final & Separador
Final = Final & Celda
End If
Next
ConcatenarRangos = Final
End Function

la 'forma de llamarla' seria [p.e.] en la celda "B1" =ConcatenarRangos(A1:A20,"-")
el segundo argumento es 'opcional' [el/los caracter/es de 'separacion' en la concatenacion]

saludos,
hector.

Siendo tuya, seguro que funciona; recibe un saludo agradecido, por la forma
y por el contenido de lo que aportas a este grupo news.

Desde Salamanca, Cheeky.


"Héctor Miguel" escribió en el mensaje
news:

hola, Cheeky !

> ... como encadenar textos, no haciendo referencia a cada celda, sino

haciendo referencia a un rango [...]

==> ['tal parece que'] concatenar, en cualquiera de sus 'formas' [funcion

o signo de union '&']

SOLO 'trabaja' con elementos 'individuales' [NO 'admite' matrices]
en el caso de alguna matriz en sus argumentos, 'tomara' el primer

elemento [solamente]

la siguiente funcion [personalizada] 'trabaja bien' ;)
[ya sea en la hoja o en el libro de macros 'Personal.xls'] ==> Function ConcatenarRangos( _
ByRef Rango As Range, _
Optional ByVal Separador As String) As String
Dim Celda As Range, Final As String
For Each Celda In Rango
If Not IsEmpty(Celda) Then
If Final <> "" Then Final = Final & Separador
Final = Final & Celda
End If
Next
ConcatenarRangos = Final
End Function

la 'forma de llamarla' seria [p.e.] en la celda "B1"

=ConcatenarRangos(A1:A20,"-")

el segundo argumento es 'opcional' [el/los caracter/es de 'separacion' en

la concatenacion]

saludos,
hector.