Output to Text File based on Values

[dhosi439]

I have a spreadsheet with data starting in column B row 11. Column C users input an X based on the data in column B they want in the text file.

For example:

Column B has data from row 11 to row 50, the user inputs X into Column C for each value in Column B that they want. Then by clicking a command button, all the information in column B that has a corresponding X in column C will be written to a text file.

Note: The range in column B can vary. There can be several hundred entries.

Any help with this would be appreciated.

 

[Domski]

Try:

Sub WriteToFile()
Dim objFSO As Object
Dim objOutputFile As Object
Dim rngCell As Range
Dim lngLastRow As Long
lngLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile("C:\Output.txt") ' change file path/name as required
For Each rngCell In Range("B11:B" & lngLastRow)
    If rngCell.Offset(0, 1) = "X" Then objOutputFile.writeline rngCell.Value
Next rngCell
End Sub

Dom

 

[dhosi439]

This was perfect, allowed to change some other code to run a bit more efficiently as well. Thanks for the fast response as well.