Code Tag Test with Long Comments . Code Window Horitontal scroll bar

**DocAElstein** · 01-09-2019, 10:35 PM

Ricks code from here http://www.excelfox.com/forum/showth...0888#post10888

This is what he posted

[CODE][table="width: 500"]
[tr]
[td]Sub ThisShouldWork()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
End Sub[/td]
[/tr]
[/table]
[/CODE]

This is how it comes out in the Post

Code:

Sub ThisShouldWork()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
  Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

_._____
So it would appear that Rick uses this
[CODE][table="width: 500"]_.....
[tr]
[td] ' Code[/td]
[/tr]
[/table]
[/CODE]
_.. instead of this more usual way,
[CODE]
' Code
[/CODE]

_.-_________________________________________________

here is the normal use of code tags
[CODE]
Sub ThisShouldWork()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
End Sub
[/CODE]

Here is how it comes out in a post

Code:

Sub ThisShouldWork()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
  Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

In Google Chrome, all is well
GoogleChrome RicksTableCodeTags and CodeTags.JPG : https://imgur.com/WlWHzix
GoogleChrome RicksTableCodeTags and CodeTags.JPG

In Internet Explorer ( 11 ) I can typically not see the scroll bars , but I can see Ricks Table Scroll Bar Code Tags
InternetExplorer RicksTableCodeTags CodeTags.JPG : https://imgur.com/AbRjqj3
InternetExplorer RicksTableCodeTags CodeTags.JPG

**Rick Rothstein** · 01-17-2019, 02:17 AM

Originally Posted by DocAElstein

In Internet Explorer ( 11 ) I can typically not see the scroll bars , but I can see Ricks Table Scroll Bar Code Tags
InternetExplorer RicksTableCodeTags CodeTags.JPG : https://imgur.com/AbRjqj3