$$Excel-Macros$$ Macro Modification
Hi Guys, Attached is a spreadsheet and macro that does some web-scraping of individual web pages.. I need two modifications on this macro that I do not know how to do as I have little experience. * Currently the macro will stop after it encounters about 32700 rows. I would like it to run to a maximum of 1 million rows if needed. * I would like it to automatically save after every 3 rows - then continue. Thank you. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. TEST20150619-07.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: $$Excel-Macros$$ Re: Introduce Yourself !!
Hi Ayush sir, Thanks for creating the forum. Our group helps me alot and also I help some time. Im working as a PMO in chennai in one of the MNC. " http://www.excel-easy.com/"; is great website which helps with sample file. I request excel beginner to try on that. Thanks again. Regards, Ganesh N On Fri, Jun 19, 2015 at 6:49 PM, Mustapha LMIDMANI < lmidmani.musta...@gmail.com> wrote: > Hello All, > > I'm Mustapha from Morocco. I'm beginer in VBA, and I want to learn and > share my knowledge whith you. > > LMIDMANI Mustapha > Product engineer > lmidmani.musta...@gmail.com > > Le vendredi 8 juin 2012 20:21:59 UTC+1, Ayush Jain a écrit : >> >> Hey all new and current posters, >> >> Welcome to excel group,one of the largest online community of excel Fans! >> >> I hope you enjoy your time here & find this forum to be a friendly and >> knowledgeable community. Please feel free to post a small introduction, a >> friendly hello or tell us a bit about yourself. Why not tell us where are >> you from, what you do, what your interests are, how old you are, which is >> your favourite excel site or blog is or anything else that comes to mind! >> >> Thanks for your time >> Ayush Jain >> Group Manager >> Microsoft MVP >> > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ Re: Introduce Yourself !!
Hello All, I'm Mustapha from Morocco. I'm beginer in VBA, and I want to learn and share my knowledge whith you. LMIDMANI Mustapha Product engineer lmidmani.musta...@gmail.com Le vendredi 8 juin 2012 20:21:59 UTC+1, Ayush Jain a écrit : > > Hey all new and current posters, > > Welcome to excel group,one of the largest online community of excel Fans! > > I hope you enjoy your time here & find this forum to be a friendly and > knowledgeable community. Please feel free to post a small introduction, a > friendly hello or tell us a bit about yourself. Why not tell us where are > you from, what you do, what your interests are, how old you are, which is > your favourite excel site or blog is or anything else that comes to mind! > > Thanks for your time > Ayush Jain > Group Manager > Microsoft MVP > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ Re: How to extract excel attachment from outlook emails?
Simply first get all the attachments(ALL) of specified outlook folder into your destination folder, then you can easily compiled the xlsx files into one workbook. you can easliy find a macro to merge all xlsx file reside in folder to one workbook. if you don't have i will share the same. Regards, MandeepBaluja Learningzmypassion. https://www.facebook.com/groups/825221420889809/ https://www.linkedin.com/profile/view?id=312532939 (Macro no 1 )Run the below code first. Sub GetAttachments() Dim ns As Namespace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set ns = GetNamespace("MAPI") Set Inbox = ns.GetDefaultFolder(olFolderInbox).Folders("Myfolder") i = 0 'If you haven't programmed Outlook before some terms here will be unfamiliar. I'll explain what these variables are going to be used for... 'The NameSpace is the object that gives you access to all Outlook's folders. In Outlook there is only one and it is called "MAPI" which is an acronym for Messaging Application Programming Interface. 'We are going to be referring to a mail folder (a MAPIFolder object) which we have given the name Inbox but the macro won't know which actual folder that is until we tell it by giving the variable a value in the next step. 'We will be using Atmt to refer to the attachment objects we are looking for. 'The FileName variable is a text string that will be used to create a name and save path for each attachment as it is saved. 'The integer variable i will be used as a counter to log the progress of the macro. If Inbox.Items.Count = 0 Then MsgBox "There are no messages in the Inbox.", vbInformation, _ "Nothing Found" Exit Sub End If For Each Item In Inbox.Items For Each Atmt In Item.Attachments FileName = "C:\Users\Mandeep.baluja\Desktop\New folder\" & Atmt.FileName Atmt.SaveAsFile FileName i = i + 1 Next Atmt Next Item GetAttachments_exit: Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Exit Sub End Sub -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ How to extract excel attachment from outlook emails?
I am writing to seek some help in creating a outlook macro, which is able extract all xls attachment files into one excel workbook (save each attachment in individual worksheet) from specific outlook folder called ‘data’, which is sub-folder under the Inbox folder. I manage to find the following code for excel attachment extraction, but currently struggling to get it to work. Sub GetAttachments() On Error Resume Next 'create the folder if it doesnt exists: Dim fso, ttxtfile, txtfile, WheretosaveFolder Dim objFolders As Object Set objFolders = CreateObject("WScript.Shell").SpecialFolders 'MsgBox objFolders("mydocuments") ttxtfile = objFolders("mydocuments") Set fso = CreateObject("Scripting.FileSystemObject") Set txtfile = fso.CreateFolder(ttxtfile & "\Email Attachments") Set fso = Nothing WheretosaveFolder = ttxtfile & "\Email Attachments" On Error GoTo GetAttachments_err ' Declare variables Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set ns = GetNamespace("MAPI") 'Set Inbox = ns.GetDefaultFolder(olFolderInbox) ' added the option to select whic folder to export Set Inbox = ns.PickFolder 'to handle if the use cancalled folder selection If Inbox Is Nothing Then MsgBox "You need to select a folder in order to save the attachments", vbCritical, _ "Export - Not Found" Exit Sub End If i = 0 ' Check Inbox for messages and exit of none found If Inbox.Items.Count = 0 Then MsgBox "There are no messages in the selected folder.", vbInformation, _ "Export - Not Found" Exit Sub End If ' Check each message for attachments For Each Item In Inbox.Items ' Save any attachments found For Each Atmt In Item.Attachments ' This path must exist! Change folder name as necessary. 'FileName = "C:\Email Attachments\" & Atmt.FileName 'if want to add a filter: 'If Right(Atmt.FileName, 3) = "xls" Then FileName = WheretosaveFolder & "\" & Atmt.FileName Atmt.SaveAsFile FileName i = i + 1 Next Atmt Next Item ' Show summary message If i > 0 Then MsgBox "There were " & i & " attached files." _ & vbCrLf & "These have been saved to the Email Attachments folder in My Documents." _ & vbCrLf & vbCrLf & "Thank you for using Liron Segev - TheTechieGuy's utility", vbInformation, "Export Complete" Else MsgBox "There were no attachments found in any mails.", vbInformation, "Export - Not Found" End If ' Clear memory GetAttachments_exit: Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Exit Sub ' Handle errors GetAttachments_err: MsgBox "An unexpected error has occurred." _ & vbCrLf & "Please note and report the following information." _ & vbCrLf & "Macro Name: GetAttachments" _ & vbCrLf & "Error Number: " & Err.Number _ & vbCrLf & "Error Description: " & Err.Description _ , vbCritical, "Error!" Resume GetAttachments_exit End Sub Any further assistance would be very much appreciated. Many thanks -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ Excel VBA - Alex Cantu contact
Hi ou Anyone have a contact for Alex Cantu re his 'smiley face' vba on Youtube Charles -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ XL formulas not auto updated
Can you pls share the file ? Regards, Ganesh N On Thu, Jun 18, 2015 at 2:10 PM, Ali Abbas wrote: > Dear All Hope you're all well...my problem is my one excel work book's > formulas not updated automatically. Again and again I do press F2+Enter on > any single cell. I have already used check formula+ calculation option + > automatic option but no any advantage of its on and off. > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ VBA parse an algebraic expression
Hi, Please find the attached file. If you have any concern let me know. Regards, Ganesh N On Thu, Jun 18, 2015 at 8:41 PM, Naftali Herscovici < tuli.herscov...@gmail.com> wrote: > Hello, > > I need to evaluate an algebraic expression. > > Example - start > > dim a,b,c as string > dim x as string > a="5cm" > b="4cm" > x="a+b*sin(30deg)" > > need to get > > c="7cm" > > Example - end > > i.e need to recognize a, b, the trigonometric function, addition operation > and perform the addition > > I know Mathematica can do that, but I need to use a parsing routine in my > code > > Thanks > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. Sample.xlsb Description: application/vnd.ms-excel.sheet.binary.macroenabled.12