Crear archivos txt individuales con el nombre de cada celda
publicado
Buenas,
Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito.
Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add.
Adjunto la macro que encontré por si sirve de ayuda.
Buenas,
Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito.
Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add.
Adjunto la macro que encontré por si sirve de ayuda.
Sub GeneraMiniArchivoDeTexto()
Dim myfile As String, mytexto As String
myfile = ThisWorkbook.Path & "\" & _
Cells(Selection.Row, "a") & ".txt"
If Dir(myfile) <> "" Then Kill myfile
mytexto = Cells(Selection.Row, "ab")
Workbooks.Add
[a1] = mytexto
With ActiveWorkbook
.SaveAs Filename:=myfile, FileFormat:=xlTextPrinter
.Close False
End With
End Sub
Gracias.