Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Milton Amorim Filho

Copiar e Colar Valores em Loop

Recommended Posts

Boa tarde a todos!

 

Gostaria muito da ajuda de vocês.

 

Estou com uma barreira no vba, conheco absolutamente nada !!!

 

Preciso copiar dados entre a mesma pasta de trabalho, só que ao final da cópia de cada linha, o arquivo precisa ser salvo com o nome de uma célula especifica.

 

O meu código abaixo é um exemplo de como fiz a cópia, porém preciso incrementá-lo com um loop e parametrizar o "salvar" com esta informação que está em uma célula

 

Sub COPIAR_DADOS()

Sheets("SOX").Range("A2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G6")
Sheets("SOX").Range("BB2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G8")
' Gerencia Resp Sheets("SOX").Range("BB2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G8")
Sheets("SOX").Range("AD2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G12")
Sheets("SOX").Range("AE2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G14")
' Responsável CI Sheets("SOX").Range("AE2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G14")
Sheets("SOX").Range("U2").Copy Destination:=Sheets("Informacoes_Gerais").Range("G18")
Sheets("SOX").Range("Q2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N6")
' Fase Sheets("SOX").Range("Q2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N8")
Sheets("SOX").Range("DW2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N10")
' Gestão Sheets("SOX").Range("DU2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N10")
Sheets("SOX").Range("H2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N14")
Sheets("SOX").Range("T2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N16")
Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("N18")
Sheets("SOX").Range("M2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D39")
' cONCAT Sheets("SOX").Range("CI2 + CV2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D42")
' Sistemas Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")
' Fatores Relacionados Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")
' Procedimentos de Tetes Sheets("SOX").Range("X2").Copy Destination:=Sheets("Informacoes_Gerais").Range("D46")

Application.CutCopyMode = False

ChDir "C:\DAS\OI"
    ActiveWorkbook.SaveAs Filename:="C:\DAS\OI\"&"A2".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub
 

As células de informações gerais são estaticas, porém as células SOX, vão variar até o numero 4000, ou seja para cada linha que o vba copiar e colar, ele salvará o arquivo e pulará para próxima colará e ira salvar, assim sucessivamente até a linha 4000, alguém consegue me auxiliar nesse loop e salvar o arquivo com a info da célula A2?

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×