Hejsan Om det inte finns någon "använd" rad under rad 4 så returnerar "Cells(2, "A").End(xlDown).Row" det maximala antalet rader i ett worksheet d.v.s 65536. Detta tal är för stort att rymmas i din Integer nRow. Ok tackar. Jag misstänkte nästan det och ändrade nRow till Long och då gick det bättre. Lade även till en funktion som kontrollerar vilken rad som är den sista.Problem med macro
Jag har lite problem med ett macro. Det fungerar som följer.
Jag har ett excelark där man från rad 4 skriver in diverse uppgifter. Skriver man inget på rad 4 ska filen bli blank, skriver man på rad 4 ska den komma med i filen, skriver man på rad 4 och 5 ska de komma med i filen osv.
Problemet jag har är att om jag bara skriver något på rad 4 får jag ett "körfel nr 6" spill.
Står det något på rad 4 och 5 fungerar allt ok.
Hoppas att någon kan förklara varför det blir så.
Tacksam för svar
Jesper
<Code>
sFilename = fName & ".txt"
nFile = FreeFile
Open ActiveWorkbook.Path & "\" & sFilename For Output As #nFile
With ActiveSheet.UsedRange
For nRow = 4 To Cells(4, "A").End(xlDown).Row
sRow = ""
For nCol = 1 To .Columns.Count
If sRow <> "" Then sRow = sRow & DELIM
sRow = sRow & CStr(.Cells(nRow, nCol))
Next nCol
Print #nFile, sRow
Next nRow
End With
Close #nFile
</Code>Sv: Problem med macro
Sv: Problem med macro
Tackar för hjälpen