- 28 Out 2019 às 07:38
#49627
Gente, bom dia
Fiz uma macro que ela faz um somase e depois cola valores, queria que ela quando clicasse no botão que eu fiz, partisse para a próxima coluna da direita
Eu fiz isso na B, ao clicar no botão, ela executasse não C e assim por diante,
Segue código
Sub Atualizar()
'
' Atualizar Macro
'
'
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUMIF(BASE!C[1],'28'!R[-7]C[-1],BASE!C[2])"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=SUMIF(BASE!C[1],'28'!R[-8]C[-1],BASE!C[3])"
Range("B8:B9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Fiz uma macro que ela faz um somase e depois cola valores, queria que ela quando clicasse no botão que eu fiz, partisse para a próxima coluna da direita
Eu fiz isso na B, ao clicar no botão, ela executasse não C e assim por diante,
Segue código
Sub Atualizar()
'
' Atualizar Macro
'
'
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUMIF(BASE!C[1],'28'!R[-7]C[-1],BASE!C[2])"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=SUMIF(BASE!C[1],'28'!R[-8]C[-1],BASE!C[3])"
Range("B8:B9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub