Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro: Select visible cells only
Right now my macro is creating a new worksheet for each name in a range.
However, i want my macro to create only a new worksheet for each VISIBLE name in a range because I filter this list. Please help!!!! Sub name_sheets() 'will add a sheet, and name it 'for each name in column C 'from C6 down till it hits a blank row Dim Rng As Range Dim ListRng As Range Dim LRow As Long Set ListRng = Range(Range("c6"), Range("c6").End(xlDown)) For Each Rng In ListRng If Rng.Text < "" Then With Worksheets .Add(after:=.Item(.Count)).Name = Rng.Text End With End If Next Rng End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro: Select visible cells only
Set ListRng = Range(Range("c6"),
Range("c6").End(xlDown)).SpecialCells(xlCellTypeVi sible) Regards Trevor "David T" wrote in message ... Right now my macro is creating a new worksheet for each name in a range. However, i want my macro to create only a new worksheet for each VISIBLE name in a range because I filter this list. Please help!!!! Sub name_sheets() 'will add a sheet, and name it 'for each name in column C 'from C6 down till it hits a blank row Dim Rng As Range Dim ListRng As Range Dim LRow As Long Set ListRng = Range(Range("c6"), Range("c6").End(xlDown)) For Each Rng In ListRng If Rng.Text < "" Then With Worksheets .Add(after:=.Item(.Count)).Name = Rng.Text End With End If Next Rng End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro: Select visible cells only
Change This:
If Rng.Text < "" Then To This: If Rng.Text < "" And Not Rng.EntireRow.Hidden Then -- Charles Chickering "A good example is twice the value of good advice." "David T" wrote: Right now my macro is creating a new worksheet for each name in a range. However, i want my macro to create only a new worksheet for each VISIBLE name in a range because I filter this list. Please help!!!! Sub name_sheets() 'will add a sheet, and name it 'for each name in column C 'from C6 down till it hits a blank row Dim Rng As Range Dim ListRng As Range Dim LRow As Long Set ListRng = Range(Range("c6"), Range("c6").End(xlDown)) For Each Rng In ListRng If Rng.Text < "" Then With Worksheets .Add(after:=.Item(.Count)).Name = Rng.Text End With End If Next Rng End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
select only used rows and only visible cells | Excel Discussion (Misc queries) | |||
Select Visible Cells Only | Excel Discussion (Misc queries) | |||
Select visible cells using vba | Excel Programming | |||
Trying to select the visible range of cells | Excel Programming | |||
select visible cells when printing | Excel Programming |