Prev: How do I filter the cells based in Fill color?
Next: Vlookup with corresponding two data (blank and non blnk)
From: Dan Wood on 28 Apr 2010 03:11
I had alot of help yesterday from Jacob with the following macro, but am
getting a 'run time error 13' when trying to run the macro, and i cannot see
Any help much appreciated
Dim objOL As Object, objApp As Object, lngRow As Long
Set objOL = CreateObject("Outlook.Application")
For lngRow = 9 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("E" & lngRow) = "" Then
Set objApp = objOL.CreateItem(1)
..Subject = "Change Password for system" & Range("A" & lngRow)
..Start = Range("B" & lngRow)
..ReminderPlaySound = True
Range("E" & lngRow) = "Done"
Set objOL = Nothing
From: Dan Wood on 28 Apr 2010 03:20
Please ignore, i have worked it out.
From: Jacob Skaria on 28 Apr 2010 03:23
Check your other post.
I dont see any reason why that should give an error.
Jacob (MVP - Excel)
"Dan Wood" wrote:
> Please ignore, i have worked it out.
From: Dan Wood on 28 Apr 2010 03:27
I do have another question though.
Is there a way to automatically clear the colum 'E' if something in colom
'C' is changed?
From: Dan Wood on 28 Apr 2010 03:32
Sorry i was being stupid again like yesterday! I simply had to change the
line .Start = Range("B" & lngRow) to the correct column!