Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Dúvida com For Next...
 
Notifications
Clear all

Dúvida com For Next com mais de 2 níveis

 
2024 - VBA & Macros
Post Recente por klarc28 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,576 Visualizações
RSS
 rona3D
(@rona3d)
Posts: 3
New Member
Topic starter
 

Boa noite,

Estou desenvolvendo uma macro que grava em um arquivo TXT coordenadas para furação de chapas.
Esse arquivo TXT contém 3 colunas:
1º coluna contém valores sequenciais, por exemplo, 1, 2, 3, 4, 5, 6,.....
2º coluna contém valores para o eixo X
3º coluna contém valores para o eixo Y
Utilizando o FOR NEXT eu consegui gravar no TXT a 2º coluna e a 3º coluna, sem problema. O que eu não estou conseguindo fazer é gravar no TXT os números sequenciais da 1a coluna.
Alguém poderia me auxiliar com essa dúvida?
Segue arquivo anexo (Não reparem o meu código, ainda sou novo no VBA): https://drive.google.com/file/d/1F424X4 ... sp=sharing

Desde já agradeço.

 
Postado : 06/01/2020 7:29 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub CriarTabelaFuros()
    
    Dim NomeArquivo As String
    Caminho = ThisWorkbook.Path & Application.PathSeparator
    NomeArquivo = "TabelaFuros" & ".txt"
    Open Caminho & NomeArquivo For Output As #1
    Dim cont As Long
        cont = 1
    For j = 0 To (Range("C8") - 1)
        For k = 0 To (Range("C10").Offset(j, 0) - 1)
            If j Mod 2 = 0 Then
                  Range("I2").Offset(j, k) = Range("C2") + (Range("C5") * k)
            Else
                  Range("I2").Offset(j, k) = (Range("C5") / 2) + (Range("C5") * k)
            End If
         
        Range("I20").Offset(j, k) = Range("C3") + (Range("C6") * j)
        
        Debug.Print cont & "       " & Range("I2").Offset(j, k) & "       " & Range("C3") + (Range("C6") * j)
         
        Print #1, cont & "       " & Range("I2").Offset(j, k) & "       " & Range("C3") + (Range("C6") * j)
        
        cont = cont + 1
        Next
    
    Next
    
    Close #1
End Sub
 
Postado : 06/01/2020 11:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico