Page 19 of 19 FirstFirst ... 9171819
Results 181 to 186 of 186

Thread: Appendix Thread 2. ( Codes for other Threads, HTML Tables, etc.)

  1. #181
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    Later
    ….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!!

  2. #182
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    later

  3. #183
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    and later again

  4. #184
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    Some notes in support of this forum post
    https://eileenslounge.com/viewtopic....313848#p313848


    Hello,

    If you have time to help me make some coding I am sharing to anyone work in more languages and operating system, then please follow the Instructions below.
    So far I have results for:
    Operating systems XP, Vista, Win 7, Win 8.1, Win 10, Win 11 German
    Operating systems Win 10, Win 11 English



    Instructions
    Download both files and put them anywhere, but both in the same place
    WSO_PropNames.xls https://app.box.com/s/ynlabyb11ekmj6m4we99wk9xd7gx0xn3
    sample.wmv https://app.box.com/s/leu06ql1fu9uzt59wnoizedg85qoo7k4

    Open just WSO_PropNames.xls, it should look something like this, with columns AA and AB empty
    https://i.postimg.cc/QN9RhZsF/Before...ll-Details.jpg

    Before Tabelle8 SchellGetNullDetails.JPG

    Now run the only macro in it, WSO_PropNames.xls and run Sub SchellGetNullDetails() ( Tabelle8.SchellGetNullDetails
    https://i.postimg.cc/wxCnB4T0/Tabell...ll-Details.jpg

    Tabelle8 SchellGetNullDetails.jpg


    After running that coding, you should see something approximately like this
    https://i.postimg.cc/ZRg2pVPY/After-...ll-Details.jpg

    After Tabelle8 SchellGetNullDetails.JPG



    Please now save the excel file and return it to me somehow: For example, post anywhere here at excelfox.com, or in that thread at https://eileenslounge.com , https://eileenslounge.com/viewtopic.php?f=30&t=40533

    Thanks,
    Alan
    Attached Files Attached Files
    Last edited by DocAElstein; 01-30-2024 at 09:39 PM.

  5. #185
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    Some stuff to save for prosperity, related to this main forum post https://eileenslounge.com/viewtopic....315229#p315229
    https://eileenslounge.com/viewtopic....315235#p315235


    Some Microsoft documentation as of March 2024, here: https://learn.microsoft.com/en-us/of...rror-statement ( Just some of the first bits, relevant to the discussion at https://eileenslounge.com/viewtopic.php?f=30&t=40752 )


    On Error statement Article 03/30/2022

    Syntax
    On Error GoTo line
    On Error Resume Next
    On Error GoTo 0


    The On Error statement syntax can have any of the following forms:

    Statement Description
    On Error GoTo line Enables the error-handling routine that starts at line specified in the required line argument.
    The line argument is any line label or line number.
    If a run-time error occurs, control branches to line, making the error handler active.
    The specified line must be in the same procedure as the On Error statement; otherwise, a compile-time error occurs.
    On Error Resume Next Specifies that when a run-time error occurs, control goes to the statement immediately following the statement where the error occurred and execution continues. Use this form rather than On Error GoTo when accessing objects.
    On Error GoTo 0 Disables any enabled error handler in the current procedure.

    Remarks
    If you don't use an On Error statement, any run-time error that occurs is fatal; that is, an error message is displayed and execution stops.

    An "enabled" error handler is one that is turned on by an On Error statement; an "active" error handler is an enabled handler that is in the process of handling an error. If an error occurs while an error handler is active (between the occurrence of the error and a Resume, Exit Sub, Exit Function, or Exit Property statement), the current procedure's error handler can't handle the error. Control returns to the calling procedure.

    If the calling procedure has an enabled error handler, it is activated to handle the error. If the calling procedure's error handler is also active, control passes back through previous calling procedures until an enabled, but inactive, error handler is found. If no inactive, enabled error handler is found, the error is fatal at the point at which it actually occurred.

    Each time the error handler passes control back to a calling procedure, that procedure becomes the current procedure. After an error is handled by an error handler in any procedure, execution resumes in the current procedure at the point designated by the Resume statement. .........
    ........................
    Last edited by DocAElstein; 03-16-2024 at 02:04 PM.

  6. #186
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,423
    Rep Power
    10
    Some extra notes for these main forum posts
    https://www.excelfox.com/forum/showt...ll=1#post24163
    https://www.excelfox.com/forum/showt...age3#post24163
    https://eileenslounge.com/viewtopic....317547#p317547
    https://eileenslounge.com/viewtopic....317533#p317533


    This is the original coding from SamPi , which confused me a bit for a few reasons
    The choice of variable names;
    the use of a .xlam file; ( and
    the Class module is only part of the story
    )


    Class Module:
    Code:
    Option Explicit
     
    Public WithEvents App As Application
     
    Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    Dim s As String
    
    s = Wb.Name
    
    If s = "test.csv" Then MyMacro
    
    End Sub
    
    Sub MyMacro()
    MsgBox "Yes"
    End Sub
    
    ThisWorkbook:
    Code:
    Option Explicit
    
    Dim App             As New App
     
    Private Sub Workbook_Open()
         
       Set App.App = Application
    
    End Sub
    
    Attached Files Attached Files
    Last edited by DocAElstein; 05-22-2024 at 10:07 PM.

Similar Threads

  1. VBA to Reply All To Latest Email Thread
    By pkearney10 in forum Outlook Help
    Replies: 11
    Last Post: 12-22-2020, 11:15 PM
  2. Appendix Thread. Diet Protokol Coding Adaptions
    By DocAElstein in forum Test Area
    Replies: 6
    Last Post: 09-05-2019, 10:45 AM
  3. Replies: 19
    Last Post: 04-20-2019, 02:38 PM
  4. Search List of my codes
    By PcMax in forum Excel Help
    Replies: 6
    Last Post: 08-03-2014, 08:38 AM

Posting Permissions

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