- 02 Jan 2020 às 15:50
#51425
Sub INSERIR()
If Range("A4").Value <> "" Then
Range("A4:K4").Select
Selection.Copy
Range("A7").Select
If Range("A8").Value <> "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("A8").Text = "S" Then
Range("F8").Value = Range("F8").Value * -1 ESTA FUNÇÃO NÃO MOSTRA VALOR APENAS COPIA E COLA
End If
End If
Range("A4:K4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A4").Select
End Sub
If Range("A4").Value <> "" Then
Range("A4:K4").Select
Selection.Copy
Range("A7").Select
If Range("A8").Value <> "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("A8").Text = "S" Then
Range("F8").Value = Range("F8").Value * -1 ESTA FUNÇÃO NÃO MOSTRA VALOR APENAS COPIA E COLA
End If
End If
Range("A4:K4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A4").Select
End Sub