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?