Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Dyego Costa

Macro para copiar quando uma célula seja preenchida e colar com offset

Mensagem Recomendada

Boa noite pessoal,

Sou professor universitário e estou precisando da ajuda de vocês. Desenvolvo pesquisa em ambiente vba por ser mais simples dos meus alunos mudarem condições.

Bem. Preciso de uma macro que uma vez que a célula H2 da Plan2 seja 1, ela copie A2:H2 e cole em A7:H7. No entanto, H2 será mudada várias vezes. Para cada vez que ela seja um a macro copie A2:H2, porém cole na linha de baixo.

Por exemplo.

A primeira vez que H2 for 1, copie A2:H2 e cole em a7:h7
Na segunda vez, copie A2:H2 e cole em A8:H8. e aí por diante.

Toda a planilha está pronta, só falta isso.

bianca.xlsm

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$H$2" Then Exit Sub
 If Target.Value = 1 Then [A2:H2].Copy IIf([A7] = "", [A7], Cells(Rows.Count, 1).End(3)(2))
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...