read value from a cell

[Philip00]

Hi all,

I would like to ask how to refer a cell an read a value from there.

Selection.Resize(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

I want that resize number refer to a cell and read that.

For example in "BW5" cell there is a number (let's says 5)

How should i refer that

Selection.Resize("BW5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ?

Thank you so much in Advance,

 

[FormR]

Hi, try like this:

Selection.Resize(Range("BW5").Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

[Philip00]

Hi, try like this:

Selection.Resize(Range("BW5").Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Thank you so much it works.

Can you help me also to do it with active cell?

I tried something like this but it gives me error

Selection.Resize(Range(ActiveCell.Address).Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Thanks in Advance

 

[FormR]

I tried something like this but it gives me error

Selection.Resize(Range(ActiveCell.Address).Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

This is probably a little better:

Selection.Resize(ActiveCell.Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

You didn't say what the error was so it's difficult to comment directly on what might be the cause.

 

[Philip00]

This is probably a little better:

Selection.Resize(ActiveCell.Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

You didn't say what the error was so it's difficult to comment directly on what might be the cause.

Thanks but it is error again

"run-time error '1004':

Application-defined or object-defined error
"Selection.Resize(ActiveCell.Value).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove"

 

[FormR]

"run-time error '1004':

Are you sure you have a valid value in the ActiveCell?

 

[Philip00]

Are you sure you have a valid value in the ActiveCell?

No, you were right, i needed to go 46 columns right from the active cell.

Now works!

Thank you so much for the help