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)...
Type: Posts; User: KingTamo
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)...
Now it is perfect Mr. Rick
Thanks a lot for your patience and for your great code
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
...
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...
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...
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...
What about value repetition?
great function
just a little bug
I want to get rid of Ref error
Fantastic masterpiece
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
When testing the code I have got an error
Sub Test()
Astr = Split(Cells(1, Along).Address, "$")
MsgBox Astr
End Sub
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