Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code for selecting 2nd visible row
After an autofilter I want to select the 2nd visible row and column C and
paste something in there. What is the code for this? Sheets("Sheet1").Select Range("C????????").Select ActiveSheet.Paste |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code for selecting 2nd visible row
One way:
Option Explicit Sub testme() Dim myVisRow As Long Dim myCell As Range Dim vCtr As Long Dim WhichVisRow As Long Dim vRng As Range Dim wks As Worksheet Dim SomeRngToCopy as Range Set wks = ActiveSheet WhichVisRow = 2 With wks.AutoFilter.Range 'ignore the header and make sure there are 'enough visible rows If (.Columns(1).Cells.SpecialCells(xlCellTypeVisible) .Count - 1) _ < WhichVisRow Then MsgBox "Not enough visible rows" Exit Sub End If Set vRng = .Resize(.Rows.Count - 1, 1).Offset(1, 0) _ .Cells.SpecialCells(xlCellTypeVisible) vCtr = 0 For Each myCell In vRng.Cells vCtr = vCtr + 1 If vCtr = WhichVisRow Then myVisRow = myCell.Row Exit For End If Next myCell 'do your copy and paste set somerngtocopy = worksheets("somesheetname").range("x99") somerngtocopy.copy _ destination:=.cells(myvisrow,"C") End With End Sub I assumed that you meant the 2nd visible row of the data--not including the header. Knox wrote: After an autofilter I want to select the 2nd visible row and column C and paste something in there. What is the code for this? Sheets("Sheet1").Select Range("C????????").Select ActiveSheet.Paste -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HELP: Selecting Non-Visible (Hidden) Cells with AutoFilter Applied | Excel Discussion (Misc queries) | |||
HELP: Selecting Non-Visible (Hidden) Cells with AutoFilter Applied | Excel Discussion (Misc queries) | |||
HELP: Selecting Non-Visible (Hidden) Cells with AutoFilter Applied | Excel Discussion (Misc queries) | |||
Selecting an offset of a range of visible cells, but only those <0? | Excel Programming | |||
Selecting Column of Visible AutoFiltered Cells. | Excel Programming |