ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   selection in VBA (https://www.excelbanter.com/excel-discussion-misc-queries/73128-selection-vba.html)

pinmaster

selection in VBA
 

Hi

Say I have 2 cells with values
BJ4 = 31
BJ5 = 3

how would I use those values in vba to select a range starting from a
specific cell (C4), in this case 31 rows tall by 3 columns wide then
copy and paste as values.

TIA

Jean-Guy


--
pinmaster
------------------------------------------------------------------------
pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261
View this thread: http://www.excelforum.com/showthread...hreadid=515148


Dave Peterson

selection in VBA
 


with activesheet
with .range("C4").resize(.range("Bj4").value,.range("Bj 5").value)
.copy
.pastespecial paste:=xlpastevalues
end with
end with

pinmaster wrote:

Hi

Say I have 2 cells with values
BJ4 = 31
BJ5 = 3

how would I use those values in vba to select a range starting from a
specific cell (C4), in this case 31 rows tall by 3 columns wide then
copy and paste as values.

TIA

Jean-Guy

--
pinmaster
------------------------------------------------------------------------
pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261
View this thread: http://www.excelforum.com/showthread...hreadid=515148


--

Dave Peterson

pinmaster

selection in VBA
 

Hi Dave, thanks for the help.
I just came up with this:

Dim r As Integer
Dim c As Integer
r = Range("BJ3").Value
c = Range("BJ4").Value
Range("C4").Select
Range(Selection, ActiveCell.Offset(r - 1, c - 1)).Select

but I think I will go with what you gave me...thanks again!

Regards

Jean-Guy


--
pinmaster
------------------------------------------------------------------------
pinmaster's Profile: http://www.excelforum.com/member.php...fo&userid=6261
View this thread: http://www.excelforum.com/showthread...hreadid=515148



All times are GMT +1. The time now is 04:03 PM.

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