Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get info from first cell in row.
I have created a macro to generate an automated email notification when a
command button is clicked, which uses data from the active cell and cells near it using ActiveCell(1,x) where x is the number of cells to the right of the active cell i want information from. The problem is, It only works properly if the first cell in the row is the Active Cell. I am trying to make it a little more idiot proof. (Less computer literate personnel may be using this spreadsheet) Is there a way to either move the active cell to the beginning of the row when the macro starts, or referance the cells directly in the current row? (ie, get info from cells in column A, B, and E of current row) Here is the code I have now: Sub InitialNotification() ' Is working in Office 2000-2007 ' Generates an initial notification email Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim FlightDate As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = _ Chr(13) & _ Chr(13) & _ ActiveCell(1, 2) & ", " & Chr(13) & _ Chr(13) & _ "An EPR must be written for " & ActiveCell & ". " & Chr(13) & _ "Suspense dates are listed below. " & Chr(13) & _ Chr(13) & _ "Flight: " & ActiveCell(1, 3) & Chr(13) & _ "Squadron: " & ActiveCell(1, 4) & Chr(13) & _ "Closeout: " & ActiveCell(1, 5) & Chr(13) & _ Chr(13) & _ "Link: <file://S:\CCS\TSgt & Below EPRs\MXMW" & Chr(13) & _ Chr(13) & _ Chr(13) SigString = "C:\Documents and Settings\" & Environ("username") & _ "\Application Data\Microsoft\Signatures\FOUO.txt" 'Replace FOUO with the name of your 'signature to make this work If Dir(SigString) < "" Then Signature = GetBoiler(SigString) Else Signature = "" End If With OutMail .To = "" .CC = "" .BCC = "" .Subject = "EPR- " & ActiveCell .Body = strbody & Signature .Display End With Set OutMail = Nothing Set OutApp = Nothing End Sub This function is also included: Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika ' This is used by all three email reminder generating Subs Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Move cell info and info in range of cells on new entry | Excel Discussion (Misc queries) | |||
Copy info into empty cells below info, until finds cell with new d | Excel Discussion (Misc queries) | |||
Move cell info and info in neighboring cell on new entry | Excel Discussion (Misc queries) | |||
Link info in one cell to info in several cells in another column (like a database) | Excel Discussion (Misc queries) | |||
how do i get excel to see info in one cell, look at info in anoth. | Excel Discussion (Misc queries) |