MS Excel

Velka vdaka doupravil som pre svoje potreby funguje na prvy krat...

.................................
Ja som to riesil takto ale davalo my prazdne riadky vsade tam kde nevyhovovala podmienak kdyz a nebolo to ono..

Sub Export()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
Dim fName As String

'References
Set wbSource = ActiveWorkbook
Set wsSource = ThisWorkbook.Sheets("export")
Set wbDest = Workbooks.Add

'Copy range on original sheet
'Using usedrange can be risky and may return the wrong result.
wsSource.UsedRange.Copy

'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = Falsecitovat