| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range is nothing
I have a rather complicated set of macros that creates an html email with a
pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
This is not correct
A6:f26 A6:F26 is working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ToddEZ" wrote in message ... I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
It seems to be working now. However, every other time I run the marcro it
seems to take much longer. without posting a bunch of code, do you have any ideas what would cause this type of error? "Ron de Bruin" wrote: This is not correct A6:f26 A6:F26 is working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ToddEZ" wrote in message ... I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
That can't be the problem. I make many of these upper/lower case typing
"errors" and it doesn't fail for me. Ron de Bruin wrote: This is not correct A6:f26 A6:F26 is working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ToddEZ" wrote in message ... I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
mmm
Strange A6:f26 Yesterday I not see the : in the code My eyes I think <g -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Dave Peterson" wrote in message ... That can't be the problem. I make many of these upper/lower case typing "errors" and it doesn't fail for me. Ron de Bruin wrote: This is not correct A6:f26 A6:F26 is working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ToddEZ" wrote in message ... I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
Ahhh. Now I feel better.
You may not, but I do <vbg. Ron de Bruin wrote: mmm Strange A6:f26 Yesterday I not see the : in the code My eyes I think <g -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Dave Peterson" wrote in message ... That can't be the problem. I make many of these upper/lower case typing "errors" and it doesn't fail for me. Ron de Bruin wrote: This is not correct A6:f26 A6:F26 is working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ToddEZ" wrote in message ... I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -- Dave Peterson -- Dave Peterson |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Range is nothing
Another guess, but it's based on imcomplete code...
You can only activate a worksheet that's in the active workbook. with wb1 .activate .sheets("template").activate .sheets("template").range("a1").select end with And maybe... Set rngh _ = wb1.Sheets("Template").Range("A6:f26").SpecialCell s(xlCellTypeVisible) ToddEZ wrote: I have a rather complicated set of macros that creates an html email with a pdf attachment. However I have one annoying problem with my code. Every other time I run the macro a range that I try to manipulate "is nothing." Any ideas why I would only get this error every other time I run the macro? Here is a bit of my code where the error seems to occur... WB1.Sheets("Template").Activate Range("A1").Select Dim rngh As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With On Error Resume Next 'Only the visible cells in the selection Set rngh = Sheets("Template").Range("A6:f26").SpecialCells(xl CellTypeVisible) On Error GoTo 0 If rngh Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I enter formula sum(range+range)*0.15 sumif(range=3) | Excel Discussion (Misc queries) | |||
| Excel Addin:Setting the range to the Excel.Range object range prop | Excel Worksheet Functions | |||
| Range Question / error 1004: method Range of object Worksheet has failed | Excel Programming | |||
| Range.Find returns cell outside of range when range set to single cell | Excel Programming | |||
| how to? set my range= my UDF argument (range vs. value in range) [advanced?] | Excel Programming | |||
Hybrid Mode
