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

[DocAElstein]

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



'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





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 'MicrosoftScriptimeRuntimeDictionaryRangeOfRangesK eysItems()





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 'MicrosoftScriptimeRuntimeDictionaryRangeOfRangesK eysItems()




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.Trans pose(Evaluate("Row(1:" & (RowToDelete - 1) & ")"))) & " " & Join(Application.Transpose(Evaluate("Row(" & (RowToDelete + 1) & ":" & UBound(Arr) & ")"))))), Evaluate("COLUMN(" & Cols & ")"))End Function



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.Trans pose(Evaluate("Row(1:" & (RowToDelete - 1) & ")"))) & " " & Join(Application.Transpose(Evaluate("Row(" & (RowToDelete + 1) & ":" & UBound(Arr) & ")"))))), Evaluate("COLUMN(" & Cols & ")"))
End Function

[DocAElstein]

'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.Trans pose(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/channel/UCnxwq2aGJRbjOo_MO54oaHA)
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg (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.9BLeCWVhxdG9wgNsaS3Lp1)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw (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.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.9BLeCWVhxdG9wgNPOdiDuv)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc (https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M (https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg (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=DVFFApHzYVk&lc=Ugyi578yhj9zShmhuPl4AaABAg)
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgxvxlnuTRWiV6MUZB14AaABAg (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=_8i1fVEi5WY&lc=Ugz0ptwE5J-2CpX4Lzh4AaABAg)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxoHAw8RwR7VmyVBUt4AaABAg.9C-br0lEl8V9xI0_6pCaR9 (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=Ugz5DDCMqmHLeEjUU8t4AaABAg.9bl7m03Onql9xI-ar3Z0ME)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg.9gdrYDocLIm9xI-2ZpVF-q (https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg.9gdrYDocLIm9xI-2ZpVF-q)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg.9id_Q3FO8Lp9xHyeYSuv 1I (https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg.9id_Q3FO8Lp9xHyeYSuv 1I)
https://www.reddit.com/r/windowsxp/comments/pexq9q/comment/k81ybvj/?utm_source=reddit&utm_medium=web2x&context=3 (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=UgxYgiEZuS9I3xkjJv54AaABAg)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M (https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M)
ttps://www.youtube.com/watch?v=LP9fz2DCMBE (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)
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg.9wdo_rWgxSH9wdpcYqrv p8 (https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg.9wdo_rWgxSH9wdpcYqrv p8)
ttps://www.youtube.com/watch?v=bFxnXH4-L1A (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=UgxuODisjo6cvom7O-B4AaABAg.9w_AeS3JiK09wdi2XviwLG)
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg (https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg)
ttps://www.youtube.com/watch?v=GqzeFYWjTxI (ttps://www.youtube.com/watch?v=GqzeFYWjTxI)
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg (https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg)
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[DocAElstein]

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






' 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:





<tbody>
' 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 )


</tbody>

[DocAElstein]

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>



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








' 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








' 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! ......



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

[DocAElstein]

Ricks code from here http://www.excelfox.com/forum/showthread.php/2293-Move-values-in-rows-at-the-end-of-the-preceding-row?p=10888#post10888

This is what he posted




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




This is how it comes out in the Post



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



_.. instead of this more usual way,


' Code


_.-_________________________________________________

here is the normal use of code tags


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


Here is how it comes out in a post


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

[Rick Rothstein]

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/channel/UCnxwq2aGJRbjOo_MO54oaHA)
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg (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.9BLeCWVhxdG9wgNsaS3Lp1)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw (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.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.9BLeCWVhxdG9wgNPOdiDuv)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc (https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M (https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgxYgiEZuS9I3xkjJv54AaABAg (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=DVFFApHzYVk&lc=Ugyi578yhj9zShmhuPl4AaABAg)
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgxvxlnuTRWiV6MUZB14AaABAg (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=_8i1fVEi5WY&lc=Ugz0ptwE5J-2CpX4Lzh4AaABAg)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxoHAw8RwR7VmyVBUt4AaABAg.9C-br0lEl8V9xI0_6pCaR9 (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=Ugz5DDCMqmHLeEjUU8t4AaABAg.9bl7m03Onql9xI-ar3Z0ME)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg.9gdrYDocLIm9xI-2ZpVF-q (https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgxYnpd9leriPmc8rPd4AaABAg.9gdrYDocLIm9xI-2ZpVF-q)
https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg.9id_Q3FO8Lp9xHyeYSuv 1I (https://www.youtube.com/watch?v=0ltJS7uHfK4&lc=UgyjoPLjNeIAOMVH_u94AaABAg.9id_Q3FO8Lp9xHyeYSuv 1I)
https://www.reddit.com/r/windowsxp/comments/pexq9q/comment/k81ybvj/?utm_source=reddit&utm_medium=web2x&context=3 (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=UgxYgiEZuS9I3xkjJv54AaABAg)
https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M (https://www.youtube.com/watch?v=bs-urI_o8jo&lc=UgyBACXgNY4j_cHgH5J4AaABAg.9oTkVdzfqfm9wlhQrYJP 3M)
ttps://www.youtube.com/watch?v=LP9fz2DCMBE (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)
https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg.9wdo_rWgxSH9wdpcYqrv p8 (https://www.youtube.com/watch?v=LP9fz2DCMBE&lc=UgzbPgJUMCztIOQDym14AaABAg.9wdo_rWgxSH9wdpcYqrv p8)
ttps://www.youtube.com/watch?v=bFxnXH4-L1A (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=UgxuODisjo6cvom7O-B4AaABAg.9w_AeS3JiK09wdi2XviwLG)
https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg (https://www.youtube.com/watch?v=bFxnXH4-L1A&lc=UgxBU39bTptFznDC1PJ4AaABAg)
ttps://www.youtube.com/watch?v=GqzeFYWjTxI (ttps://www.youtube.com/watch?v=GqzeFYWjTxI)
https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg (https://www.youtube.com/watch?v=GqzeFYWjTxI&lc=UgwJnJDJ5JT8hFvibt14AaABAg)
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[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.php?f=41&t=31439&p=243274#p243274 )

Alan


https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwTUdEgR4bdt6crKXF4AaABAg.9xmkXGSciKJ9xonTti2s Ix (https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwTUdEgR4bdt6crKXF4AaABAg.9xmkXGSciKJ9xonTti2s Ix)
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwWw16qBFX39JCRRm54AaABAg.9xnskBhPnmb9xoq3mGxu _b (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=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9xon1p2ImxO)
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgybZfNJd3l4FokX3cV4AaABAg.9xm_ufqOILb9xooIlv5P LY (https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgybZfNJd3l4FokX3cV4AaABAg.9xm_ufqOILb9xooIlv5P LY)
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9y38bzbSqaG (https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9y38bzbSqaG)
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgyWm8nL7syjhiHtpBF4AaABAg.9xmt8i0IsEr9y3FT9Y9F eM (https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgyWm8nL7syjhiHtpBF4AaABAg.9xmt8i0IsEr9y3FT9Y9F eM)
https://www.youtube.com/watch?v=jTmVtPHtiTg&lc=Ugy_RiNN_kAqUvZ8W994AaABAg.9xhyRrsUUOM9xpn-GDkL3o (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=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.9BLeCWVhxdG9wgNsaS3Lp1)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgR1EPUkhw (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.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.9BLeCWVhxdG9wgNPOdiDuv)
https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc (https://www.youtube.com/watch?v=QjEWAJ3d-jw&lc=UgxJLVpwY8fIla7G-pN4AaABAg.9BLeCWVhxdG9wgN7AC7wAc)
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[DocAElstein]

Test.....

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


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<slkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb"
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


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<slkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb"
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
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<slkhaslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb"
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 …




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 = "kscnlkslkfhfsklhfcnoslkhaslfhaslhlkasfhsakhxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxnnnnnnnnnn xbbb"
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 ....

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 aslfhaslhlkasfhsakhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxnnnnnnnnnnxbbb"
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

[DocAElstein]

Just rough tests here


"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"




hkHHLKDHLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKH LKHLKHKLHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKK YXVLKHLKYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHS AFLKHASLKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHS LKFHFSSLKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHS LKFHASLKLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASL KFSDLKFSALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASK JHDKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ JJJJJJJJJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOO GDIVFZUSIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEI EOUFQOIFUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJ ALKSFALKSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJAS KLFJASLKFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEK JHFASKJHFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSA KFHASLKFHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHS ALKFHSAALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJ SLÖFJÖLGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJG DSLÖJGDÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJ SDÖGLJSDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDS ÖLJGLÖJGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJG DSLÖJGÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDI KUCHNIKDIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDS KJHSKJSHJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHA SLKFHSALKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKF HSLKFHAASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKH FLSKHFLKHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFH SLAHFALKSHFFHASFHALKFHASLKFHSALKFHASLKFHASLKFHLKHF AKSHFAS


hkHHLKD HLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKHLKHLKHK LHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKKYXVLKHL KYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHSAFLKHAS LKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHSLKFHFSS LKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHSLKFHASL KLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASLKFSDLKF SALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASKJHDKJJJ JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ JJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOOGDIVFZU SIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEIEOUFQOI FUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJALKSFAL KSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJASKLFJASL KFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEKJHFASKJ HFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSAKFHASLK FHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHSALKFHSA ALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJSLÖFJà –LGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJGDSLÖJG DÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJSDÖGLJ SDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDSÖLJGLà –JGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJGDSLÖJG ÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDIKUCHNIK DIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDSKJHSKJS HJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHASLKFHSA LKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKFHSLKFHA ASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKHFLSKHFL KHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFHSLAHFAL KSHFFHASFHALKFHASLKFHSALKFHASLKFHASLKFHLKHFAKSHFAS


hkHHLKDHLKHDLKHHHKHHLKLKLKLLKJLKJLKLKHLKHLKHLKHLKH LKHLKHKLHLHLKHLKHHLKHLKHLHLAOVJÖVJLVJDLKVLKVYVLKK YXVLKHLKYHCLKSHSLKHSLKHSALKKSFHASLFKHASLKFHASLKFHS AFLKHASLKFHSALKFHASLKFHASLKFHSALFKHLKFHSAKFHSLKFHS LKFHFSSLKFHSALKHFSLKFHLKFHASLKFHASLKFHSALKFHASKFHS LKFHASLKLASHFKJAHFKHJFLKASJHFKASLFHSALKFJASLKFHASL KFSDLKFSALKFHSFLKHASLKFHASFKLKAHSFLKASHFHAFSJHDASK JHDKJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ JJJJJJJJJJJJJJJJJJJJJJJJJJJHVLADSKFJUIOWEUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZGFOOOOOOOOOO GDIVFZUSIUZEIEFZUEOIZUFIOEFZIEUFZUEZFEOIEUFOIEUFEI EOUFQOIFUEIOFUOIUFEWIFUEIFUEWIUFIEWUIFUEIUEFIUKAFJ ALKSFALKSFJASKLFJSLKASJFLKASJFASKJFSALKFJHASLKFJAS KLFJASLKFJASLKFJAKFHJSKJFHJASKJDHFASKHFDKQHKFHWAEK JHFASKJHFKJDSHFKJHFKJHFLKHFASKJFHAKFHAWSKFHASLFHSA KFHASLKFHASLKFHSALFHSLKFHALKSHFASLKFHASLKFHHSLKFHS ALKFHSAALKFHSALKFHSFLKHFLKHASLKFHSLAVKSAFVJASÖLFJ SLÖFJÖLGJLGJÖGLJLGÖJDSÖLGJSDÖLJÖLDJGLÖDSJG DSLÖJGDÖLGJDSÖLJDSÖLJGÖDLGJDSÖGJDSÖGLJSDGLJ SDÖGLJSDÖLGJSDLÖGJSLÖDGJDSÖLJGDÖLGJDSÖLJGDS ÖLJGLÖJGÖLDJGÖLJGDSÖLGJDÖLGJDLGJDSÖLGJÖLJG DSLÖJGÖLJGWÖJGEFLÖAJFÖOWEJUWEIGJDSLKJVNKFHSDI KUCHNIKDIGHSDLKHFSDKGHSKUFHCKJHFSKDJFHKDJHCKJCFHDS KJHSKJSHJDSHFWWJHFSKJDHFSKJDHFKJGFHESKFHKFHSALKFHA SLKFHSALKFHSALKFHASLKFHASLKFHSALKFHSALKHFASKFHSLKF HSLKFHAASLKFHALKFHASLKFHAALKFHSALFHALKFHSALKFHSLKH FLSKHFLKHFLKASHFSLKAFHSALKKFHSALKFHAALKFHALKHFLSFH SLAHFALKSHFFHASFHALKFHASLKFHSALKFHASLK 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...

[DocAElstein]

Just rough tests here



"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.php?f=41&t=31439&p=243274#p243274 )

[DocAElstein]

Some Notes in support of this Thread Post
https://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

This line is a bit big,

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?

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/channel/UCnxwq2aGJRbjOo_MO54oaHA)
https://www.youtube.com/watch?v=oVb1RfcSHLM&lc=UgwTq-jZlZLnLQ5VB8Z4AaABAg.9Hroz-OyWog9tYjSMc1qjA (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=0pbsf6sox34&lc=Ugxp9JFvvejnqA68W1t4AaABAg)
https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839tUQl_92m vg (https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839tUQl_92m vg)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg.9isY3Ezhx4j9itQLuif2 6T (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg.9isY3Ezhx4j9itQLuif2 6T)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg.9irSL7x4Moh9itTRqL7d Qh (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg.9irSL7x4Moh9itTRqL7d Qh)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg.9irLgSdeU3r9itU7zdnW Hw (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg.9irLgSdeU3r9itU7zdnW Hw)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg.9iraombnLDb9itV80HDp Xc (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg.9iraombnLDb9itV80HDp Xc)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg.9is0FSoF2Wi9itWKEvGS Sq (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg.9is0FSoF2Wi9itWKEvGS Sq)
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-n4U9iK75iCEaGN)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK7XF33njy (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_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=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCy--3x8E)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwNaJiNATXshvJ0Zz94AaABAg.9iEktVkTAHk9iF9_pdsh r6 (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwNaJiNATXshvJ0Zz94AaABAg.9iEktVkTAHk9iF9_pdsh r6)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iFAZq-JEZ- (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iFAZq-JEZ-)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgxV2r7KQnuAyZVLHH54AaABAg.9iDVgy6wzct9iFBxma9z XI (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgxV2r7KQnuAyZVLHH54AaABAg.9iDVgy6wzct9iFBxma9z XI)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG (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=UgwnYuSngiuYaUhEMWN4AaABAg.9iDQN7TORHv9iFGQQ5z_ 3f)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwJ3yzdk_EE98dndmt4AaABAg.9iDLC2uEPRW9iFGvgk11 nH (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwJ3yzdk_EE98dndmt4AaABAg.9iDLC2uEPRW9iFGvgk11 nH)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgyDWAVqCa4yMot463x4AaABAg.9iH3wvUZj3n9iHnpOxOe Xa (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgyDWAVqCa4yMot463x4AaABAg.9iH3wvUZj3n9iHnpOxOe Xa)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwvLFdMEAba5rLHIz94AaABAg.9iGReNGzP4v9iHoeaCpT G8 (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwvLFdMEAba5rLHIz94AaABAg.9iGReNGzP4v9iHoeaCpT G8)
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iHpsWCdJ5I (https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iHpsWCdJ5I)
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[2kvemperor]

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/channel/UCnxwq2aGJRbjOo_MO54oaHA)
https://www.youtube.com/watch?v=oVb1RfcSHLM&lc=UgwTq-jZlZLnLQ5VB8Z4AaABAg.9Hroz-OyWog9tYjSMc1qjA (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=0pbsf6sox34&lc=Ugxp9JFvvejnqA68W1t4AaABAg)
https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839tUQl_92m vg (https://www.youtube.com/watch?v=kfQC-sQxMcw&lc=UgyCxQWypNIhG2nUn794AaABAg.9q1p6q7ah839tUQl_92m vg)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgyOh-eR43LvlIJLG5p4AaABAg.9isnKJoRfbL9itPC-4uckb)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg.9isY3Ezhx4j9itQLuif2 6T (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugy1B1aQnHq2WbbucmR4AaABAg.9isY3Ezhx4j9itQLuif2 6T)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg.9irSL7x4Moh9itTRqL7d Qh (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgxxajSt03TX1wxh3IJ4AaABAg.9irSL7x4Moh9itTRqL7d Qh)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg.9irLgSdeU3r9itU7zdnW Hw (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=Ugxa2VYHMWJWXA6QI294AaABAg.9irLgSdeU3r9itU7zdnW Hw)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg.9iraombnLDb9itV80HDp Xc (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgwJAAPbp8dhkW2X1Uh4AaABAg.9iraombnLDb9itV80HDp Xc)
https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg.9is0FSoF2Wi9itWKEvGS Sq (https://www.youtube.com/watch?v=vXyMScSbhk4&lc=UgzIzQ6MQ5kTpuLbIuB4AaABAg.9is0FSoF2Wi9itWKEvGS Sq)
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[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 : -- (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

( 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