Uf, tak Vám oběma strašně moc děkuji :-) Teď si nemůžu vybrat co použít
radši protože obojí funguje přesně jak potřebuji! Každopádně, díky, za
Váš drahocenný čas :-)
Smekám, tohle zatím nedokážu, tak snad se poučím pro příště :-)
Miloš Bíba
Josef Cacek napsal(a):
Ahojte,
On Jan 3, 2008 10:05 AM, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
dup napsal(a):
=CONCATENATE(A1;"oddelovac";A2;"oddelovac";A3)
Tak to pomohlo nicměně, takhle si to neporadí s tím, když v bunce není
hodnota, já bych ty prázdný vůbec nechtěl... jsou prázdný ve smyslu
obsahujou vzorec, co vyhodnotil podmínku jako že má vložit "".
vlozte si do dokumentu nasledujici makro:
Public Function MyConcat(aRange, aSplitter as String)
Dim tmpResult As String
Dim i, j as Integer
tmpResult = ""
For i = LBound(aRange(),2) To UBound(aRange(),2)
For j = LBound(aRange()) To UBound(aRange())
if aRange(j,i) <> "" And aRange(j,i) <> 0 then
if tmpResult <> "" then
tmpResult = tmpResult + aSplitter
end if
tmpResult = tmpResult + aRange(j, i)
end if
Next
Next
MyConcat = tmpResult
End Function
potom muzete pouzit nasledujici konstrukci:
=MyConcat(A1:A20;",")
-- pepa cacek
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
