Olá gmribeiro!
Adicionei os seguintes códigos no seu arquivo e fiz algumas alterações no seu código para não permitir gravar reajustes com 0%.
Sub gravar_histórico_Belfano()
Range("F19").End(xlUp).Offset(1, 0).Activate
If ActiveCell.Row = 19 Then
Range("F6:G18").Select
Selection.Copy
Range("F5").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("F18").Select
End If
With ActiveCell
.Value = Now()
.NumberFormat = "mmm-yy"
.Offset(0, 1).Range("A1").Value = Range("B18").Value
.Offset(0, 1).Range("A1").Style = "percent"
End With
End Sub
Sub gravar_histórico_Rochling()
Range("F39").End(xlUp).Offset(1, 0).Activate
If ActiveCell.Row = 39 Then
Range("F25:G38").Select
Selection.Copy
Range("F24").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("F38").Select
End If
With ActiveCell
.Value = Now()
.NumberFormat = "mmm-yy"
.Offset(0, 1).Range("A1").Value = Range("B38").Value
.Offset(0, 1).Range("A1").Style = "percent"
End With
End Sub
Mantive a estrutura de tabela que você colocou, então se houver quantidades de reajustes superiores as linhas da tabela de histórico, o reajuste mais antigo será excluido da tabela. Teste o arquivo e digo se está bom.
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 04/03/2015 8:01 pm