Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Range R Is Nothing Exit otherwise Copy Another Range
The subject pretty much says it all, code example as follows.
Should be ultimately simple. But it doesn't work. An "else without if" error appears. Where am I going wrong?? Thanx, - Mike Sub APUcopy() Dim r As Range Set r = Range("a28") If r Is Nothing Then Exit Sub Else Range("I7:I26").Copy Destination:=("i28.i47") End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Range R Is Nothing Exit otherwise Copy Another Range
On Wed, 24 Dec 2008 14:40:00 -0800, MikeF
wrote: The subject pretty much says it all, code example as follows. Should be ultimately simple. But it doesn't work. An "else without if" error appears. Where am I going wrong?? Thanx, - Mike Sub APUcopy() Dim r As Range Set r = Range("a28") If r Is Nothing Then Exit Sub Else Range("I7:I26").Copy Destination:=("i28.i47") End If End Sub Try with an new line after Then so that Exit Sub is on a separate line. Hope this helps / Lars-Åke |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Range R Is Nothing Exit otherwise Copy Another Range
To correct yours
Sub APUcopy() Dim r As Range Set r = Range("a28") If Not r Is Nothing Then Else Range("I7:I26").Copy Destination:=Range("i28.i47") End If End Sub I would have done it this way Sub APUcopy1() Dim r As Range Set r = Range("a28") If Len(Application.Trim(r)) 0 Then' really blank Range("I7:I26").Copy Range("i28") End If End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "MikeF" wrote in message ... The subject pretty much says it all, code example as follows. Should be ultimately simple. But it doesn't work. An "else without if" error appears. Where am I going wrong?? Thanx, - Mike Sub APUcopy() Dim r As Range Set r = Range("a28") If r Is Nothing Then Exit Sub Else Range("I7:I26").Copy Destination:=("i28.i47") End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy Range to new Range and keep DATE format?? | Excel Programming | |||
RANGE EXCEL copy cell that meets criteria in a range | Excel Worksheet Functions | |||
How do I edit a selected range then copy the range into an new sheet??? | Excel Programming | |||
Macro to copy a specified range to a variable range | Excel Programming | |||
Create/copy combo boxes in one range if condition is met in a different range | Excel Programming |