Hi bkBaller,
We need more info here enabling us to decide the most appropiated approach
Hi bkBaller,
We need more info here enabling us to decide the most appropiated approach
Hi again,
Since You´re able to open up XL without any specific workbook You may check that the field for the alternative startupfolder is empty.
Tools | Options | Tab General | Clear the field "At startup open all files in".
Can You recall if You recently have updated some software or installed new software?
Hi Ash,
No consideration is taken from my side about the CGI-based e-mailgenerating software You use.
I only discuss from the point where the e-mails arrives into an e-mailclient Inbox and how to handle them from that point. OK?
Quote
The first problem I have is how to take that data out of the emails and place it in XL
OK - Which e-mailclient do You use, i e in which the e-mails arrives in? MS Outlook?
Quote
....csv format attached as a file to the email...
Are the attached files saved to the drive?
(Attached to e-mails does not necessarily mean that the attached files are saved.)
----------------------------------------------------
If yes to both questions then I don't see what I'm missing in my first reply.
The mainproblem is to have the notification as a trigger to automatically read the files and import the data.
I simplified the frame-idea with a button-approach in my first reply which is supposed to trigger the process to read and import.
Hi Ash,
Before getting into code etc let me present a frameidea that might be of interest:
Create a VBA-solution that
- import all the data into XL
- clean it up (if necessary)
- add it to the chartserie
Now this can be done either in Outlook OR in XL and saved as an Add-in.
From my point of view the mainproblem/issue is how to trigger the above event.
Since it's only once per month the best way is via a button on a commandbar
Hi smozgur
Nice to see You too here
thanks - now I know that we are, at least, two with the same idea.
Hi Labrooks,
Welcome to the board
Have You unchecked the option
File>Page Setup>Tab Sheet | "Black & White"?
Hey Dreamboat!
I have had no reason before and have no reason now to questioning Your level of skillness
Dreamboat - Thanks for that KB-article -
Hi Chris,
Send me an e-mail instead :lol:
Hi Ethan,
Welcome to the board
How have You assigned the Ctrl+A to the macro?
Via code or manually)
Jan,
Following procedure can be used:
Sub Send_Active_Sheet_E_Mail()
If Application.MailSystem <> xlNoMailSystem Then
ActiveSheet.Copy
With ActiveWorkbook
'For several recipients.
.SendMail _
Recipients:=Array("Frun", "Dennis", "Team 2000"), _
Subject:="Subject: Budget!"
.Close SaveChanges:=False
End With
Application.MailLogoff
Else
MsgBox "No MS-postsystem are installed.", vbInformation, _
"E-mail message"
End If
End Sub
In case of MS Outlook You may also use:
Sub Send_Active_Worksheet_MSOutlook()
'You must set a reference to the MS Outlook Library x.xx
'via Tools | Reference in the VB-editor.
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim stPath As String
Dim stName As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.Save
stPath = ActiveWorkbook.Path
stName = ActiveWorkbook.Name
ActiveWorkbook.Close
With olNewMail
With .Recipients.Add("[email protected]")
.Type = olTo
If Not .Resolve Then
MsgBox "Can´t find the recipient.", vbInformation
Exit Sub
End If
End With
.Subject = "Subject: The list"
.Body = "As per agreement."
.Attachments.Add stPath & "\" & stName, olByValue, _
1, "The List"
.Save
End With
Set olNewMail = Nothing
Set olApp = Nothing
Kill stPath & "\" & stName
Application.ScreenUpdating = False
End Sub
Hi,
Have You tried to restore the commandbar by the command:
View | Toolsbars | Customize | Tab Toolbars.
And select Worksheet Menu Bar and hit the button "Reset"?
Hi,
Can some kind visitor explain to me what "Variable Data Printing" does mean?
I have no clue at all!
Hi LAS,
With all respect to the built in worksheetsfunctions here is a User Defined Functions that will give You a solution:
Function ParentF()
Dim vaArr As Variant
vaArr = Split(ActiveWorkbook.Path, "\")
ParentF = vaArr(UBound(vaArr) - 1)
End Function
This will give the name of the subfolder that the active workbook is saved in.
You enter it like: =PARENTF()
BTW, I would use =GET.DOCUMENT(2) to get the path for the active workbook.
Hi Aroon!
Welcome to the forum
Total agree with You!
:flame: AJW
For future reference state who´s the original creator and the original URL!
Hi Chris,
ICQ's much better though :flame:
Well, it depends who we asking
and I didn´t claim anything just made my personal reference public
Oh I love the smileys here
Hi Inquiringmind,
In addition to Dreamboats and JIUK suggestions You may also try following:
Open XL without any Add-ins / Hidden workbooks:
"C:\Program Files\Microsoft
Office\Office\Excel.exe" /Automation
In case it working then You might have problem with some Add-in. Uncheck all add-ins and add them stepwise back again. Don´t forgett to restart XL between these activites.
You may also try to run XL in save-mode:
"C:\Program Files\Microsoft Office\Office\Excel.exe" /Safe
You may also consider to unregister / register excel.exe in windows-register (i e not equal to re-install just to wipe out old information)
Have You emptied the XLStart-folder? If not, give it a try.
You may also, in case of corrupted toolbars, rename all files with the extension *.xlb and the start up XL.
And finally check out following KB-article in the MSKB:
XL: How to Troubleshoot Startup Problems in Microsoft Excel
troubleshoot
Hi,
See if ofllowing formula will give You the solution:
=SUMPRODUCT((A1:A5="01")*(B1:B5<1))
Kind regards,
Dennis
Hi toologre,
Welcome to the board
One way is to use the SUMPRODUCT-function:
Let A-column consist of dates and B-column of values:
In order to get the total amount i B-column:
=SUMPRODUCT((A2:A36>=DATEVALUE(TEXT(NOW(),"DD-MM-YYYY")))*(A2:A36<=(DATEVALUE(TEXT(NOW()+30,"DD-MM-YYYY"))))*B2:B36)
In order to get the number of items in A-column that falls between the dates:
=SUMPRODUCT((A2:A36>=DATEVALUE(TEXT(NOW(),"DD-MM-YYYY")))*(A2:A36<=(DATEVALUE(TEXT(NOW()+30,"DD-MM-YYYY"))))*A2:A36)
Kind regards,
Dennis
Hi VC^3
It sound like You want to edit one of the XLAs that are shipped with XL.
Reverse engineering are only allowed if You have developed the XLA by Yourself or have the legal rights to the XLA.
The XLA´s that comes with XL are property of MS.
Kind regards,
Dennis