Este fórum está sendo desativado

[andreitrp]

Olá a todos, meu nome é Andrei, sou novo aqui, não tenho conhecimento avançado em nada no excel, tudo que fiz foi vendo tutoriais, minha busca de inicio foi para fazer um programa que eu conseguisse fazer um cadastro de pessoa física, achei como fazer cadastro de clientes, peguei e adaptei ao que eu queria que na verdade é cadastro de voluntários em uma associação, poi bem...
Meu problema é o seguinte, meu programa está todo perfeitinho (no caso para quem fez no caso eu, ta perfeito pois nunca imaginava conseguir fazer um programa, rsrs), porém só me falta uma coisa para que ele fique 100%, na minha planilha ela tem duas guias, a guia da lista de pessoas cadastradas e uma guia que eu criei que é a guia "FICHA" que é uma ficha cadastral em branco, bem... Nesta guia "FICHA" minha idéia seria uma forma de que quando eu selecionar meu voluntário na minha tela de cadastro eu criei um botão "transferir", que ele transfere todos os dados que está no cadastro desse voluntário para essa guia, ou seja, ele auto preenche, para que eu possa imprimir somente o cadastro desse voluntário, gravando macros consegui um código para que ele auto preencha, porém só consegui o cadastro que está localizado na segunda célula, os de baixo, ou seja, os das celulas 3,4,5,6... não consigo
Segue meu código abaixo:
Private Sub CommandButton1_Click()
Sheets("Plan1").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("B8:J8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("B10:J10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("B12:E12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("G12:J12").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("B14:C14").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("D14:E14").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("G14:J14").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("B16:E16").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("I2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("G16:J16").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("C18:E18").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select
Range("L2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHA").Select
Range("A34:J47").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Plan1").Select

End Sub

Grato desde já.

[DJunqueira]

Bem vindo ao fórum andreitrp, mas p/ q possamos te ajudar o ideal é q vc anexe um modelo da sua planilha com dados fictícios.
Pelo q vc falou me parece q poderia ser feito com funções, mas podemos fazer com código tb desde q a planilha venha junto.

[andreitrp]

Bom dia, segue o anexo.
usuario: cer
senha: cer2016

[DJunqueira]

Sem necessidade de macro agora todos os voluntários q vc selecionar na guia FICHA, campo Nome, terão seus dados preenchidos automaticamente.

[andreitrp]

Puts sem palavras pra te agradecer, mas na verdade ao alterar o nome na guia, ele só faz alteração do Nome, Genero e os cursos selecionados os outros dados não alteram.

[DJunqueira]

Aqui comigo altera tudo.

[Kledison]

Olá,

verificando rápido a planilha, percebi que se você clicar em TRANSFERIR as fórmulas que o DJunqueira fez irá perder, pois os dados são "colados" onde tem fórmulas.

Att

[andreitrp]

Realmente, quando clico em Transferir ele desfaz tudo, era isso mesmo, vou tirar este botão, bom... De novo DJunqueira sem palavras pra você MUITO OBRIGADO, Kledison obrigado por sua colaboração também, tudo resolvido. Grato.