[Resolvido] MACRO COPIAR E COLAR de acordo com outra coluna

2024 - VBA & Macros

Post Recente por JSCOPA10 3 anos atrás

3 Posts

2 Usuários

1 Reactions

1,015 Visualizações

RSS

JSCOPA10

(@jscopa10)

Posts: 344

Reputable Member

Topic starter

Sub CopiareColarJ3:AG2000()

'colado na planilha FICHAS
'copia J3:AG2000 e cola em AR3:BO2000 ... E para o cursor em AR3

Range("J3:Ag2000").Copy

With Range("AR3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

End Sub

Gente, boa tarde,

Esta Macro está funcionando perfeitamente, mas agora surgiu uma necessidade que não sei ajustar!!!

Só precisaria de uma condição, ou seja, que ela faça exatamente isto, MAS só se tiver o número 1 na coluna AH2:AH2000 !!

Postado : 03/01/2022 3:09 pm

cleiton jm

(@cleiton-jm)

Posts: 115

Estimable Member

@jscopa10 Seguindo seu raciocínio segue um exemplo.

Sub CopiarColar()
Application.ScreenUpdating = False
Dim LR As Integer, i As Integer, x As Integer
LR = [A:A].Find("*", , xlValues, , xlRows, xlPrevious).Row
x = 2

For i = 2 To LR
If Range("AH" & i) = 1 Then
Range("A" & i & ":AG" & i).Copy
Range("AR" & x).PasteSpecial xlPasteValuesAndNumberFormats

Application.CutCopyMode = False
x = x + 1
End If
Next i
Application.ScreenUpdating = True

End Sub

Postado : 04/01/2022 8:25 am

JSCOPA10 reacted