- 27 Jul 2019 às 15:42
#46101
Preciso executar a macro abaixo até o final da planilha onde vou incrementando somente as células C5 e F5 em uma linha ...( primeira rodada com c5 e f5, segunda com c6 e f6 , terceira com c7 e f7..até o fim da planilha ou seja não haja mais registros na coluna C....
Sub Macro9()
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Range("F2:O2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Macro9()
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Range("F2:O2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub