I want to trigger excel macro TEST12.xlsm when received en email with subject title "Test", it work when the mail arrived in inbox folder, but not in subfolder.
Can anyone enlighten me or point me to the correct sub folder path? The subfolder name is "Biz Ops Report" and I am using below...
Hi all it's me again,
I'm using some code from Ron De Bruin's site to generate an email using the following code
Sub Mail_small_Text_Outlook()'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016
Dim OutApp As Object
Dim OutMail As Object...
As the title suggest, I'm trying to export Undelivered emails in Outlook to Excel (sheet1)
I found this code on the web, and I'm having a little difficulty getting it to work
Ideally I would like the data to appear in columns, a separate column for Email address etc
The Emails are in sub-folder...
I have a code which starts this:
Private Sub CommandButton1_Click()
Dim destination As Worksheet
Set destination = Worksheets("STATS")
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True...
I have the following code:
Dim wbCurrent As Workbook
Dim wsCHINO As Worksheet
Dim wsSTOCKTON As Worksheet
Dim wsFLM As Worksheet
Dim wsDGV As Worksheet
Dim wsAURORA As Worksheet
Dim nLastRow, i As Integer
Set wbCurrent = ActiveWorkbook
Set wsCHINO =...
Can anyone edit the snippet below to add a datestamp to the cvs filename in the format "yyyy-mm-dd hh-mm-ss"?
Many thanks in advance!
Dim tbl As ListObject
Dim csvFilePath As String
Dim fNum As Integer
I am wanting to have a outlook email address to be set based on the value of Combobox2. What i have doesn't seem to function, and i am sure it is simple but i am a little stuck. any suggestions would be great. What i have so far is:
Dim name As String
If ComboBox2.Value = "Bill" Then Set...
I have a table layout as below, it used to work with the code below until I inserted the column under “M” then replaced all 12 with the 13 you see in the code.
For i = 2 To 13
rCell.Offset(, 13).Value = Rnk & GetOrdinalSuffixForRank(Rnk)
I was thinking that will fix...
I'm trying to rank a list of values using VBA rather than a formula as the numbers will be continually changing. I'm basically trying to run the code at a set point to rank the lowest 3 numbers on the sheet and leave them set rather than recalculating with a formula.
Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the previous day's data. To make it more complicated each day's file has two tabs that i need to import but I'm assuming the code below will do this...
I need pivot tables to refresh automatically once a user enters new source data. I have my workbook set up on monthly tabs and the users can enter data below row 12 on each of these tabs.
I have set up the workbook with dashboard/display tabs at the front and the monthly data sheets at the...
I have a cell on sheet A that employs VLOOKUP from data from sheet B. The cells on sheet B have a date or is blank.
When it is blank the result is 0-Jan-00. How can I set it up so I get a blank like the other page?
I have the below code to copy data from one workbook to another but keep getting a subscript out of range error on the line...
Set wb = Workbooks("2019_-_Couriersheet_-_copy.xlsx").Worksheets("Triage2")
Both workbooks are open and I've checked the file name is correct etc. What could the...
I have the following code and all is working ok, apart from it is no longer adding my set signature in Outlook . If possible could you have a look and amend as required.
Dim OutApp As Object, OutMail As Object
Dim fname As String, sendto As String...
Anyone able to assist a newbie on VBA coding, please.
I have learned some great stuff reading comments and watching online videos, etc.
But, I have patched together some code from various excel experts to:
1. save the file and then email as an excel attachment (.xlsx)
Hello, I want to copy 3 worksheets to a new workbook, but exclude a range from one of the worksheets (and any buttons on the worksheet as well. I want to exclude J1:U2 on "Metric Report" Is there a way to do this?
this is what I am using right now
i am trying to automate the creating and saving of invoices as a pdf.
so far i have everything working up until it brings up the pdf preview and then i cant get it to work from there.
i have done heaps of searching and tried lots of different code but to be honest its a bit out of my...
I have my format control to change by week stating for 2019 and it runs to week 52 but i want that to change in 2020 to start week 1 thru week 52.
Control set to
Minimum Value: 44 i started with the data for week 44
Maximum Value: 52
Incremental Change: 1
Page Change: 3
Cell Link: Calculation!$A$2
I recorded a macro by going to a PivotTable, and in the dropdown for the field i was interested in, i checked "Select all)" and then pressed OK.
What VBA recorded was this:
.PivotItems("excl").Visible = True...
Respected gurus, experts and MVPs,
I have written the following code for the pivot table and it is generating pi.Visible <Type Mismatch> error.
Dim lastrow As Long, endrow As Long
Dim Psheet As Worksheet, Dsheet As Worksheet
Dim Pcache As PivotCache, Ptable As...