Search:

Type: Posts; User: KingTamo

Search: Search took 0.00 seconds.

  1. Hi Mr. Rick I tested your great UDF function and...

    Hi Mr. Rick
    I tested your great UDF function and noticed that case sensitive doesn't work properly

    Sub TestRun()
    MsgBox InStrExact(1, "Don't tell me, but your name is Don, right?", "Don", 1)...
  2. Now it is perfect Mr. Rick Thanks a lot for...

    Now it is perfect Mr. Rick
    Thanks a lot for your patience and for your great code
  3. Mr. Rick I tried this modification and it takes...

    Mr. Rick
    I tried this modification and it takes the same period nearby

    Sub InsertEmptyRowKingTamo()
    Dim LR As Long, I As Long, X As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    ...
  4. Mr Rick Rothstein thanks a lot for this great...

    Mr Rick Rothstein
    thanks a lot for this great code
    I tried your code on my pc as following :
    I tried now 1000 rows ... calcuating the time elapsed for my code and yours.
    As for my code it takes...
  5. Mr. Rick your code is great but it will not work...

    Mr. Rick
    your code is great but it will not work after while ..
    Try to put any numeric values in range("A1:A102") for example .. and test your code
    you'll find that the last empty row is row 100...
  6. Suppose there are some data in column A ... Try...

    Suppose there are some data in column A ...
    Try this code

    Sub InsertEmptyRow()
    Dim LR As Long, I As Long, X As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    X = Int(LR / 4) + LR...
  7. Replies
    9
    Views
    14,001

    What about value repetition?

    What about value repetition?
  8. Replies
    6
    Views
    78,779

    great function just a little bug I want to get...

    great function
    just a little bug
    I want to get rid of Ref error
  9. Replies
    5
    Views
    10,335

    Fantastic masterpiece

    Fantastic masterpiece
  10. Thanks for reply But I have an error too when...

    Thanks for reply
    But I have an error too when testing the code

    Sub Test()
    Astr = Split(Cells(1, Along).Address, "$")
    MsgBox Astr(1)
    End Sub
  11. When testing the code I have got an error ...

    When testing the code I have got an error


    Sub Test()
    Astr = Split(Cells(1, Along).Address, "$")
    MsgBox Astr
    End Sub
  12. Replies
    1
    Views
    4,785

    I have encountered this bug User-defined type...

    I have encountered this bug
    User-defined type not defined

    at this line

    Private Sub IESTATUS(ByVal IE As InternetExplorer


    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
Results 1 to 12 of 12