none
Copiar células de uma planilha para outra RRS feed

  • Pergunta

  • 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?

    segunda-feira, 29 de novembro de 2010 15:56

Respostas

Todas as Respostas

  • 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 rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/
    segunda-feira, 29 de novembro de 2010 16:23
  • Rafael,

     

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

     

    Obrigado :)

    segunda-feira, 29 de novembro de 2010 17:08