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

Printable View

02-07-2015, 09:04 PM
DocAElstein

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

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

Code:

'3) Part 3)--transfer range objects from dictionary to array of ranges in one go, typical Array assignment "One Liner" - The quick way to place data into an array is to dimension a variable ( for example rResults ) .... Dim rResults() As Variant '... As a Variant and then the "Let rResults = " code line Using a variant allows BOTH .-1) for capturing Objects, text, numbers, blanks errors etc. from those cells and also 2) allows rResults to be an array variable..... Let rResults() = dicLookupTable.Items() '... In this case it will also accept us quasi pre - defining as Array with the pair of parentheses rResults() 'End part 3)--- NOTE: this gives automatically the 0 to .. convention in rResults Array! and the output held in the Array is Variant type and is an OBJECT of the sort like a Range. (This compares with a similar code utilising An Array of Ranges rather than the MicrosoftScriptimeRuntimeDictionary. (In the Array of Ranges case we could Dim as Range or Variant here. - Important however in that case is that the Dynamic rResults() Array and the (in that Array of Ranges case non dynamic) arrIn() Array are of the same type. - Either both Range to return an Array of element Type Range or both Variant to Return an Array of element Type Of Objects of the Range Sort : - RoryA . You can only assign one array to another directly (i.e. without looping....... and the two arrays are the same type. http://www.excelforum.com/excel-new-users-basics/1058406-range-dimensioning-range-and-value-referencing-and-referring-to-arrays.html

Code:

Dim TempCell As Range: Set TempCell = wksLE.Cells(1, Columns.Count): Dim TempCellOffset As Long: Let TempCellOffset = 0 'We choose a cell (or through the later use of the offset a column) to use for Duplicate or Empty cells. We use the last column in the sheet. (This is genarally a good practice as it will not effect attempts with .End(XltoLeft) to find last column '2a) Part2a) Looping to put Range Objects in MRSD 'For i = StartColumnTableOutput To LastColumnTableOutput Step 1 For rws = sr To lr Step 1 If wksLE.Cells(rws, 1).Value <> "" Then 'If cell is not empty then... If Not dicLookupTable.Exists(wksLE.Cells(rws, 1).Value) Then 'check that the unique value does not already exist. ##NOTE dicLookupTable.Add wksLE.Cells(rws, 1).Value, wksLE.Cells(rws, 1) 'it is easier to understand as well as kind of explicit the first argument does a CStr and the Second Takes anything Else 'If the key exists, that is to say we have a Range with a Duplicate value, we give the key a slightly modified (unique value) , still give the Range Object as an item, but make an indication, here by highlighting the cell in Pink Let TempCellOffset = TempCellOffset + 1 Let TempCell.Offset(TempCellOffset, 0).Value = "Duplicate at " & rws & " | " & 1 & "" wksLE.Cells(rws, 1).Interior.Color = 10987519 dicLookupTable.Add TempCell.Offset(TempCellOffset, 0).Value, wksLE.Cells(rws, 1) 'In case of duplicate we need a unique key, but we stillinclude the Duplicate Range End If Else 'Case fo an empty cell - inform of empty cell by writing message in that cell via the Tempory cell Let TempCellOffset = TempCellOffset + 1 'Go to next free tempory cell in tempory column Let TempCell.Offset(TempCellOffset, 0).Value = "Empty Cell at " & rws & " | " & 1 & "" dicLookupTable.Add TempCell.Offset(TempCellOffset, 0).Value, TempCell.Offset(TempCellOffset, 0) End If Next rws 'Next i 'End Part 2----------------------------------------------------------- '3) Part 3)--transfer range objects from dictionary to array of ranges in one go, typical Array assignment "One Liner" - The quick way to place data into an array is to dimension a variable ( for example rResults ) .... Dim rResults() As Variant '... As a Variant and then the "Let rResults = " code line Using a variant allows BOTH .-1) for capturing Objects, text, numbers, blanks errors etc. from those cells and also 2) allows rResults to be an array variable..... Let rResults() = dicLookupTable.Items() '... In this case it will also accept us quasi pre - defining as Array with the pair of parentheses rResults() 'End part 3)--- NOTE: this gives automatically the 0 to .. convention in rResults Array! and the output held in the Array is Variant type and is an OBJECT of the sort like a Range. (This compares with a similar code utilising An Array of Ranges rather than the MicrosoftScriptimeRuntimeDictionary. (In the Array of Ranges case we could Dim as Range or Variant here. - Important however in that case is that the Dynamic rResults() Array and the (in that Array of Ranges case non dynamic) arrIn() Array are of the same type. - Either both Range to return an Array of element Type Range or both Variant to Return an Array of element Type Of Objects of the Range Sort : - RoryA . You can only assign one array to another directly (i.e. without looping....... and the two arrays are the same type. http://www.excelforum.com/excel-new-users-basics/1058406-range-dimensioning-range-and-value-referencing-and-referring-to-arrays.html End Sub 'MicrosoftScriptimeRuntimeDictionaryRangeOfRangesKeysItems()

Code:

Dim TempCell As Range: Set TempCell = wksLE.Cells(1, Columns.Count): Dim TempCellOffset As Long: Let TempCellOffset = 0 'We choose a cell (or through the later use of the offset a column) to use for Duplicate or Empty cells. We use the last column in the sheet. (This is genarally a good practice as it will not effect attempts with .End(XltoLeft) to find last column '2a) Part2a) Looping to put Range Objects in MRSD 'For i = StartColumnTableOutput To LastColumnTableOutput Step 1 For rws = sr To lr Step 1 If wksLE.Cells(rws, 1).Value <> "" Then 'If cell is not empty then... If Not dicLookupTable.Exists(wksLE.Cells(rws, 1).Value) Then 'check that the unique value does not already exist. ##NOTE dicLookupTable.Add wksLE.Cells(rws, 1).Value, wksLE.Cells(rws, 1) 'it is easier to understand as well as kind of explicit the first argument does a CStr and the Second Takes anything Else 'If the key exists, that is to say we have a Range with a Duplicate value, we give the key a slightly modified (unique value) , still give the Range Object as an item, but make an indication, here by highlighting the cell in Pink Let TempCellOffset = TempCellOffset + 1 Let TempCell.Offset(TempCellOffset, 0).Value = "Duplicate at " & rws & " | " & 1 & "" wksLE.Cells(rws, 1).Interior.Color = 10987519 dicLookupTable.Add TempCell.Offset(TempCellOffset, 0).Value, wksLE.Cells(rws, 1) 'In case of duplicate we need a unique key, but we stillinclude the Duplicate Range End If Else 'Case fo an empty cell - inform of empty cell by writing message in that cell via the Tempory cell Let TempCellOffset = TempCellOffset + 1 'Go to next free tempory cell in tempory column Let TempCell.Offset(TempCellOffset, 0).Value = "Empty Cell at " & rws & " | " & 1 & "" dicLookupTable.Add TempCell.Offset(TempCellOffset, 0).Value, TempCell.Offset(TempCellOffset, 0) End If Next rws 'Next i 'End Part 2----------------------------------------------------------- '3) Part 3)--transfer range objects from dictionary to array of ranges in one go, typical Array assignment "One Liner" - The quick way to place data into an array is to dimension a variable ( for example rResults ) .... Dim rResults() As Variant '... As a Variant and then the "Let rResults = " code line Using a variant allows BOTH .-1) for capturing Objects, text, numbers, blanks errors etc. from those cells and also 2) allows rResults to be an array variable..... Let rResults() = dicLookupTable.Items() '... In this case it will also accept us quasi pre - defining as Array with the pair of parentheses rResults() 'End part 3)--- NOTE: this gives automatically the 0 to .. convention in rResults Array! and the output held in the Array is Variant type and is an OBJECT of the sort like a Range. (This compares with a similar code utilising An Array of Ranges rather than the MicrosoftScriptimeRuntimeDictionary. (In the Array of Ranges case we could Dim as Range or Variant here. - Important however in that case is that the Dynamic rResults() Array and the (in that Array of Ranges case non dynamic) arrIn() Array are of the same type. - Either both Range to return an Array of element Type Range or both Variant to Return an Array of element Type Of Objects of the Range Sort : - RoryA . You can only assign one array to another directly (i.e. without looping....... and the two arrays are the same type. http://www.excelforum.com/excel-new-users-basics/1058406-range-dimensioning-range-and-value-referencing-and-referring-to-arrays.html End Sub 'MicrosoftScriptimeRuntimeDictionaryRangeOfRangesKeysItems()

Code:

Function DeleteArrayRow(Arr As Variant, RowToDelete As Long) As Variant Dim Rws As Long, Cols As String Rws = UBound(Arr) - LBound(Arr) Cols = "A:" & Split(Columns(UBound(Arr, 2) - LBound(Arr, 2) + 1).Address(, 0), ":")(0) DeleteArrayRow = Application.Index(Arr, Application.Transpose(Split(Join(Application.Transpose(Evaluate("Row(1:" & (RowToDelete - 1) & ")"))) & " " & Join(Application.Transpose(Evaluate("Row(" & (RowToDelete + 1) & ":" & UBound(Arr) & ")"))))), Evaluate("COLUMN(" & Cols & ")"))End Function

Code:

Function DeleteArrayRow(Arr As Variant, RowToDelete As Long) As Variant Dim Rws As Long, Cols As String Rws = UBound(Arr) - LBound(Arr) Cols = "A:" & Split(Columns(UBound(Arr, 2) - LBound(Arr, 2) + 1).Address(, 0), ":")(0) DeleteArrayRow = Application.Index(Arr, Application.Transpose(Split(Join(Application.Transpose(Evaluate("Row(1:" & (RowToDelete - 1) & ")"))) & " " & Join(Application.Transpose(Evaluate("Row(" & (RowToDelete + 1) & ":" & UBound(Arr) & ")"))))), Evaluate("COLUMN(" & Cols & ")")) End Function
02-12-2016, 03:33 AM
DocAElstein

Code:

'http://www.excelfox.com/forum/f22/delete-one-row-from-a-2d-variant-array-2083/ Function DeleteArrayRow(Arr As Variant, RowToDelete As Long) As Variant Dim Rws As Long, Cols As String Rws = UBound(Arr) - LBound(Arr) Cols = "A:" & Split(Columns(UBound(Arr, 2) - LBound(Arr, 2) + 1).Address(, 0), ":")(0) DeleteArrayRow = Application.Index(Arr, Application.Transpose(Split(Join(Application.Transpose(Evaluate("Row(1:" & (RowToDelete - 1) & ")"))) & " " & Join(Application.Transpose(Evaluate("Row(" & (RowToDelete + 1) & ":" & UBound(Arr) & ")"))))), Evaluate("COLUMN(" & Cols & ")")) End Function

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNsaS3Lp1
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNe_XC-jK
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNPOdiDuv
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=DVFFApHzYVk&lc=Ugyi578yhj9zShmhuPl4AaABAg
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgxvxlnuTRWiV6MUZB14AaABAg
https://www.youtube.com/watch?v=_8i1fVEi5WY&lc=Ugz0ptwE5J-2CpX4Lzh4AaABAg
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxoHAw8RwR7VmyVBUt4AaABAg. 9C-br0lEl8V9xI0_6pCaR9
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=Ugz5DDCMqmHLeEjUU8t4AaABAg. 9bl7m03Onql9xI-ar3Z0ME
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg. 9gdrYDocLIm9xI-2ZpVF-q
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg. 9id_Q3FO8Lp9xHyeYSuv1I
https://www.reddit.com/r/windowsxp/comments/pexq9q/comment/k81ybvj/?utm_source=reddit&utm_medium=web2x&context=3
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
ttps://www.youtube.com/watch?v=LP9fz2DCMBE
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg. 9wdo_rWgxSH9wdpcYqrvp8
ttps://www.youtube.com/watch?v=bFxnXH4-L1A
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxuODisjo6cvom7O-B4AaABAg.9w_AeS3JiK09wdi2XviwLG
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg
ttps://www.youtube.com/watch?v=GqzeFYWjTxI
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Ahhh Excel Fox now has a Scroll bar.... .....in Google Chrome.... Bit not in IE 9 or IE 11

:::::.. but fot that.... there is

Rick’s Table Trick
Tested in
IE 9
Google Chrome

_1 ) First make a 1 x 1 table ( Go Advanced to get Table Icon Top Left in a Reply Window )

_2 ) Put Code in Table

_3) Put Code Tags Outside table ( Make sure Code Tags are outside Table )

IE 9

Code:

' Rick's Table Trick will also work in Internet Explorer 9. _1 ) First make a 1 x 1 table ( Go Advanced to get Table Icon Top Left in a Reply Window ) _2 ) Put Code in Table _3) Put Code Tags Outside table ( Make sure Code Tags are outside Table )

_................................................. ......................

Google Chrome:

Code:

' Rick's Table Trick will also work in Internet Explorer 9. _1 ) First make a 1 x 1 table ( Go Advanced to get Table Icon Top Left in a Reply Window ) _2 ) Put Code in Table _3) Put Code Tags Outside table ( Make sure Code Tags are outside Table )

03-16-2016, 12:02 AM
DocAElstein

Thanks for the scroll

Thank you for the scroll

<marquee> --- + Thanks for the Scroll Bar + --- ___o00o__`(_)`___o00o___ --- + Thanks for the Scroll Bar+ ---</marquee>

<marquee>
' Thank you very much, sir, for adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines. The Forum Code Window now has characteristics similar to the Visual Basic Code Editor Window. This is helpful in my opinion allowing a consistency of the seen code which IMVHO is generally a more preferred situation. The inclusion of the aromatic wrapping of long lines was not, as far as I am aware, particularly of use or interest to anyone. The ability for wrapping such lines could / can in a code line be done at desirable points , if so desired, at the preferred places using the VB acceptance of a _
At many points of a code line thus: - _
(https://support.microsoft.com/en-us/kb/141513 ) _
Additionally, the adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines is of personal interest to me. As Text is very "cheap" to store within the code Window, I like to include much useful documentation to the right of my main code, extending into the area mostly only seen when scrolling far to the right. This has the advantage of not cluttering the code one mostly "sees", whilst still having lots of info, often needed for later reference. This has gone a long way, I feel, to improving at least some acceptance of my unusual Posting style. - One doesws not necessarily have to read my notes, and if i may be as bold, - they should not so readily be incl9ined to be insulted or annoyed at my ramblings or "Poo" "Wonks" and the such, as they must go to some length ( scrolling to the right ) to see these profanities. I feel then they have gone some way to "looking" for them, in a similar way that someone who searches the Web for Pornography or such, _
cannot then claim that they are innocent of viewing forbidden material. _
Many Thanks once again. I hope the change may go some way to improving my acceptance at Excel Forums!! _
Best Wishes . _
Alan

</marquee>

Code:

<marquee> ' Thank you very much, sir, for adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines. The Forum Code Window now has characteristics similar to the Visual Basic Code Editor Window. This is helpful in my opinion allowing a consistency of the seen code which IMVHO is generally a more preferred situation. The inclusion of the aromatic wrapping of long lines was not, as far as I am aware, particularly of use or interest to anyone. The ability for wrapping such lines could / can in a code line be done at desirable points , if so desired, at the preferred places using the VB acceptance of a _ At many points of a code line thus: - _ (https://support.microsoft.com/en-us/kb/141513 ) _ Additionally, the adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines is of personal interest to me. As Text is very "cheap" to store within the code Window, I like to include much useful documentation to the right of my main code, extending into the area mostly only seen when scrolling far to the right. This has the advantage of not cluttering the code one mostly "sees", whilst still having lots of info, often needed for later reference. This has gone a long way, I feel, to improving at least some acceptance of my unusual Posting style. - One dews not necessarily have to read my notes, and if i may be as bold, - they should not so readily be inclined to be insulted or annoyed at my ramblings or "Poo" "Wonks" and the such, as they must go to some length ( scrolling to the right ) to see these profanities. I feel then they have gone some way to "looking" for them, in a similar way that someone who searches the Web for Pornography or such, _ cannot then claim that they are innocent of viewing forbidden material and / or are offended by it. </marquee>

Code:

' Thank you very much, sir, for adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines. The Forum Code Window now has characteristics similar to the Visual Basic Code Editor Window. This is helpful in my opinion allowing a consistency of the seen code which IMVHO is generally a more preferred situation. The inclusion of the aromatic wrapping of long lines was not, as far as I am aware, particularly of use or interest to anyone. The ability for wrapping such lines could / can in a code line be done at desirable points , if so desired, at the preferred places using the VB acceptance of a _ At many points of a code line thus: - _ (https://support.microsoft.com/en-us/kb/141513 ) _ Additionally, the adding (or re - installing ) the Scroll bar for Code windows and removing the automatic wrapping of long lines is of personal interest to me. As Text is very "cheap" to store within the code Window, I like to include much useful documentation to the right of my main code, extending into the area mostly only seen when scrolling far to the right. This has the advantage of not cluttering the code one mostly "sees", whilst still having lots of info, often needed for later reference. This has gone a long way, I feel, to improving at least some acceptance of my unusual Posting style. - One dews not necessarily have to read my notes, and if i may be as bold, - they should not so readily be inc9ed to be insulted or annoyed at my ramblings or "Poo" "Wonks" and the such, as they must go to some length ( scrolling to the right ) to see these profanities. I feel then they have gone some way to "looking" for them, in a similar way that someone who searches the Web for Pornography or such, _ cannot then claim that they are innocent of viewing forbidden material and / or are offended by it. _ Many Thanks once again. I hope the change may go some way to improving how I come out in Forum Posts _ Best Wishes . _ Alan

Hi, Thanks for the Scroll Bar

Code:

' Thank you very much, sir, Or madam, (or vBulletin ??) , for adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines. The Forum Code Window now has characteristics similar to the Visual Basic Code Editor Window. This is helpful in my opinion allowing a consistency of the seen code which IMVHO is generally a more preferred situation. The inclusion of the aromatic wrapping of long lines was not, as far as I am aware, particularly of use or interest to anyone. The ability for wrapping such lines could / can in a code line be done at desirable points , if so desired, at the preferred places using the VB acceptance of a Underline thing _ At many points of a code line thus: - _ (https://support.microsoft.com/en-us/kb/141513 ) . Additionally, the adding (or re - installing ) the Scroll bar for Code windows and removing the automatic wrapping of long lines is of personal interest to me. As Text is very "cheap" to store within the code Window, I like to include much useful documentation to the right of my main code, extending into the area mostly only seen when scrolling far to the right. This has the advantage of not cluttering the code one mostly "sees", whilst still having lots of info, often needed for later reference. This has gone a long way, I feel, to improving at least some acceptance of my unusual Posting style. - One does not necessarily have to read my notes. Many Thanks once again. I hope the change may go some way to improving how I come out in MrExcel Posts. Best Wishes . Alan

Thanks
Alan

P.s ... another idea,
Maybe not too practical though! ......

Code:

<marquee> ' Thank you very much, sir, Or madam, (or vBulletin ??) , for adding (or re - installing ) the Scroll bar for Code windows and removing the aromatic wrapping of long lines. The Forum Code Window now has characteristics similar to the Visual Basic Code Editor Window. This is helpful in my opinion allowing a consistency of the seen code which IMVHO is generally a more preferred situation. The inclusion of the aromatic wrapping of long lines was not, as far as I am aware, particularly of use or interest to anyone. The ability for wrapping such lines could / can in a code line be done at desirable points , if so desired, at the preferred places using the VB acceptance of a Underline thing _ At many points of a code line thus: - _ (https://support.microsoft.com/en-us/kb/141513 ) . Additionally, the adding (or re - installing ) the Scroll bar for Code windows and removing the automatic wrapping of long lines is of personal interest to me. As Text is very "cheap" to store within the code Window, I like to include much useful documentation to the right of my main code, extending into the area mostly only seen when scrolling far to the right. This has the advantage of not cluttering the code one mostly "sees", whilst still having lots of info, often needed for later reference. This has gone a long way, I feel, to improving at least some acceptance of my unusual Posting style. - One does not necessarily have to read my notes. Many Thanks once again. I hope the change may go some way to improving how I come out in MrExcel Posts. Best Wishes . Alan </marquee>

2 Attachment(s)

Scroll bar tests

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"",TR IM(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"",TR IM(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
Attachment 2134

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
Attachment 2135

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

Quote:

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

That is why I use the table tags... I am using Internet Explorer and there was no way to stop the code lines from wrapping without using the table tags.

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNsaS3Lp1
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNe_XC-jK
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNPOdiDuv
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=DVFFApHzYVk&lc=Ugyi578yhj9zShmhuPl4AaABAg
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgxvxlnuTRWiV6MUZB14AaABAg
https://www.youtube.com/watch?v=_8i1fVEi5WY&lc=Ugz0ptwE5J-2CpX4Lzh4AaABAg
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxoHAw8RwR7VmyVBUt4AaABAg. 9C-br0lEl8V9xI0_6pCaR9
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=Ugz5DDCMqmHLeEjUU8t4AaABAg. 9bl7m03Onql9xI-ar3Z0ME
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg. 9gdrYDocLIm9xI-2ZpVF-q
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg. 9id_Q3FO8Lp9xHyeYSuv1I
https://www.reddit.com/r/windowsxp/comments/pexq9q/comment/k81ybvj/?utm_source=reddit&utm_medium=web2x&context=3
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm 9wlhQrYJP3M
ttps://www.youtube.com/watch?v=LP9fz2DCMBE
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg. 9wdo_rWgxSH9wdpcYqrvp8
ttps://www.youtube.com/watch?v=bFxnXH4-L1A
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxuODisjo6cvom7O-B4AaABAg.9w_AeS3JiK09wdi2XviwLG
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg
ttps://www.youtube.com/watch?v=GqzeFYWjTxI
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
01-17-2019, 02:35 AM
DocAElstein

Hi Rick,
Yes , I expected that might be the case.
I do remember some time ago , when Mr Excel first introduced the horizontal scroll bar , that you had issues, and could not see it.

The horizontal scroll bar is something I really favour, both for long one liners and also for many 'comments. The horizontal scroll bar apparently is in many cases technically harder to achieve than the vertical ( https://eileenslounge.com/viewtopic....243274#p243274 )

Alan

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwTUdEgR4bdt6crKXF4AaABAg. 9xmkXGSciKJ9xonTti2sIx
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwWw16qBFX39JCRRm54AaABAg. 9xnskBhPnmb9xoq3mGxu_b
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9xon1p2ImxO
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgybZfNJd3l4FokX3cV4AaABAg. 9xm_ufqOILb9xooIlv5PLY
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9y38bzbSqaG
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgyWm8nL7syjhiHtpBF4AaABAg. 9xmt8i0IsEr9y3FT9Y9FeM
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg. 9xhyRrsUUOM9xpn-GDkL3o
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNsaS3Lp1
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNe_XC-jK
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgNPOdiDuv
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
02-09-2019, 05:31 PM
DocAElstein

4 Attachment(s)

Test.....

In a workbook, the following code seems to tell me that I have 1023 characters available..

Code:

Sub HowWideIsTheCodePane() Dim myLongOne As String, WidfTxt As Long Dim EndColun As String, WidfEndColun As Long: Let EndColun = """" ' " Dim BitBefore As String, WidfBe4 As Long: Let BitBefore = " Let myLongOne = """ ' Let myLongOne = " Let myLongOne = "kscnlkslkfhfsklhfcn<slkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb" Let WidfTxt = Len(myLongOne) Let WidfBe4 = Len(BitBefore) Let WidfEndColun = Len(EndColun) MsgBox prompt:="It looks to me as though I got" & vbCr & vbLf & WidfTxt & "+" & WidfBe4 & "+" & WidfEndColun & " = " & WidfTxt + WidfBe4 + WidfEndColun & vbCr & vbLf & "Columns/characters to play with" End Sub

Code:

Sub HowWideIsTheCodePane() Dim myLongOne As String, WidfTxt As Long Dim EndColun As String, WidfEndColun As Long: Let EndColun = """" ' " Dim BitBefore As String, WidfBe4 As Long: Let BitBefore = " Let myLongOne = """ ' Let myLongOne = " Let myLongOne = "kscnlkslkfhfsklhfcn<slkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb" Let WidfTxt = Len(myLongOne) Let WidfBe4 = Len(BitBefore) Let WidfEndColun = Len(EndColun) MsgBox prompt:="It looks to me as though I got" & vbCr & vbLf & WidfTxt & "+" & WidfBe4 & "+" & WidfEndColun & " = " & WidfTxt + WidfBe4 + WidfEndColun & vbCr & vbLf & "Columns/characters to play with" End Sub

It seems that the code module is not too happy with it.. here it is , as plain text, and note in my actual routine I have one space in my Long one:
MylongOne.JPG : https://imgur.com/dMIzrrh
Attachment 2152
Sub HowWideIsTheCodePane()
Dim myLongOne As String, WidfTxt As Long
Dim EndColun As String, WidfEndColun As Long: Let EndColun = """" ' "
Dim BitBefore As String, WidfBe4 As Long: Let BitBefore = " Let myLongOne = """ ' Let myLongOne = "

Let myLongOne = "kscnlkslkfhfsklhfcn<slkhaslfhaslhlkasfhsakhxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnn nxbbb"
Let WidfTxt = Len(myLongOne)
Let WidfBe4 = Len(BitBefore)
Let WidfEndColun = Len(EndColun)

MsgBox prompt:="It looks to me as though I got" & vbCr & vbLf & WidfTxt & "+" & WidfBe4 & "+" & WidfEndColun & " = " & WidfTxt + WidfBe4 + WidfEndColun & vbCr & vbLf & "Columns/characters to play with"
End Sub

Ah forget all that .... I had a start pointy bracket which was messing up here, because in this Test Forum HTML is enabled...
Try again without any pointy brackets anywhere

__________________________________________________ ____________________________
Star tests again …

Code:

Sub HowWideIsTheCodePane() Dim myLongOne As String, WidfTxt As Long Dim EndColun As String, WidfEndColun As Long: Let EndColun = """" ' " Dim BitBefore As String, WidfBe4 As Long: Let BitBefore = " Let myLongOne = """ ' Let myLongOne = " Let myLongOne = "kscnlkslkfhfsklhfcnoslkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb" Let WidfTxt = Len(myLongOne) Let WidfBe4 = Len(BitBefore) Let WidfEndColun = Len(EndColun) MsgBox prompt:="It looks to me as though I got" & vbCr & vbLf & WidfTxt & "+" & WidfBe4 & "+" & WidfEndColun & " = " & WidfTxt + WidfBe4 + WidfEndColun & vbCr & vbLf & "Columns/characters to play with" End Sub

Thats better, and further more ...._

_............. in a forum post I can put even more characters in then I can in an actiual code module ....

Code:

Sub HowWideIsTheCodePane() Dim myLongOne As String, WidfTxt As Long Dim EndColun As String, WidfEndColun As Long: Let EndColun = """" ' " Dim BitBefore As String, WidfBe4 As Long: Let BitBefore = " Let myLongOne = """ ' Let myLongOne = " Let myLongOne = "kscnlkslkfhfsklhfcnoslkh losts more as well ashfkjshfksjfhkashkjfhsjahfkjsahfkjahfkjh aslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb" Let WidfTxt = Len(myLongOne) Let WidfBe4 = Len(BitBefore) Let WidfEndColun = Len(EndColun) MsgBox prompt:="It looks to me as though I got" & vbCr & vbLf & WidfTxt & "+" & WidfBe4 & "+" & WidfEndColun & " = " & WidfTxt + WidfBe4 + WidfEndColun & vbCr & vbLf & "Columns/characters to play with" End Sub

Conclusion from my tests in this post….

It appears to me that I can get 1023 characters across a single row in the VB Editor code pane window
01-14-2020, 02:17 PM
DocAElstein

Further tests with Code Window and Horizontal text capacity

Just rough tests here

Code:

"ExcelVBAExp" & Chr(64) & "gmail" & "." & "com" & " " & "ym0" & "$" & "b" & Chr(93) & "ackarse" & "$" & "b" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "ExcelVBAExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "mail2taste" & Chr(64) & "gmail" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "mail2taste" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "mail2taste" & Chr(64) & "gmail" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "25" & " " & "30" & " " & "mail2taste" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "excellearning12" & Chr(64) & "gmail" & "." & "com" & " " & "Excel123456" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "JaneAmbrose1958" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "JaneAmbrose1958" & Chr(64) & "gmail" & "." & "com" & " " & "janeygirl" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "excellearning12" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & " " & "CDOMsg" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & " " & "CDOMsg" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "25" & " " & "30" & " " & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "developmentstest" & Chr(64) & "yandex" & "." & "com" & " " & "goiowxrhposfulfq" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "developmentstest" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "developmentstest" & Chr(64) & "yandex" & "." & "com" & " " & "ahetlyqkymthpglq" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "developmentstest" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "CDOMsgScrot" & Chr(64) & "yandex" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrot" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "GiMiCDOMsg" & Chr(64) & "gmx" & "." & "net" & " " & "CDOSend" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "net" & " " & "2" & " " & "465" & " " & "30" & " " & "GiMiCDOMsg" & Chr(64) & "gmx" & "." & "net" & vbCr & vbLf & "Doc" & "." & "AElstein" & Chr(64) & "gmx" & "." & "net" & " " & "Gessin" & Chr(58) & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "net" & " " & "2" & " " & "465" & " " & "30" & " " & "Doc" & "." & "AElstein" & Chr(64) & "gmx" & "." & "net" & vbCr & vbLf & "Vixer" & Chr(64) & "gmx" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "Vixer" & Chr(64) & "gmx" & "." & "com" & vbCr & vbLf & "Jayae" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "JayEhSendin" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "Jayae" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgTest" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgTest" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" hkHHLKDHLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKHLKHLKHKLHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKKYXVLKHLKYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHSAFLKHASLKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHSLKFHFSSLKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHSLKFHASLKLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASLKFSDLKFSALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASKJHDKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOOGDIVFZUSIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEIEOUFQOIFUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJALKSFALKSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJASKLFJASLKFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEKJHFASKJHFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSAKFHASLKFHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHSALKFHSAALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJSLÖFJÖLGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJGDSLÖJGDÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJSDÖGLJSDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDSÖLJGLÖJGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJGDSLÖJGÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDIKUCHNIKDIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDSKJHSKJSHJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHASLKFHSALKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKFHSLKFHAASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKHFLSKHFLKHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFHSLAHFALKSHFFHASFHALKFHASLKFHSALKFHASLKFHASLKFHLKHFAKSHFAS hkHHLKD HLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKHLKHLKHKLHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKKYXVLKHLKYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHSAFLKHASLKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHSLKFHFSSLKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHSLKFHASLKLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASLKFSDLKFSALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASKJHDKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOOGDIVFZUSIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEIEOUFQOIFUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJALKSFALKSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJASKLFJASLKFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEKJHFASKJHFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSAKFHASLKFHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHSALKFHSAALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJSLÖFJÖLGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJGDSLÖJGDÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJSDÖGLJSDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDSÖLJGLÖJGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJGDSLÖJGÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDIKUCHNIKDIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDSKJHSKJSHJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHASLKFHSALKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKFHSLKFHAASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKHFLSKHFLKHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFHSLAHFALKSHFFHASFHALKFHASLKFHSALKFHASLKFHASLKFHLKHFAKSHFAS hkHHLKDHLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKHLKHLKHKLHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKKYXVLKHLKYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHSAFLKHASLKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHSLKFHFSSLKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHSLKFHASLKLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASLKFSDLKFSALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASKJHDKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOOGDIVFZUSIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEIEOUFQOIFUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJALKSFALKSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJASKLFJASLKFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEKJHFASKJHFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSAKFHASLKFHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHSALKFHSAALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJSLÖFJÖLGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJGDSLÖJGDÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJSDÖGLJSDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDSÖLJGLÖJGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJGDSLÖJGÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDIKUCHNIKDIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDSKJHSKJSHJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHASLKFHSALKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKFHSLKFHAASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKHFLSKHFLKHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFHSLAHFALKSHFFHASFHALKFHASLKFHSALKFHASLK FHASLKFHLKHFAKSHFAS a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & &

It seems that I have an extremely long / wide window if i add text with no space ...
but if the text has space, it may be split onto more lines: The first 4 lines above seem to be about 1023 characters ...

that's not quite right actually ... the first 5 lines were copied all in one go from the Immediate window... where they looked similar, see next post where I copy each of those 5 lines to a code window and paste one after the other...
01-14-2020, 08:22 PM
DocAElstein

Just rough tests here

Code:

"ExcelVBAExp" & Chr(64) & "gmail" & "." & "com" & " " & "ym0" & "$" & "b" & Chr(93) & "ackarse" & "$" & "b" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "ExcelVBAExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "mail2taste" & Chr(64) & "gmail" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "mail2taste" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "mail2taste" & Chr(64) & "gmail" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "25" & " " & "30" & " " & "mail2taste" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "excellearning12" & Chr(64) & "gmail" & "." & "com" & " " & "Excel123456" & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "JaneAmbrose1958" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "JaneAmbrose1958" & Chr(64) & "gmail" & "." & "com" & " " & "janeygirl" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "excellearning12" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & " " & "CDOMsg" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & " " & "CDOMsg" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "smtp" & "." & "gmail" & "." & "com" & " " & "2" & " " & "25" & " " & "30" & " " & "CDOMsgExp" & Chr(64) & "gmail" & "." & "com" & vbCr & vbLf & "developmentstest" & Chr(64) & "yandex" & "." & "com" & " " & "goiowxrhposfulfq" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "developmentstest" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "developmentstest" & Chr(64) & "yandex" & "." & "com" & " " & "ahetlyqkymthpglq" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "developmentstest" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "CDOMsgScrot" & Chr(64) & "yandex" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "smtp" & "." & "yandex" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrot" & Chr(64) & "yandex" & "." & "com" & vbCr & vbLf & "GiMiCDOMsg" & Chr(64) & "gmx" & "." & "net" & " " & "CDOSend" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "net" & " " & "2" & " " & "465" & " " & "30" & " " & "GiMiCDOMsg" & Chr(64) & "gmx" & "." & "net" & vbCr & vbLf & "Doc" & "." & "AElstein" & Chr(64) & "gmx" & "." & "net" & " " & "Gessin" & Chr(58) & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "net" & " " & "2" & " " & "465" & " " & "30" & " " & "Doc" & "." & "AElstein" & Chr(64) & "gmx" & "." & "net" & vbCr & vbLf & "Vixer" & Chr(64) & "gmx" & "." & "com" & " " & "9664989931a" & " " & "True" & " " & "1" & " " & "mail" & "." & "gmx" & "." & "com" & " " & "2" & " " & "465" & " " & "30" & " " & "Vixer" & Chr(64) & "gmx" & "." & "com" & vbCr & vbLf & "Jayae" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "JayEhSendin" & "." & "!" & Chr(42) & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "Jayae" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgTest" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgTest" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & vbCr & vbLf & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de" & " " & "PssWrdEMailPrgrm" & " " & "True" & " " & "1" & " " & "securesmtp" & "." & "t" & "-" & "online" & "." & "de" & " " & "2" & " " & "465" & " " & "30" & " " & "CDOMsgScrotum" & Chr(64) & "t" & "-" & "online" & "." & "de"

Star tests again ….

Conclusion from my tests in this post….

It appears to me that I can get 1023 characters across a single row in the VB Editor code pane window – You can see that with the demo routine last but one. ( Be careful if you copy and paste that as it seems you can get some awkward corruptions and crashes if you mess with things around the limit in a code module. Best see the code in the uploaded workbook, - routine Sub HowWideIsTheCodePane()
In the last window above, I put more characters in by editing this post – you will not be able to run that in a code window. If you try you will see…
MoreThan1023GetsWrapped.JPG : https://imgur.com/CuoosES
The second but last routine, that is to say the one in the second but last window above gives me this in my Excel2007 when I run it:
TellMeIGot1023Chrs.JPG : https://imgur.com/cKWg3Yx

Hi Rick,
Yes , I expected that might be the case.
I do remember some time ago , when Mr Excel first introduced the horizontal scroll bar , that you had issues, and could not see it.

The horizontal scroll bar is something I really favour, both for long one liners and also for many 'comments. The horizontal scroll bar apparently is in many cases technically harder to achieve than the vertical ( https://eileenslounge.com/viewtopic....243274#p243274 )
09-07-2023, 10:00 AM
DocAElstein

Some Notes in support of this Thread Post
https://www.excelfox.com/forum/showt...ll=1#post23290

This line is a bit big,

Code:

Let Range("A20").Resize((Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ""))) / 2 + 1, (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1) = Application.Index(Split(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ","), ","), 1, _ Evaluate("=COLUMN(A:" & Split(Cells(1, (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1).Address, "$")(1) & ")+((Row(1:" & (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ""))) / 2 + 1 & ")-1)*" & (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1 & ")"))

How much?

Code:

Sub LineLenfTest() ' https://www.excelfox.com/forum/showthread.php/1976-Code-Tag-Test-with-Long-Comments-Code-Window-Horitontal-scroll-bar?p=23291&viewfull=1#post23291https://www.excelfox.com/forum/showthread.php/2559-Notes-tests-text-files-manipulation-of-text-files-in-Excel-and-with-Excel-VBA-CSV-stuff?p=23290&viewfull=1#post23290 ' Let Range("A20").Resize((Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ""))) / 2 + 1, (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1) = Application.Index(Split(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ","), ","), 1, _ ' Evaluate("=COLUMN(A:" & Split(Cells(1, (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1).Address, "$")(1) & ")+((Row(1:" & (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readall, vbCr & vbLf, ""))) / 2 + 1 & ")-1)*" & (Len(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline()) - Len(Replace(CreateObject("scripting.filesystemobject").opentextfile(ThisWorkbook.Path & "\3Row2ColumnTextFile.txt").readline(), ",", ""))) + 1 & ")")) Dim Str1 As String, Str2 As String Let Str1 = "Let Range(""A20"").Resize((Len(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readall) - Len(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readall, vbCr & vbLf, """"))) / 2 + 1, (Len(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline()) - Len(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline(), "","", """"))) + 1) = Application.Index(Split(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readall, vbCr & vbLf, "",""), "",""), 1," Debug.Print Len(Str1) ' 738 Let Str2 = "Evaluate(""=COLUMN(A:"" & Split(Cells(1, (Len(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline()) - Len(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline(), "","", """"))) + 1).Address, ""$"")(1) & "")+((Row(1:"" & (Len(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readall) - Len(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readall, vbCr & vbLf, """"))) / 2 + 1 & "")-1)*"" & (Len(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline()) - Len(Replace(CreateObject(""scripting.filesystemobject"").opentextfile(ThisWorkbook.Path & ""\3Row2ColumnTextFile.txt"").readline(), "","", """"))) + 1 & "")""))" Debug.Print Len(Str2) ' 897 End Sub

With only 1023 characters available, then not much chance for improvement here, so forget about this one for now

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=oVb1RfcSHLM&lc=UgwTq-jZlZLnLQ5VB8Z4AaABAg.9Hroz-OyWog9tYjSMc1qjA
https://www.youtube.com/watch?v=0pbsf6sox34&lc=Ugxp9JFvvejnqA68W1t4AaABAg
https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839t UQl_92mvg
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg. 9isY3Ezhx4j9itQLuif26T
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg. 9irSL7x4Moh9itTRqL7dQh
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg. 9irLgSdeU3r9itU7zdnWHw
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg. 9iraombnLDb9itV80HDpXc
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg. 9is0FSoF2Wi9itWKEvGSSq
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK75iCEaGN
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK7XF33njy
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCSgpAqA1
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCy--3x8E
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwNaJiNATXshvJ0Zz94AaABAg. 9iEktVkTAHk9iF9_pdshr6
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iFAZq-JEZ-
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgxV2r7KQnuAyZVLHH54AaABAg. 9iDVgy6wzct9iFBxma9zXI
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwnYuSngiuYaUhEMWN4AaABAg. 9iDQN7TORHv9iFGQQ5z_3f
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwJ3yzdk_EE98dndmt4AaABAg. 9iDLC2uEPRW9iFGvgk11nH
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgyDWAVqCa4yMot463x4AaABAg. 9iH3wvUZj3n9iHnpOxOeXa
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwvLFdMEAba5rLHIz94AaABAg. 9iGReNGzP4v9iHoeaCpTG8
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iHpsWCdJ5I
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
09-22-2023, 01:23 PM
2kvemperor

1 Attachment(s)

Problem with copy paste formula

please help me here .
what am i doing wrong, apert from beineg a total twat ?i want to have the same result in the sheet ΣΚΦ 2022 in the cell V4 and in the sheet ΦΑΙΔΡΑ 2022 in the cell v4 also,
like the cells of the sheets ΣΚΦ 2023 (cell W5) and ΦΑΙΔΡΑ 2023 (V5)
i did copy paste and changed the names of the tables and the cells(i put the proper ones and doesn t work properly.
what am i doing wrong?
This question has been post also here but there was no answer
https://chandoo.org/forum/threads/problem-with-copy-paste-formula.54932/

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=oVb1RfcSHLM&lc=UgwTq-jZlZLnLQ5VB8Z4AaABAg.9Hroz-OyWog9tYjSMc1qjA
https://www.youtube.com/watch?v=0pbsf6sox34&lc=Ugxp9JFvvejnqA68W1t4AaABAg
https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839t UQl_92mvg
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg. 9isY3Ezhx4j9itQLuif26T
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg. 9irSL7x4Moh9itTRqL7dQh
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg. 9irLgSdeU3r9itU7zdnWHw
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg. 9iraombnLDb9itV80HDpXc
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg. 9is0FSoF2Wi9itWKEvGSSq
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
09-22-2023, 03:53 PM
DocAElstein

Hello 2kvemperor
Welcome to ExcelFox
Perhaps you are both a twat and a cunt as well?
I spent some time looking at your file. I expect some sort of names issue.
This problem is rather difficult for me to understand or work on, because you are using a lot of non-standard and non-English characters. Those do not show in my English or German Excel.
Also what makes it very difficult for me is that you are using a lot of named ranges and other strange names that I don’t understand. This makes it very difficult and time consuming to try and make any sense of what is going on where.
Your formulas look very complicated to me. I don’t understand them. But I am not a formula expert.

For example, I have no idea what this is referring to?
ΣΚΦ2022[[ΗΜΕΡΕΣ]:[ΔΕΚΕΜΒΡΙΟΣ]]
I think perhaps ΣΚΦ2022 is something to do with the worksheet ΣΚΦ 2022 , but I have no idea what is ΗΜΕΡΕΣ or ΔΕΚΕΜΒΡΙΟΣ ?

I am sorry, but I think currently that we do not have any formula experts at excelfox that can help you, or that would be willing to spend the time to try and break down your formulas, translating them into English characters, and to actual specified ranges.

I think you will need help from a good formula expert
You could try at excelforum.com as they have many more helpers there currently.
Here is the link to their Formula sub forum : --

( Alternatively, if you could reproduce the problem in an example workbook using just English characters throughout, and not named ranges, but explicitly referencing ranges, then perhaps somebody here might be able to help further. I expect also that you will increase your chances of getting help at any of the major forums if you could restrict yourself to using English characters. This is because some of the tools we use to help analyse and debug formulas often only work with English characters )
Sorry that excelfox probably is not currently the place to get help with complicated formulas

Alan