ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Runtime error 13-- Setting a variant Range?! (https://www.excelbanter.com/excel-programming/372630-runtime-error-13-setting-variant-range.html)

[email protected]

Runtime error 13-- Setting a variant Range?!
 
Why doesn't this work?



Dim MyRange as Variant

Set MyRange = ("C" &(Me.txtItem_Number.Value) & ":G"
&((Me.txtItem_Number.Value)+ 2))

Range(MyRange).ClearContents




I also tried Dim MyRange as Range. How can I work around this when I
need to clear a different area every time the macro runs?


[email protected]

Runtime error 13-- Setting a variant Range?!
 
ANSWERED MY OWN QUESTION:

Dim MyRange as Variant
MyRange = ("C" &(Me.txtItem_Number.Value) & ":G"
&((Me.txtItem_Number.Value)+ 2))

Range(MyRange).Clear Contents

That Set thing always gets me! erg!

:)



wrote:
Why doesn't this work?



Dim MyRange as Variant

Set MyRange = ("C" &(Me.txtItem_Number.Value) & ":G"
&((Me.txtItem_Number.Value)+ 2))

Range(MyRange).ClearContents




I also tried Dim MyRange as Range. How can I work around this when I
need to clear a different area every time the macro runs?



Jim Thomlinson

Runtime error 13-- Setting a variant Range?!
 
Try something like this...

Dim MyRange as Range

with Me.txtItem_Number
Set MyRange = Activesheet.Range("C" & .Value & ":G" & .Value + 2)
end with
MyRange.ClearContents
--
HTH...

Jim Thomlinson


" wrote:

Why doesn't this work?



Dim MyRange as Variant

Set MyRange = ("C" &(Me.txtItem_Number.Value) & ":G"
&((Me.txtItem_Number.Value)+ 2))

Range(MyRange).ClearContents




I also tried Dim MyRange as Range. How can I work around this when I
need to clear a different area every time the macro runs?



Bob Phillips

Runtime error 13-- Setting a variant Range?!
 
Dim MyRange As String

MyRange = ("C" & (Me.txtItem_Number.Value) & ":G" &
((Me.txtItem_Number.Value) + 2))

Range(MyRange).ClearContents


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
Why doesn't this work?



Dim MyRange as Variant

Set MyRange = ("C" &(Me.txtItem_Number.Value) & ":G"
&((Me.txtItem_Number.Value)+ 2))

Range(MyRange).ClearContents




I also tried Dim MyRange as Range. How can I work around this when I
need to clear a different area every time the macro runs?





All times are GMT +1. The time now is 02:03 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com