Search results

Welcome buddy!

Hi, It seems a Microsoft office update issue which corrupted the forms2.0 library. Pls check this. https://support.microsoft.com/en-in/help/3025036/cannot-insert-object-error-in-an-activex-custom-office-solution-after

Hi, Not always smaller is memory efficient. I think both will slow down the process for such a big range. You can check the performance in a copy file. I would suggest VBA for such big tasks.

Agreed! And we always play in blind due to his two negative approach. 1. Never shared a valid sample file. 2. Always hook few lines of code and asked.

This is the cause of the same. Uncheck them. What is oins , Is it available there! Check in debug mode...

I have uploaded the same in very 1st post.

As Narayn sated! When you get the subjected error means sharing a two line of code will not resolve. Meanwhile check any missing ref is there! How to Check : https://liberty.service-now.com/kb_view_customer.do?sysparm_article=KB0012541

What's the logic behind Col H & I.

Can we have a sample file. You may share cloud link as well as email me & i will upload it here. imdkbj at outlook dot com

Did u notice the spelling mistake. Dim osStatussheetOBJ As Object vs Set osStatussheetOB = Nothing

Too good buddy! 1/17

Would u pls share the sample data so that we would offer better ways.

=right(rept(x,14)&a1,14) Same as basco, just little sorter. Replace x with your choice char.

Function Split1(orng as range, optional del as string="-")as string Split1 = split(orng.value, del)(0) End function

The straight answer for the no response - You have failed to attract the attention due to unclear query & missing sample. Will you pls share the sample worksheet with manual approach as well as snippet of the folder.

Is this... Paste in J2 > Copy Down =IF(VLOOKUP(I2,$B$1:$E$79,4,0)=LOOKUP(,-1/(I2=$B$1:$B$79),$E$1:$E$79),"INCOMPLETE","")

Congrats & Keep the momentum @Hui with your passion.

Add a new sheet in that workbook & see what happened. That worksheet might locked. Still issue, can we have the same for investigation.

It might help you. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <!-- **************************************************************************--> <!-- ****Disable 'Exit Excel' and 'Excel Options' on the Office Button menu****--> <!--...

As you already have new post for the same so i am locking it. https://chandoo.org/forum/threads/how-to-copy-partial-e-mail-body-in-excel.37075

Set myNamespace = Application.Session

I might missed the early cells of current region to keep a note of the what tremendous job done by NARAYANK991 and i thought just 'Thanks' will not make out of stake towards his valuable contribution to the forum. @r1c1 - You might have a thought for a surprise to him on behalf of all forum...

Are you looking something like this! Sub ForaDraftEmail() Dim myNamespace As NameSpace, myFolder As Folder, myItem As MailItem Dim strBody As String, strMsg As String, varBody As Variant Dim iFrom As Integer Dim iSent As Integer Dim iTo As Integer Dim iCc As Integer Dim iBcc As Integer Dim...

Check this. In ThisOutlookSession... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strCheck As String Cancel = True On Error GoTo xEnd strCheck = CheckAttachmentPassword(Item) If Len(strCheck) > 0 Then If strCheck <> "ERROR" Then MsgBox "Following...

Create an online survey with Excel like as Google forms... https://wmfexcel.com/2018/01/14/excel-online-survey-never-heard-about-that/ The basic difference is that- Google forms allowed addin & File upload also introduced.