I am having trouble figuring out how to paste an Excel Worksheet into Outlook. I am using '07 versions for both. I currently have code that when a button is selected, Outlook opens and has form text that I have entered. I just cant figure out how to get the worksheet pasted into the body of the email after this text. Here is what I have:
View 3 RepliesI'm currently using some pretty extensive conditional formatting macros on a worksheet (this functionality is working fine when data is directly entered into the sheet). But when i paste data from another worksheet into my "formatted" sheet, the formatting does not take affect. is there any way to "refresh" a macro?
View 2 Replies View RelatedIm searching for a way to send a .PDF of 1 worksheet via outlook. I have seached the forum, and have tried to follow Ron De Bruin's web page on how to do this but fall short. Im currently using his code to send the excel sheet.
View 3 Replies View RelatedI have been trying to use VB to send contacts from contacts.xls to outlook. I have some code from MSDN that shows me how to put in ONE contact (which is already declared in the code). Well I was thinking of writing something to take a worksheet that has x number of contacts and automating x number of contacts. The problem is, I am familiar with using SQL to pull records, but I was thinking there was something easier like importing the excel namespace. So I decided to try it out this way and found this little tidbit of code which is:
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = New Excel.Application
xlApp.Visible = False
xlBook = xlApp.Workbooks.Open("contacts.xls")
xlSheet = xlBook.Worksheets(1)
'READ FILE HERE
Dim pXLRange As Object
pXLRange = xlSheet.UsedRange
Dim i = 0
Dim j = 0
For i = 1 To UBound(pXLRange, 1)
For j = 1 To UBound(pXLRange, 2)
Debug.Print(pXLRange(i, j))
Next
Next
It gives me this error for the FOR i=1 to UBound line:
Unable to cast COM object of type 'System.__ComObject' to class type 'System. Array'. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface.
here's the namespaces i have imported:
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Reflection
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel
I want to setup an excel spreadsheet that will list employees and when exams were completed on them. The exams need to be completed once a year. I want the excel spreadsheet to send out an email to their corresponding supervisors when is within one month or so of an exam needing to be completed so their exam can be scheduled accordingly.
I have searched this forum and read through some of the other posts regarding exporting data from excel to outlook. This seems like what I need to do but I wanted to see if anyone has an advice on what way is better than the other?
Also, if excel is setup to push the data to outlook, does the excel file need to be open? In other words if Jimmy comes within one month of his exam but no one opens the excel file will it send out the email to outlook?
Is it a better option/ or possibility to have Outlook pull/check to see if the condition exists where an employee is within a month of his exam and then let the supervisor know?
I have the following:
[C1] My dynamic email subject
[C5:C10] My dynamic email body message
My recipient is always same "burak@burak.com"
Now, I need a VBA code, that will automatically open a blank new outlook email window fill the fixed recepient fill the dynamic subject and body of the message from a range in my workbook.
Then just stop there so that I can attach some different files each time and send myself.
I find out a code to create a PDF (with opening the Save As dialog box) from an active worksheet, but I can't find out how to send this PDF by e-mail (Outlook). The code is working till the words 'Set OutApp'.
Just what I want is to send the active worksheet as PDF (as attachment) by email (Outlook). Here the present code.
Code:
Sub SendPDF()
'
' SendPDF Macro
'
Dim OutApp As Object
Dim OutMail As Object
Dim v As Variant
v = Application.GetSaveAsFilename(Range("E2").Value, "PDF Files (*.pdf), *.pdf")
[code]....
macro that will parse data that has been pasted in to Excel from a text document. Once the macro is executed the pasted data will be sent to a separate spreadsheet and parsed horizontally with the data residing in is respective cell.
Here is an example of my data from text:
FIRST: Frank
MIDDLE: N.
LAST: Stien
ADDRESS: APT14
STREET: Halloween
ZIP CODE: 123456
CITY: Scaryville
STATE: Scary Ya
COUNTRY: Transilvania
COMMENT: N/A
Here is an example of my desired results:
A2:Frank, B2:N, C2:Stien, D2:APT14, E2:Halloween, F2:123456, G2:Scaryville, H2:ScaryYa, I2: Transilvania, J2:N/A
The data is always pasted in A2 on the first sheet, and varies somewhat in length but the format is always the same.
I Have several images on Sheet 1, I can copy the needed Images to sheet 2 as needed.
Once the image is pasted to sheet2 how do I assign it to a shape variable so that I can position it as desired.
I do not want to have to use Sheet2.(Range("B2").activate or similar
I'm looking to use
Shp.top = 25
Shp.left =15
Code:
Sub Macro1()
Dim Shp As Shape
Sheet1.Shapes("Picture 1").Copy
Sheet2.Paste
'To set the shape variable to the shape on sheet2
Set Shp = "WHAT GOES HERE"
Shp.Top = 25
Shp.Left = 15
End Sub
After pasting a Range and while the Range is still selected, I would like to Name it. May I have some assistance with the proper statement?
View 9 Replies View RelatedI am trying to enter 00:00:00.031, but it is changing it to 00:00.0. Can someone please tell me how to stop it from doing that?
View 9 Replies View RelatedI am starting a data sheet that I will be pasting from the internet into my data sheet daily, the problem I have is that the content data is pasting with blank rows between data and also there is one piece of data that is situated on the row below which i need moving to the end of the main data row, the idea is to have single data rows with no blank rows.
I have attached an example sheet showing the layout it repeats with only the amount of data that changes.
I have colored the data as follows:
Grey= Blank Rows
Yellow= Data Move to end of main row
Green= Unwanted Data
I have a worksheet that you can enter in
Forename, Surname, Area, D.O.B
This has a macro assigned that copies the data and pastes it into another worksheet at the next available row.
Now this works fine, but I want to be able to identify if the data already exists in the other worksheet then prevent it from being pasted and give an error message that the person already exists in the database.
Is this possible?
If I use the code below to retrieve a recordset from SQL Server and the drop it into the activeworkbook, using CopyFromRecordset and a sheet where I have just deleted all the columns - thus leaving a default sheet (I think)....everything works fine
'Drop in field name and data
counter = 1
For Each fld In SQLRS.Fields
Sheet1.Cells(1, counter) = fld.Name
counter = counter + 1
Next
Sheet1.Range("A2").CopyFromRecordset SQLRS
However, if I change it to paste into a brand new work book as in the code below....all the dates are pasted in as Integers...
'Create new book and sheet
Set NewBook = Application.Workbooks.Add
Set NewSheet = NewBook.Worksheets.Add
NewSheet.Name = "Sanofi Renewals"
I've used this same process previously and not had any problems what so ever when dates where pasted....
how to sort data pasted from word into specific columns e.g.
I paste: 1,2,3,4,8 into the ref row, and it poulates as such, leaving out the columns for which there is no corresponding value:
Competency: 1------2--------3-------4------5------6------7------8
Ref: -------WR1----WR1----WR1-----------WR5------------------WR1
I have rxd a pdf file that I need to manipulate I have copied the data into excel and now need it in individual cells:? The data looks like this: 02392950067 19/12/2008 14:33:35 02392950053 Portsmouth 1.9 £0.03. this is:
phone number calling | date called | time called | number called | duration in minutes | cost of call. If you're out there I'd be more than happy to hear from you. the cells to cut the data into will be formatted to take the data in the correct form. 02392950067 19/12/2008 14:33:35 02392950053 Portsmouth 1.9 £0.03
phone number calling | date called | time called | number called | duration in minutes | cost of call.
Whenever I copy and paste dates from the internet I can't get Excel to recognize the info as dates, thus making it impossible to sort by date. It doesn't matter which site I use, I have the problem with all of them.
[URL]
Using any of the links above, how I can paste those dates and get Excel to sort the date?
I have a thoroughly outdated system to keep a log of call centre stats. In order to facilitate a marginally easier workflow, I have rearranged a few things so that a user simply has to copy and paste data from reports into the worksheet.
The worksheet is set up with all the number formats like time and percentage which are extremely important in totaling and averaging hours and availabilities, however the pasted data doesn't match the destination format and it therefore affects the total.
I have tried many different special pasting options to no avail.
The only way i seem to be able to do it is to go into each line and retype my percentages (as 100 becomes 10000% ) and click the tick next to the formula bar so 00:00:16 is calculated as a quantity of time instead of text. With 30 people and 15 stats each day that exercise becomes a little bit tedious and counterproductive.
I have this code going for a sheet i've been working on, but thers only one thing I can't figure out how to do.
I want it to take the text that was entered in the "Grid Date" input box and stick it in the bottom 10 cells (plus one space). IE - if A14 is the last used cell, paste it into A16 through A26.
I have a powerpoint presentation which has a bunch of Excel charts embedded as Microsoft Office Graphic Objects, but I don't have access to the source data (plus the links are broken).
how to get the underlying data. I vaguely recall once doing this with some vba that I had found somewhere the net, but I don't have the code anymore.
I have some code that works within Excel however:
Code:
Sub GetChartValues()
' this macro will recover the data from a disconnected Microsoft Graphic Object (such as we used to paste
' into PowerPoint). You will need to insert a Worksheet entitled "ChartData" to store the values.
Dim NumberOfRows As Integer
[code].....
how to make this code work in PowerPoint?
The following code inserts the text "ep" into col. F when an entry (formatted text colour green) is made in the corresponding row of col. B:
VB:
Private Sub Worksheet_Change(ByVal target As Range)
' Insert "ep" in Type column and set font colour
If target.Column = 2 And target.Font.ColorIndex = 10 Then
With Cells(target.Row, "E")
.Value = "ep"
[Code]...
However, more often than not new entries are made by pasting from another sheet, and usually more than one row. How can the code be modified to count the number of rows in the pasted selection and place "ep" in each corresponding row of col. F (instead of just the top row)?
I've been trying Selection.Rows.Count but keep getting the dreaded error message, "Object doesn't support this property or method".
I have to enter patient's SSN's into my database. The fastest and most error free way to do this is simply copy the SSN from the electronic chart and paste into the appropriate cell in the database. I don't want duplicates. So, I need the database to alert me when I paste in a duplicate SSN. I know you can set data validation to do prohibit duplicates by using a formula. In the attached spreadsheet the SSN is in column B, so:
View 3 Replies View Relatedi have put a small extract from list of 50000 values. I have Figures which are pasted as values on top and on A column but they do not agree unless i F2+enter on each figure on Column A that would mean 50000+ enteries.. i have tried copying column A and row 1 and pasting it as value but still no change. Row 1 header figures are typed manually.
View 2 Replies View RelatedI have a data in which I need to do a GROUPWISE RANKING and then to find Top 5 of Each group, which is to be pasted in next sheet.
I have generated a matrix in excel through iteration (I'm trying to calculate a dinamic covariance matrix between 50 values) which looks like this:.......
A 50x50 matrix. What I have generated in each cell is not the formula, but the text of the formula. Somehow Excel has a valid formula in a specific cell, but "doesn't know yet" that within the cell there is no longer a text. So, to make every formula run, I have to go cell by cell pressing F2, then enter, 2.500 times. Notice that in each formula I don't have something like this:
+"+COVAR(Rends!C4:AB4;Rends!C4:AB4)" or
'+COVAR(Rends!C4:AB4;Rends!C4:AB4)
but the valid formula: +COVAR(Rends!C4:AB4;Rends!C4:AB4)
I have a set of 50 or so large worksheets that need updating each month. My problem is the figures I need to update these sheets with are formatted differently (different alignment of blank rows) to the destination.
I'll try to illustrate, this is the sheet I need to add data to on a monthly basis... (you'll need to imagine the numbers in column form as I'm no HTML expert)
May June July
23 34 45
65 34 45
34 23 23
[Code] .......
The blank rows need to remain uniform. When I need to paste in August's data the blank rows in the raw data extract are aligned differently and it's a laborious job deleting and inserting cells to get them to align (the sheet has hundreds of rows).
I'm capable enough of recording a macro to replicate the delting/inserting of cells BUT of the 50 or so sheets I need to update there's no uniformity of where the blank rows occur. To further exacerbate, there's no uniformity over where the blank rows occur in the data that needs to be pasted in, either. The blank rows already in the worksheets HAVE to remain and can't be deleted or altered.
Using 2010 - When I paste a chart I can initially retain the format of chart bar colours (Paste Special - source formatting). But when I select a new data source for the chart the formatting of the colours is not retained.
View 1 Replies View RelatedBelow is code I have attempted. I am learning VBA and have gathered this code from the internet and this forum. I have data that is in columns B to E and from row 7 down. I want this VBA code to run when data is copied/pasted in these cells. Where the last values stop will vary so I just want to be sure this code is executed after all the data is pasted in these cells. The data will be pasted at one time. When the user removes the data from these cells, I do not want the code to run.
Private Sub Worksheet_Change(ByVal Target As Range)
'Do nothing if less than four cells are changed or content deleted
If Target.Cells.Count < 4 Or IsEmpty(Target) Then Exit Sub
[Code].....
The macro firstly formats the data that is pasted into it from an access database, then it does some calculations to determine when 10 working days from a specific date is, and when 20 working days from the date is (these go in new columns at the end of the data). The macro will also add new columns which say "Not resolved" if there is no date in the Resolution column, "Yes" in the "10 working days met?" column if the condition is met and the same for 20 workings days in a different column. As the colouring etc takes a long time I really wanted to add as conditional formatting to the macro!
how to attach a spreadsheet here then I can show you what the outcome we want is. A point to note is that there is not a set number of rows each time we do this, and I don't just want 1 cell to be coloured - I want to specify which cells in the row are coloured depending on the results in another cell on that row.
I'm trying to use Word mail merge with Excel to create mail labels and letters for each person on the list. For example,
Johnson, Michael
7391 Wilson Street
Van Nuys, CA 91405
I want to create a mailing label for this person. If possible, I'd like to make the top line of the address "Dr. Michael Johnson," however the format that I'm copying from is last name, first name. And I also want to want to create a letter that starts with "Dear Dr. Last name," such as "Dear Dr. Johnson." This is the website that I want to copy the addresses from:
Doctors in Los Angeles, CA | Primary Care Physicians and Specialists
I have done my homework, but I don't know how to properly paste the addresses into Excel and then use Word to create the labels and letter. I have tried many ways, but I have been unsuccessful.