Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range as variable
Hi. I have a variable defined as below:
var3 = Cells(ActiveCell.Row, "D").Value How can I convert var3 to be (in laymans terms) ActiveCell.Row, "D" through BB xlleft So if active row is 3, var 3 might be D3:G3, if G was the last data point and H and to the right was blank. Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range as variable
Steph,
Dim Var3 As Range Dim i As Integer Set Var3 = Range(Cells(ActiveCell.Row, "D"), _ Cells(ActiveCell.Row, "D").End(xlToRight)) For i = 1 To Var3.Cells.Count MsgBox Var3(i).Value Next i HTH, Bernie MS Excel MVP "Steph" wrote in message ... Hi. I have a variable defined as below: var3 = Cells(ActiveCell.Row, "D").Value How can I convert var3 to be (in laymans terms) ActiveCell.Row, "D" through BB xlleft So if active row is 3, var 3 might be D3:G3, if G was the last data point and H and to the right was blank. Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range as variable
Steph,
Sub test() Dim last_column As Long Dim row_data As Range Dim data_cell As Range Dim var3 With ActiveSheet last_column = .Range("BB" & ActiveCell.Row).End(xlToLeft).Column Set row_data = .Range(.Cells(ActiveCell.Row, 4), .Cells(ActiveCell.Row, last_column)) row_data.Select For Each data_cell In row_data var3 = data_cell.Value Debug.Print var3 'for testing Next data_cell End With End Sub hth, Doug Glancy "Steph" wrote in message ... Hi. I have a variable defined as below: var3 = Cells(ActiveCell.Row, "D").Value How can I convert var3 to be (in laymans terms) ActiveCell.Row, "D" through BB xlleft So if active row is 3, var 3 might be D3:G3, if G was the last data point and H and to the right was blank. Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Range as variable
Steph wrote:
Hi. I have a variable defined as below: var3 = Cells(ActiveCell.Row, "D").Value How can I convert var3 to be (in laymans terms) ActiveCell.Row, "D" through BB xlleft So if active row is 3, var 3 might be D3:G3, if G was the last data point and H and to the right was blank. Thanks! addr = Cells(ActiveCell.row, "IV").End(xlToLeft).Column Set var3 = Range(Cells(ActiveCell.row, "D"), Cells(ActiveCell.row, addr)) MsgBox var3.Address Alan Beban |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Variable range in VB | Excel Discussion (Misc queries) | |||
setting a range variable equal to the value of a string variable | Excel Programming | |||
variable range: l just can't get there! | Excel Programming | |||
Variable Range | Excel Programming | |||
Problem trying to us a range variable as an array variable | Excel Programming |