Ir ao conteúdo
  • Cadastre-se
Clonner

RESOLVIDO Copiar e colar linha, calcular copiar e colar resultado e repetir via Macro

Recommended Posts

Pessoal, tenho uma tabela com 1119 linhas e 15 colunas, necessito copiar cada linha iniciando em C6:Q6, colar no intervalo C3:Q3, cópiar o resultado da célula A3 e colar o valor na célula B6.

Seguir para a próxima linha copiar C7:Q7, colar no intervalo C3:Q3, copiar o resultado de A3 e colar o valor em B7.

e assim sucessivamente até a última linha preenchida.

 

Segue o que tenho:

 

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("C6:Q6").Select
    Selection.Copy
    Range("C3:Q3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

Desde já agradeço.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub Macro2()For x = 6 to 2000    Range("C" & x & ":Q" & x).Select    Selection.Copy    Range("C3:Q3").Select    ActiveSheet.Paste    Range("A3").Select    Application.CutCopyMode = False    Selection.Copy    Range("B" & x).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=Falsenext xEnd Sub

Será?

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





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

×