Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
define Range in vba using contents of a cell that is named
I'm writing a macro which will autofilter, copy and paste data
depending on values entered into certain cells e.g. cell A1, named 'lastrow', has the last row number of the available data e.g. 468 cell A2 has the last column e.g. AM cell A3 named 'mydatarange', contains a text string built using concatenate e.g. $A$1:$AM:$468 in the macro, it should run the autofilter as below (illustrated with fixed range data) Sheets("MyRawData").Select Range("A1").Select ActiveSheet.Range("$A$1:$AM:$468").AutoFilter Field:=29, Criteria1:= _ "pending" Rows("1:465").Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pending" Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False What I'm aiming for however is something like the below Sheets("MyRawData").Select Range("A1").Select ActiveSheet.Range("mydatarange").AutoFilter Field:=29, Criteria1:= _ "pending" Rows("1:" & lastrow).Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pending" Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Hoping it's just a syntax knowledge shortfall.... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
define Range in vba using contents of a cell that is named
Is this what you are looking for?
Range("A3").Name = "mydatarange" Range("mydatarange") = _ Range("$A$1:" & Range("A2").Value & Range("A1").Value) Which should come out to Range("mydatarange") = Range("A1:AM468") "Brotherharry" wrote: I'm writing a macro which will autofilter, copy and paste data depending on values entered into certain cells e.g. cell A1, named 'lastrow', has the last row number of the available data e.g. 468 cell A2 has the last column e.g. AM cell A3 named 'mydatarange', contains a text string built using concatenate e.g. $A$1:$AM:$468 in the macro, it should run the autofilter as below (illustrated with fixed range data) Sheets("MyRawData").Select Range("A1").Select ActiveSheet.Range("$A$1:$AM:$468").AutoFilter Field:=29, Criteria1:= _ "pending" Rows("1:465").Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pending" Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False What I'm aiming for however is something like the below Sheets("MyRawData").Select Range("A1").Select ActiveSheet.Range("mydatarange").AutoFilter Field:=29, Criteria1:= _ "pending" Rows("1:" & lastrow).Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pending" Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Hoping it's just a syntax knowledge shortfall.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I have a cell value define a dynamic named range? | Excel Worksheet Functions | |||
Hyperlink to Named Range Based On Cell Contents | Excel Worksheet Functions | |||
RE Define Named Range. | Excel Programming | |||
Goto a named range using the contents of the active cell | Excel Programming | |||
How to define a Named Range in VBA? | Excel Programming |