save filtered range to text file

[rkhong]

There are 6 columns and I'm using autofilter to filter from 2 columns, however I want to copy and paste another column (after filtering) to a text file.





' Getting the day of the current date
var = Day(Date)

'Autofilter
ActiveSheet.Range("A:F").AutoFilter Field:=3, Criteria1:="=Daily", _
Operator:=xlOr, Criteria2:="=var"


'Get the number of rows in Report column
LastRow = ActiveSheet.UsedRange.Rows.Count

'Loop through the column and paste the report names in the txt file
For iCntr = 2 To LastRow
Write #1 , Range("F" & iCntr)

Next iCntr
Close #1


The loop pastes all the values in COLUMN F. But I want to paste only filtered values.

 

[Yongle]

Welcome to the forum

Try this
(untested)

Dim[COLOR=#ff0000] rng [/COLOR]As Range,[COLOR=#ff0000] cel [/COLOR]As Range

Var = Day(Date)

[I]'Autofilter[/I]
ActiveSheet.Range("A:F").AutoFilter Field:=3, Criteria1:="=Daily", _
Operator:=xlOr, Criteria2:="=var"

[I]'Get the number of rows in Report column[/I]
lastrow = ActiveSheet.UsedRange.Rows.Count

[COLOR=#ff0000][I]'consider visible rows only[/I]
[/COLOR]Set [COLOR=#ff0000]rng[/COLOR] = ActiveSheet.Range("F2:F" & lastrow)[COLOR=#ff0000].SpecialCells(xlCellTypeVisible)[/COLOR]

[I]'Loop through the column and paste the report names in the txt file[/I]
For Each [COLOR=#ff0000]cel [/COLOR]In [COLOR=#ff0000]rng
   [/COLOR] Write [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] [COLOR=#ff0000], cel.Value
[/COLOR]Next[COLOR=#ff0000] cel[/COLOR]
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL]

 

[rkhong]

thanks it worked!

 

[Yongle]

Thanks for the feedback