tady mas jak jsem to kdysi resil ja; urcite to jde nejak elegantneji, ale ja na to neprisel - resp. protoze se jednalo o programatorsky ulet, tak jsem to ani neresil Pokud prijdes na neco lepsiho, tak se klidne podel
...
' Deklarace
Const v_Sep = "," ' oddelovac v souboru
Const v_NumCols = 19 ' index posledniho sloupce pro export
Dim topCel As Range, bottomCel As Range, _
SourceRange As Range, targetRange As Range
Dim x, i, numofRows As Integer
Dim v_Line As String
Dim v_Pom As String
Dim Filename As String
' Init
Application.ScreenUpdating = False
Set topCel = Range("A2")
Set bottomCel = Range("A65536").End(xlUp)
If topCel.row > bottomCel.row Then End &n bsp; ' test if source range is empty
Set SourceRange = Range(topCel, bottomCel(1, 19)) ' me zajimalo prave 19 sloupcu
&nb