Copiar linhas ou intervalo de células.

Question

Olá

Preciso copiar varias partes do meu arquivo que será definido por data inicial e final e copia=las e salva las em arquivo txt com o nome do mês e anos selecionados como inicial. alguém pode me ajudar a montar um código para executar este trabalho?

Obrigado!

Answer 1

Crie um arquivo texto.txt na unidade C.

Acrescente alguns dados na plan1.

Depois faça um teste com o código a seguir:

Sub arquivoTXT()

Dim iArq As Long

iArq = FreeFile

Open "C:\texto.txt" For Output As iArq

For Each cell In Sheets(1).UsedRange.Cells

If cell.Text <> "" Then

Print #iArq, cell.Text

End If

Next cell

Close #iArq

End Sub