how can I select specific cells after filtering

Asked May 10 '20 at 16:46

Active May 10 '20 at 17:35

Viewed 32 times

I need to copy a specific range after filtering.

Sub macros()
Dim newrange As Range, rw As Range
Set newrange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
Dim a As String
a = InputBox("Number")
ActiveSheet.Range("$A$5:$V$121").AutoFilter Field:=8, Criteria1:=a

Sheets("ABV 3").Select
ActiveSheet.Range("$A$5:$V$126").AutoFilter Field:=8, Criteria1:=a

Sheets("ABV 3 FFF").Select
Range("H6:S6").SpecialCells(xlCellTypeVisible).Select

Selection.Copy
Sheets("ABV 3").Select
Range("H6").SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Paste
End Sub

In the filter, I set a number and I need to select the range from H to S. How can I do this????

edited May 10 '20 at 17:35

Tim Williams

154,628
8
97
125

asked May 10 '20 at 16:46

grmnv

ima nooby in vba – grmnv May 10 '20 at 16:47
`Range("H6, S6")` did you mean `Range("H6:S6")` ? – Tim Williams May 10 '20 at 17:05
@TimWilliams, yes, I meant `Range("H6:S6")` – grmnv May 10 '20 at 17:12
1

If you're just starting in VBA then this will be useful - https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba Following the guidelines there will save you plenty of problems. – Tim Williams May 10 '20 at 17:17
What is not happening that you expect? What happens when you try to record yourself doing what you intend? It would also help if you could post what you EXPECT to happen and what is actually happening. – pgSystemTester May 10 '20 at 17:17
@PGSystemTester, I have a runtime error 1004, how can i fix this? – grmnv May 10 '20 at 17:23
@TimWilliams, this is necessary for work where you need to iterate over 1000 rows – grmnv May 10 '20 at 17:25
What is necessary? – Tim Williams May 10 '20 at 17:31

how can I select specific cells after filtering

0 Answers0