Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code falling over
I am getting an error when rng.Select is inserted into the following code:
If IsEmpty(Range("b9")) Then MsgBox "No record found in B9.", vbInformation Else lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row ' + 1 If lngLastRow <= 10 Then Range("B10").Value = Range("B9").Value Else Cells(lngLastRow, "B").Value = Range("B9").Value rng.Select End If End If How should this be included without the code falling over. Thank you if you can be of help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code falling over
Replace:
rng.Select with: If rng Is Nothing Then Else rng.Select End If -- Gary''s Student - gsnu200909 "Gotroots" wrote: I am getting an error when rng.Select is inserted into the following code: If IsEmpty(Range("b9")) Then MsgBox "No record found in B9.", vbInformation Else lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row ' + 1 If lngLastRow <= 10 Then Range("B10").Value = Range("B9").Value Else Cells(lngLastRow, "B").Value = Range("B9").Value rng.Select End If End If How should this be included without the code falling over. Thank you if you can be of help. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code falling over
Where did "rng" come from? The only place I see it is in the statement you
are asking about... did you ever Set an actual range to this variable earlier in your code somewhere? If so, then you need to look there for your problem; if not, then that **is** your problem. -- Rick (MVP - Excel) "Gotroots" wrote in message ... I am getting an error when rng.Select is inserted into the following code: If IsEmpty(Range("b9")) Then MsgBox "No record found in B9.", vbInformation Else lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row ' + 1 If lngLastRow <= 10 Then Range("B10").Value = Range("B9").Value Else Cells(lngLastRow, "B").Value = Range("B9").Value rng.Select End If End If How should this be included without the code falling over. Thank you if you can be of help. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code falling over
You don't seem to be assigning (setting) anything to the variable "rng",
which presumably is an object variable ...... -- Time is just the thing that keeps everything from happening all at once "Gotroots" wrote: I am getting an error when rng.Select is inserted into the following code: If IsEmpty(Range("b9")) Then MsgBox "No record found in B9.", vbInformation Else lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row ' + 1 If lngLastRow <= 10 Then Range("B10").Value = Range("B9").Value Else Cells(lngLastRow, "B").Value = Range("B9").Value rng.Select End If End If How should this be included without the code falling over. Thank you if you can be of help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application Event Procedure <Falling Over | Excel Programming | |||
Rising / falling points Macro Help | Excel Programming | |||
why is the zero falling off a zip code in excel? | Excel Worksheet Functions | |||
Formula falling over in more than one cell | Excel Worksheet Functions | |||
Falling within a range | Excel Discussion (Misc queries) |