Copiar células de uma planilha para outra

Question

Preciso de ajuda para copiar várias células de uma planilha para outra.

Eu tenho uma planilha chamada VOLUNTARIOS e uma outra planilha chamada CARTAO.

Na planilha VONLUNTARIOS é onde estao digitados os nomes dos VOLUNTARIOS (235 no total) daqui da creche.

coluna A = NOME DO VOLUNTARIO

coluna b = RG

Na Planilha CARTAO tem um cartao de ponto desenhado (nas céluas).

celula C5 = NOME DOP VOLUNTARIO

celula C6 = RG

Eu tentei o código abaixo.

Sou novo em VBA, peço desculpas pela simplicidade do código:

IntCont = 0
Sheets("Voluntarios").Select
Range("A1").Select
For IntCont = 1 To 235
    If Range("A1").Text = "VOLUNTARIO" Then
    If IsEmpty(ActiveCell) = False Then
       ActiveCell.Offset(1, 0).Select
    End If
     Selection.Copy
     Sheets("CARTAO").Select
     Range("C5").Select
     ActiveSheet.Paste
    End If
Next IntCont

 

O problema é que eu não consigo copiar todos os voluntários eu copio apenas o voluntário que está na célula A2 da planilha VOLUNTARIO.

 

Alguém pode me ajudar?

Answer 1

Leandro,

Tente o seguinte:

Voluntario = Inputbox("Digite o Número da Linha do Voluntário")
Sheets("Cartao").Range("C5") = Sheets("Voluntarios").Range("A" & voluntario)

 

---

Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist [e-mail] https://sites.google.com/site/pfntec/

Answer 2

Rafael,

 

Tem como fazer uma rotina que faça isso automático (para todos os voluntários)?

 

Obrigado :)