Txt dosyası oluştururken belirli bir metni kaydetmeme

[noknight1234]

Merhaba,

Bir excel dosyam var ve aşağıdaki kod ile M ve N sütunundaki verileri dışarı txt olarak aktarım yapıyorum fakat M ve N sütunundaki bazı satırlarda 1 rakamı geçmekte ve ben txt dosyası oluştururken bu rakamları kaydetmesini istemiyorum. Nasıl bir kod yazmamız gerekir?

Sub CommandButton22_Click()
Dim i, sat As Integer
ff = Range("k1")
sat = ActiveSheet.UsedRange.Rows.Count
isim = ff & "-Line.txt"
Open ThisWorkbook.Path & "\" & isim For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "m") & vbTab & Cells(i, "N")
    Next i
Close
MsgBox (isim & " " & "Dosyanız Oluşturulmuştur.")

End Sub

 

[Ömer]

Merhaba,

Print #1, Cells(i, "m") & vbTab & Cells(i, "N")

Yukarıdaki satır yerine aşağıdaki satırı yazarak deneyiniz.

If Cells(i, "M") <> 1 And Cells(i, "N") <> 1 Then
Print #1, Cells(i, "m") & vbTab & Cells(i, "N")
End If

 

[noknight1234]

Merhaba Ömer Bey,

İlginiz için çok teşekkür ederim.