Em uma pasta de trabalho o nome e o sobrenome dos clientes estão em abas distintas. Junte essas informações para obter o nome completo completo dos clientes, e os coloque em uma terceira aba chamada "Nome_Completo".
Exercício Resolvido
Resolvendo o problema
Assumindo que nome e sobrenome estão pareados por estarem na mesma linha, mesmo que em diferentes abas, podemos resolver realizando um loop junto ao uso de Worksheets.
-
Declaramos as variáveis e encontramos o último dado da aba "Nome". Cuidado com valores faltantes
Dim Name As String
Dim Sobrenome As String
Dim UltLinha As Long
Dim i As Integer
UltLinha = Worksheets("Nome").Cells(2, 1).End(xlDown).Row
-
Fazemos um loop For Next até o último dado já atribuindo os valores a planilha desejada
For i = 3 To UltLinha
Nome = Worksheets("Nome").Cells(i, 1).Value
Sobrenome = Worksheets("Sobrenome").Cells(i, 1).Value
Worksheets("Nome_Completo").Cells(i, 1).Value = Nome & " " & Sobrenome
Next i
Código Consolidado
Sub Resolucao()
Dim Name As String
Dim Sobrenome As String
Dim UltLinha As Long
Dim i As Integer
UltLinha = Sheets("Nome").Cells(2, 1).End(xlDown).Row
For i = 3 To UltLinha
Nome = Sheets("Nome").Cells(i, 1).Value
Sobrenome = Sheets("Sobrenome").Cells(i, 1).Value
Sheets("Nome_Completo").Cells(i, 1).Value = Nome & " " & Sobrenome
Next i
Sheets("Nome_Completo").Activate
End Sub
SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.
Excel ® é uma marca registrada da Microsoft Corporation.
© 2024 SuperExcelVBA | SOBRE
