Trying to copy columns to a notepad text file

Hello Gamerxx13,

This macro will copy the data highlighted in yellow to text file. Change the text file path and name to what you want.

Sub SaveAsTextFile()

    Dim FirstCell   As Range
    Dim i           As Long
    Dim LastCell    As Range
    Dim Rng         As Range
    Dim TextFile    As String
    
        TextFile = "C:\Users\Owner\Documents\Test File 1.txt"
        
        Set FirstCell = Sheet3.Range("C2")
        Set LastCell = Sheet3.Cells(Rows.count, "C").End(xlUp)
        Set Rng = Sheet3.Range(FirstCell, LastCell).Resize(ColumnSize:=3)
        
        If LastCell.Row < FirstCell.Row Then Exit Sub
        
            Open TextFile For Output Access Write As #1
                For i = 1 To Rng.Rows.count
                    Print #1, Rng.Item(i, 1), Rng.Item(i, 2), Rng.Item(i, 3)
                Next i
            Close #1
            
End Sub

Thanks for your help.
I tried using this macro with my excel sheet and there was a debug error found, this is what it said.

Sub SaveAsTextFile()

    Dim FirstCell   As Range
    Dim i           As Long
    Dim LastCell    As Range
    Dim Rng         As Range
    Dim TextFile    As String
    
        TextFile = "C:\Users\Owner\Documents\Test File 1.txt"
        
        Set FirstCell = Sheet3.Range("C2")
        Set LastCell = Sheet3.Cells(Rows.count, "C").End(xlUp)
        Set Rng = Sheet3.Range(FirstCell, LastCell).Resize(ColumnSize:=3)
        
        If LastCell.Row < FirstCell.Row Then Exit Sub
        
            Open TextFile For Output Access Write As #1
                For i = 1 To Rng.Rows.count
                    Print #1, Rng.Item(i, 1), Rng.Item(i, 2), Rng.Item(i, 3)
                Next i
            Close #1
            
End Sub

Hello Gamerxx13,

That's odd. The macro worked fine for me on the workbook you posted. Is there any difference between what you posted and what you are using?

Hello Gamerxx13,

I have added the macro to its own module named "SavevAsTextFile". You will need to modify the file path and name in the macro to where you want the file saved and what it will be named. I have added a button and attached the macro to it.

Sub SaveAsTextFile()

    Dim FirstCell   As Range
    Dim i           As Long
    Dim LastCell    As Range
    Dim Rng         As Range
    Dim TextFile    As String
    
      ' Change the file path and name to what you will be using.
        TextFile = "C:\Users\Owner\Documents\Test File 1.txt"
        
        Set FirstCell = Sheet3.Range("C2")
        Set LastCell = Sheet3.Cells(Rows.count, "C").End(xlUp)
        Set Rng = Sheet3.Range(FirstCell, LastCell).Resize(ColumnSize:=3)
        
        If LastCell.Row < FirstCell.Row Then Exit Sub
        
            Open TextFile For Output Access Write As #1
                For i = 1 To Rng.Rows.count
                    Print #1, Rng.Item(i, 1), Rng.Item(i, 2), Rng.Item(i, 3)
                Next i
            Close #1
            
End Sub

Hi,
I am stil getting some errors. So When I run yours, I click on create file and get with that line in yellow:
"Run-Time Error '1004':
Method 'Range' of object'_Global' failed

Sub MatrixLencheck()
Dim cell As Range
Dim MatrixArray()
Dim a As Long
Dim msg
Dim M As Long

For Each cell In Range("InpMatrix").Cells
    If Len(cell.Value) > 1 Then
        ReDim Preserve MatrixArray(a)
        MatrixArray(a) = "Cell " & cell.Address
        'MsgBox cell.Address & " Too Long"
        
    End If
    a = a + 1
Next

'Check that the array is filled otherwise exit sub
On Error Resume Next
Err.Clear
M = LBound(MatrixArray)
    
    If Err.Number = 0 Then
        
        For N = LBound(MatrixArray) To UBound(MatrixArray)
        msg = msg & MatrixArray(N) & vbNewLine
        Next
        MsgBox "The following Matrix cells do not meet validation criteria " & vbNewLine & vbNewLine & msg
        counter = 1
    Else
    
    
    Exit Sub
    End If

End Sub

Hello Gamerxx13,

What version of Windows are you running?
Can you post the failing workbook so I can test it on my machine?

Hello

Both workbooks appear identical. really have no idea what the problem is. The only change I made to the macro was to use the file name on sheet1. Again, it ran fine without error. Here is the code with the change...
[

Sub SaveAsTextFile()

    Dim FirstCell   As Range
    Dim i           As Long
    Dim LastCell    As Range
    Dim Rng         As Range
    Dim TextFile    As String
    
      ' Change the file path and name to what you will be using.
        TextFile = "C:\Users\Owner\Documents\" & Sheet1.Range("E11") & ".txt"
        
        Set FirstCell = Sheet3.Range("C2")
        Set LastCell = Sheet3.Cells(Rows.count, "C").End(xlUp)
        Set Rng = Sheet3.Range(FirstCell, LastCell).Resize(ColumnSize:=3)
        
        If LastCell.Row < FirstCell.Row Then Exit Sub
        
            Open TextFile For Output Access Write As #1
                For i = 1 To Rng.Rows.count
                    Print #1, Rng.Item(i, 1), Rng.Item(i, 2), Rng.Item(i, 3)
                Next i
            Close #1
            
End Sub