Ciao Feno
Inserisci questa macro in un modulo, adatta nome foglio, percorso, e nomefile alle tue esigenze
inoltre modifica la colonna di conteggio righe se non è la A
e la riga IV1 se i dati iniziano in un'altra riga
- Codice: Seleziona tutto
Sub TxtFile2()
NFoglio = "Foglio2" '<<<< sostituire con nome foglio aventi i dati da trasferire in Txt
Percorso = "C:\Temp\" '<<<< sostituire con Lettera Drive (HD) e percorso, terminare sempre con la \
NomeF = "Prova.txt" '<<<< sostituire con nome del file in Txt
Sheets(NFoglio).Select
UC = Range("IV1").End(xlToLeft).Column '<<<<<<<<<<<<<<< conta le colonne con dati nella riga 1 a partire dalla colonna IV
UR = Range("A" & Rows.Count).End(xlUp).Row '<<<<<<<<<<<<<<< conta le righe con dati nella colonna A
FullName = Percorso & NomeF
Open FullName For Output As #1
For riga = 1 To UR
RigaC = ""
For Col = 1 To UC
If Col = 1 Then
RigaC = Cells(riga, Col).Value
Else
RigaC = RigaC & Chr(9) & Cells(riga, Col).Value
End If
Next Col
Print #1, RigaC
Next riga
Close
End Sub
Fai sapere
Ciao