Hi Members,
please can anyone show me how I can write a blank line after writing each records? My intension is to space out the data in the spreadsheet for readability. So far the code I'm using is not doing it.
Seem my module below:
i = 5
Do While Not rsin.EOF
i = i + 1
xlWksht.Cells(i, 1).Value = rsin![RequestID]
xlWksht.Cells(i, 2).Value = rsin![Priority]
xlWksht.Cells(i, 3).Value = rsin![Initials]
xlWksht.Cells(i, 4).Value = rsin![Status]
xlWksht.Cells(i, 5).Value = rsin![DReceivedDate]
xlWksht.Cells(i, 6).Value = rsin![UpdateDate]
xlWksht.Cells(i, 7).Value = rsin![Description]
xlWksht.Cells(i + 1, 1).Value = Chr(10) 'Add a blank line after each record.
rsin.MoveNext
Loop
Thanks.
tgif