Copying filtered data to txt file

Very difficult without seeing your workbook, but If Range(Cells(newDtop, 7), Cells(newDbot, 7)).Value = "Parot"
is looking in G between a cell 2 below the last cell in column H and the bottom of Column G. Is that what you want?

Hey,

Thanks for your reply

I'm new to these forums and so just getting used to explaining things. Bear with me if you may...

To answer your question:

If you look at my workbook you will see the main piece of data then a blank row and then again some data starting at row 25. Let's say we will call this bunch starting at row 25 the New Data. I use newDbot and newDtop to define the row boundaries for the New Data added to the dataset. In which case I don't think it matters whether I use G or H as long they are not blank.

Each day New Data is added to the main report in order to compare it with historical data and remove duplicates according to some columns. In the attached file duplicated data have been already removed, the only thing left to do is to produce some reports with the New Data.

If you run my macro in the workbook (make sure to adjust the file destination properly) you will see that every single cellvalue in column C for the New Data is transferred to the text file.

What I want to do is to copy only those cellvalue from column C for which the respective cellvalue in column G is "Parot".

So at the end I would get a text file with these two entries:
"typically as a means"
"and speed due to unopposed drag,"

Please don't hesitate to ask if you have any further questions

Hi -

Add condition on the Write line

If LCase(Entry.Offset(, 4).Value) = "parot" Then
    oFile.Write Entry.Value & "" & vbCrLf & ""
End If

event

Hey,

You're a star! It works.

Thanks

Hi..

Although solved for you.. here's an alternative for you or others..

Note: Change fPath to suit..

Private Sub CommandButton1_Click()
    Dim x, y, z, myval As String, fPath As String, fName As String
    fPath = "C:\Users\apo\Desktop\": fName = "Test"
    myval = """parot"""
    With Range("H" & Range("H" & Rows.Count).End(xlUp).Row).CurrentRegion
        x = .Value: y = .Columns(7).Value
        z = Application.Transpose(Filter(Evaluate("Transpose(if(" & .Columns(7).Address & "=" & myval & ",row(1:" & .Rows.Count & "),char(32)))"), Chr(32), False))
        If UBound(z) > -1 Then
            With CreateObject("Scripting.FileSystemObject").CreateTextFile(fPath & fName & ".txt", True)
                .writeline Join(Application.Transpose(Application.Index(x, z, [Transpose(row(3:3))])), vbCrLf)
            End With
        End If
    End With
End Sub

Thanks I will try that too.

It would be really cool if you could explain the difference between the logic of these solutions. However, even if you don't feel like doing so, this forum is bliss