Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Adaptação de interv...
 
Notifications
Clear all

Adaptação de intervalo no código.

 
2024 - VBA & Macros
Post Recente por xandrinho 10 anos atrás
5 Posts
3 Usuários
0 Reactions
937 Visualizações
RSS
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Olá Amigos!!!!
Ajudem-me pelo amor de DEUS:
O código abaixo, criar o arquivo em extensão de TXT, porem gostaria de adaptar o código para que gerasse com os dados constantes da: (Plan1.Range("V8:V92")). Poderiam por favor me ajudar na adaptação do código?
Private Sub CommandButton4_Click()
Dim iArq As Long
iArq = FreeFile
Open "C:ArqExport.txt" For Output As iArq
Close #iArq
End Sub

Antecipadamente,
Grato.

 
Postado : 27/02/2015 11:29 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Ta faltando informações nesse código ai, não tá não?

De onde saiu esse FreeFile?

Vc deve ter mais coisas, constantes, ou outros códigos que trabalham em conjunto.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 27/02/2015 11:43 am
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Desculpe...minha intenção é criar um txt do intervalo da Plan1 V8:V92.....
Obrigado pela atenção...

Segue anexo!!!

EXEMPLO.zip
 
Postado : 27/02/2015 12:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:

Private Sub CommandButton4_Click()
Dim iArq As Long
iArq = FreeFile
linha = 1
Worksheets("Plan1").Activate
Range("V8").Select
Open "C:ArqExport.txt" For Output As iArq
    Do Until IsEmpty(ActiveCell.Offset(0, 0))
        Print #iArq, Cells(linha, 1)
        If Cells(linha, 1) = Empty Then Exit Do
    Loop
Close #iArq
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/02/2015 6:06 am
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Bom Dia!
Amigos, primeiramente mto obrigado pela atenção!!!!!
Tentei adaptar o código que o amigo me ajudou mas não deu certo....
Hoje eu faço a seguinte rotina: seleciono o intervalo da V8:V92 da plan1 e copio...vou até a área de trabalho e crio um novo documento Bloco de Nota (TXT) e colo a seleção que havia feito. É esta a rotina que estou tentando adaptar através do comando button...Como exemplo anexei a planilha modelo e o arquivo (txt).
Poderiam por favor, me ajudar?
Obs: Desculpe a simplicidade das palavras.

Exemplo.zip
 
Postado : 02/03/2015 4:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico