none
Help VBA utilizando variavel para concatenar RRS feed

  • Pergunta

  • Prezada comunidade,

    Estou com uma duvida no meu código... estou tentando colocar o nome de varias pessoas que estão na coluna B, em um texto para concatenar dentro de um for para que faça isso para todos os nome... mas não estou conseguindo... deve ser simples mas não estou conseguindo...

    Agradeço desde já a ajuda.

    Sub Macro1()
    
    Dim cont As Integer
    Dim nome As Range
    Dim num As Integer
    
    
    Set nome = Range("B1:B133")
    
    
    num = 1
    
    For cont = 2 To 133
    
    Cells(cont, 9).Value = "0000000000" & num & "000000549755813888000000000000200201950000" & nome
    
    
    Next cont
    
    num = num + 1
    
    
    
    
    
    End Sub

    segunda-feira, 21 de agosto de 2017 17:13

Respostas

  • Sub Macro1()
    
    Dim cont As Integer
    Dim nome As String
    Dim num As Integer
    
    
    
    
    
    num = 1
    
    For cont = 2 To 133
    nome = Range("B"& num)
    Cells(cont, 9).Value = "0000000000" & num & "000000549755813888000000000000200201950000" & nome
    num = num + 1
    
    Next cont
    
    
    
    
    
    
    
    End Sub


    Anderson Diniz


    • Sugerido como Resposta AndersonFDiniz2 segunda-feira, 21 de agosto de 2017 17:47
    • Editado AndersonFDiniz2 segunda-feira, 21 de agosto de 2017 17:47
    • Marcado como Resposta WillGreco segunda-feira, 21 de agosto de 2017 17:50
    segunda-feira, 21 de agosto de 2017 17:47

Todas as Respostas

  • Obrigado mais uma vez meu caro Anderson Diniz... mas quando estou execudando aparece o seguinte erro

    segunda-feira, 21 de agosto de 2017 17:47
  • Sub Macro1()
    
    Dim cont As Integer
    Dim nome As String
    Dim num As Integer
    
    
    
    
    
    num = 1
    
    For cont = 2 To 133
    nome = Range("B"& num)
    Cells(cont, 9).Value = "0000000000" & num & "000000549755813888000000000000200201950000" & nome
    num = num + 1
    
    Next cont
    
    
    
    
    
    
    
    End Sub


    Anderson Diniz


    • Sugerido como Resposta AndersonFDiniz2 segunda-feira, 21 de agosto de 2017 17:47
    • Editado AndersonFDiniz2 segunda-feira, 21 de agosto de 2017 17:47
    • Marcado como Resposta WillGreco segunda-feira, 21 de agosto de 2017 17:50
    segunda-feira, 21 de agosto de 2017 17:47
  • Muito obrigado!!!!!!!!!!!
    segunda-feira, 21 de agosto de 2017 17:50