Notifications
Clear all

Escrever data e reajuste a cada aplicação da macro

5 Posts
2 Usuários
0 Reactions
1,078 Visualizações
(@gmribeiro)
Posts: 37
Eminent Member
Topic starter
 

Bom dia pessoal,

Fiz uma macro simples para atualização de preços e aplicação de reajuste na minha planilha. Gostaria que fosse implementado também a atualização do histórico a cada aplicação de reajuste, sempre em uma nova linha, com mês/ano e o valor do reajuste aplicado. Anexei um exemplo com apenas uma aba, mas tenho muitas outras para aplicar o mesmo procedimento. Não entendo nada de VBA, a macro que criei foi com a ferramenta de gravação mesmo. Se for muito complicado, deixarei como está, com atualização manual.

Obrigada!

 
Postado : 04/03/2015 5:54 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

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
(@gmribeiro)
Posts: 37
Eminent Member
Topic starter
 

Obrigada, era exatamente isso que eu queria. No entanto, os preços estão alterados, na sua planilha em anexo e quando apliquei o código na planilha original. Outra dúvida, o símbolo de % tem que aparecer no campo de digitação do reajuste? Eu preferiria que não, se for possível.
Sobre a aplicação do mesmo código em outras abas: quais campos devo ajustar e se ainda com esse código eu devo criar a macro de reajuste.
Obrigada mais uma vez!

 
Postado : 05/03/2015 10:49 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Olá gmribeiro!
Os preços estão diferentes do seu arquivo porque eu fiz testes e acabei não retornando com os valores originais seus.
Eu fiz um pequeno ajuste nas suas fórmulas por conta de ter deixado o campo do reajuste como porcentagem. Já que você prefere sem porcentagem, farei os ajustes necessários, porém no momento estou num ambiente em que não consigo gerar arquivos xlsm, então vou tentar fazer esta alteração a noite.
Abs!

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 : 05/03/2015 11:38 am
(@gmribeiro)
Posts: 37
Eminent Member
Topic starter
 

Podemos deixar como está então, Rafael. Não se preocupe em refazer. Obrigada!

 
Postado : 05/03/2015 12:59 pm