Issue - white space inside code tags

I've posted a reasonably lengthy bit of code to this thread this morning and it seems that a lot of the white space from my original code has been stripped out.

Where I've left a blank line amongst un-indented lines that has been retained, but the blank lines within the indented blocks have been removed. Is there a way to stop this happening? My code needs all the help to look tidy and readable that it can get!

I'll try ... here's an indented section of my code....

With wshSource

  lSourceRows = .Cells(.Rows.Count, lSOURCE_INST_COL).End(xlUp).Row 'Get last data row on the source sheet
  
  For lRowLoop = lSOURCE_FIRST_DATA_ROW To lSourceRows 'Loop through all of the rows on the source sheet
  
    If .Cells(lRowLoop, lSOURCE_INST_COL).Value <> "" Then 'Ignore blank rows
    
      'Capture the non-repeating data on the current row
      With .Rows(lRowLoop)
        lCurrentInst = .Cells(lSOURCE_INST_COL).Value
        sCurrentFirst = .Cells(lSOURCE_FIRST_COL).Value
        sCurrentLast = .Cells(lSOURCE_LAST_COL).Value
        dCurrentSent = .Cells(lSOURCE_SENT_COL).Value
        dCurrentRecd = .Cells(lSOURCE_RECD_COL).Value
      End With

And the attached document shows how the same section appears on my screen

I'm at work, so using IE9 - I'll check it tonight on Opera, but I'm not seeing any blank lines before the start of the For loop, the If block or the 2nd With block

The code looks as per your Word doc, here it is formatted and posted again

With wshSource 
     
    lSourceRows = .Cells(.Rows.Count, lSOURCE_INST_COL).End(xlUp).Row 'Get last data row on the source sheet
     
    For lRowLoop = lSOURCE_FIRST_DATA_ROW To lSourceRows 'Loop through all of the rows on the source sheet
         
        If .Cells(lRowLoop, lSOURCE_INST_COL).Value <> "" Then 'Ignore blank rows
             
             'Capture the non-repeating data on the current row
            With .Rows(lRowLoop) 
                lCurrentInst = .Cells(lSOURCE_INST_COL).Value 
                sCurrentFirst = .Cells(lSOURCE_FIRST_COL).Value 
                sCurrentLast = .Cells(lSOURCE_LAST_COL).Value 
                dCurrentSent = .Cells(lSOURCE_SENT_COL).Value 
                dCurrentRecd = .Cells(lSOURCE_RECD_COL).Value 
            End With

OK, in your code I now see a blank line between the For and the If, but nowhere else - so it's looking like an IE issue.

Just to prove I haven't been drinking (much) the attached is how my original code post looks on my screen...

Seems that it needs coding to cope with IE!

Yup. Decided to leave the office early and head home, and I can confirm that everything displays just fine in Opera.

Maybe I should just install a proper browser on my work computer

damn those niche browsers

Originally Posted by JosephP

damn those niche browsers

Lol , i see the javascript hasn't been adapted for IE9, i remember i had trouble with that but it's all sorted now