Macro to export pipe seperated data ( Skip rows )

[alex0182828]

Can anyone help me adjust my macro. I just need it so that any rows with Value 'Q' in Column A are skipped and not exported to the pipe seperated sheet ?

Thanks. Alex

    Public Sub CharacterSV()
        Const DELIMITER As String = "|"
        Dim myRecord As Range
        Dim myField As Range
        Dim nFileNum As Long
        Dim sOut As String
        
        nFileNum = FreeFile
        Open "orderswhoop.txt" For Output As #nFileNum
        For Each myRecord In Range("A1:A" & _
                    Range("A" & Rows.Count).End(xlUp).Row)
            With myRecord
                For Each myField In Range(.Cells, _
                        Cells(.Row, Columns.Count).End(xlToLeft))
                    sOut = sOut & DELIMITER & myField.Text
                Next myField
                Print #nFileNum, Mid(sOut, 2)
                sOut = Empty
            End With
        Next myRecord
        Close #nFileNum
    End Sub

 

[Alex Blakenburg]

Just wrap the action part in an If statement.

    For Each myRecord In Range("A1:A" & _
                Range("A" & Rows.Count).End(xlUp).Row)
        If myRecord.Value <> "Q" Then
            With myRecord
                For Each myField In Range(.Cells, _
                        Cells(.Row, Columns.Count).End(xlToLeft))
                    sOut = sOut & DELIMITER & myField.Text
                Next myField
                Print #nFileNum, Mid(sOut, 2)
                sOut = Empty
            End With
        End If
    Next myRecord

 

[alex0182828]

Thanks so much that worked fine

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.