Page 1 of 2 12 LastLast
Results 1 to 10 of 13

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

  1. #1
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10

    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
    Last edited by DocAElstein; 10-06-2023 at 10:48 AM.

  2. #2
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10
    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.9oTkVdzfqfm9wlhQrYJP 3M
    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_Q3FO8Lp9xHyeYSuv 1I
    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.9oTkVdzfqfm9wlhQrYJP 3M
    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_rWgxSH9wdpcYqrv p8
    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
    Last edited by DocAElstein; 11-30-2023 at 02:27 PM.

  3. #3
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10
    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 )
    Last edited by DocAElstein; 03-15-2016 at 11:57 PM.

  4. #4
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10

    Thanks for the scroll

    Thank you for the scroll


    --- + Thanks for the Scroll Bar + --- ___o00o__`(_)`___o00o___ --- + Thanks for the Scroll Bar+ ---






    ' 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



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



    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:
      
    '  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
    
    Last edited by DocAElstein; 03-23-2016 at 02:25 PM.

  5. #5
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10

    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"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
    Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
    End Sub[/td]
    [/tr]
    [/table]
    [/CODE]

    This is how it comes out in the Post
    Code:
    Sub ThisShouldWork() Dim LastRow As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow)) Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete End Sub
    _._____
    So it would appear that Rick uses this
    [CODE][table="width: 500"]_.....
    [tr]
    [td] ' Code[/td]
    [/tr]
    [/table]
    [/CODE]
    _.. instead of this more usual way,
    [CODE]
    ' Code
    [/CODE]


    _.-_________________________________________________

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

    Here is how it comes out in a post
    Code:
    Sub ThisShouldWork()
      Dim LastRow As Long
      LastRow = Cells(Rows.Count, "A").End(xlUp).Row
      Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
      Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
    End Sub
    In Google Chrome, all is well
    GoogleChrome RicksTableCodeTags and CodeTags.JPG : https://imgur.com/WlWHzix
    GoogleChrome RicksTableCodeTags and CodeTags.JPG

    In Internet Explorer ( 11 ) I can typically not see the scroll bars , but I can see Ricks Table Scroll Bar Code Tags
    InternetExplorer RicksTableCodeTags CodeTags.JPG : https://imgur.com/AbRjqj3
    InternetExplorer RicksTableCodeTags CodeTags.JPG
    Last edited by DocAElstein; 01-15-2019 at 09:55 PM.
    ….If you are my competitor, I will try all I can to beat you. But if I do, I will not belittle you. I will Salute you, because without you, I am nothing.
    If you are my enemy, we will try to kick the fucking shit out of you…..
    Winston Churchill, 1939
    Save your Forum..._
    _...KILL A MODERATOR!!

  6. #6
    Forum Guru Rick Rothstein's Avatar
    Join Date
    Feb 2012
    Posts
    659
    Rep Power
    13
    Quote Originally Posted by DocAElstein View Post
    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.9oTkVdzfqfm9wlhQrYJP 3M
    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_Q3FO8Lp9xHyeYSuv 1I
    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.9oTkVdzfqfm9wlhQrYJP 3M
    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_rWgxSH9wdpcYqrv p8
    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
    Last edited by DocAElstein; 11-30-2023 at 02:31 PM.

  7. #7
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10
    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.9xmkXGSciKJ9xonTti2s Ix
    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_ufqOILb9xooIlv5P LY
    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=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
    Last edited by DocAElstein; 12-14-2023 at 02:44 AM.
    ….If you are my competitor, I will try all I can to beat you. But if I do, I will not belittle you. I will Salute you, because without you, I am nothing.
    If you are my enemy, we will try to kick the fucking shit out of you…..
    Winston Churchill, 1939
    Save your Forum..._
    _...KILL A MODERATOR!!

  8. #8
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10
    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 = "kscnlkslkfhfsklhfcnLet 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
    
    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
    MylongOne.JPG
    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 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
    Attached Images Attached Images
    Attached Files Attached Files
    Last edited by DocAElstein; 02-09-2019 at 06:16 PM.
    ….If you are my competitor, I will try all I can to beat you. But if I do, I will not belittle you. I will Salute you, because without you, I am nothing.
    If you are my enemy, we will try to kick the fucking shit out of you…..
    Winston Churchill, 1939
    Save your Forum..._
    _...KILL A MODERATOR!!

  9. #9
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10

    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...
    Last edited by DocAElstein; 01-14-2020 at 08:25 PM.
    ….If you are my competitor, I will try all I can to beat you. But if I do, I will not belittle you. I will Salute you, because without you, I am nothing.
    If you are my enemy, we will try to kick the fucking shit out of you…..
    Winston Churchill, 1939
    Save your Forum..._
    _...KILL A MODERATOR!!

  10. #10
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,270
    Rep Power
    10
    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 )
    Last edited by DocAElstein; 12-20-2020 at 02:23 PM.
    ….If you are my competitor, I will try all I can to beat you. But if I do, I will not belittle you. I will Salute you, because without you, I am nothing.
    If you are my enemy, we will try to kick the fucking shit out of you…..
    Winston Churchill, 1939
    Save your Forum..._
    _...KILL A MODERATOR!!

Similar Threads

  1. HTML Code Test --post8798
    By DocAElstein in forum Test Area
    Replies: 19
    Last Post: 06-17-2018, 03:02 PM
  2. test BB Code
    By DocAElstein in forum Test Area
    Replies: 39
    Last Post: 05-23-2018, 02:47 PM
  3. CODE TAG Code Test
    By DocAElstein in forum Test Area
    Replies: 5
    Last Post: 09-16-2015, 05:16 PM
  4. Adding Scroll bar to image box in vba
    By princ_wns in forum Excel Help
    Replies: 1
    Last Post: 12-13-2011, 09:47 PM
  5. VBA Code to Clear the Immediate Window.
    By technicalupload in forum Excel and VBA Tips and Tricks
    Replies: 0
    Last Post: 09-02-2011, 03:04 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •