Rlb53
03-26-2012, 01:10 PM
The code below provides me with a filtered range of information at Row 8:
Rows("8:8").Select
Selection.AutoFilter
ActiveSheet.Range("$A$8", Range("a" & Rows.Count)).End(xlUp).AutoFilter Field:=2, Criteria1:=Me.Plant_No.Value
Following this, I'm stuck. I'd like to Insert a row at the top of the filtered data and insert new information within each cell.
Could you provide me the code to insert this row?
Also, could you provide me the code to identify the inserted row so I may transfer the information correctly. Something like ???? :
emptyrow=range("a8" ,range("a" & rows.count).end(xlup)
Rows("8:8").Select
Selection.AutoFilter
ActiveSheet.Range("$A$8", Range("a" & Rows.Count)).End(xlUp).AutoFilter Field:=2, Criteria1:=Me.Plant_No.Value
Following this, I'm stuck. I'd like to Insert a row at the top of the filtered data and insert new information within each cell.
Could you provide me the code to insert this row?
Also, could you provide me the code to identify the inserted row so I may transfer the information correctly. Something like ???? :
emptyrow=range("a8" ,range("a" & rows.count).end(xlup)