Notifications
Clear all

Implementar Codigo VBA

5 Posts
2 Usuários
0 Reactions
1,230 Visualizações
(@cesar)
Posts: 96
Trusted Member
Topic starter
 

Bom dia,

De inicio estou aprendendo VBA agora(iniciante mesmo), bem nesse modulo esta contando do
inicio pro fim, mais queria implementar do fim pro inicio de 20 em 20 de 30 em 30 de 4 em 4 e assim
sucessivamente, pergunto não seria melhor colocar em um botao de rotação e quando clicar iria implementando de 1 em 1 etc.
segue na planilha como exemplo, seria possivel? outra duvida assim que cadastrar o ultimo concurso ele pegar ele
reconhecer como ultimo.

Grato, qualquer duvida estou disponivel para esclarecer.

 
Postado : 10/12/2015 12:56 pm
(@edcronos2)
Posts: 346
Reputable Member
 

ve se atende

 
Postado : 10/12/2015 2:18 pm
(@cesar)
Posts: 96
Trusted Member
Topic starter
 

Ficou bom,

Pergunto tem como quando colocar no incremento 11 a caixa amarelo (N2:T21) ficar com so 11, se colocar 100 ficar com 100 e assim sucessivamente ou não?

Agradeço

Abraço

 
Postado : 10/12/2015 4:20 pm
(@edcronos2)
Posts: 346
Reputable Member
 

eu coloquei como valor de incremento
mas se vc quer que o valor limite seja o mesmo do incremento é só mudar na macro

Sub mais()
n = Cells(2, "n").Value2 + Cells(2, "n").Value2
If n < Cells(1, "l").Value2 + 19 Then Cells(2, "n").Value2 = n Else Cells(2, "n").Value2 = Cells(1, "l").Value2 - 19
End Sub

Sub menos()
n = Cells(2, "n").Value2 - Cells(2, "l").Value2
If n > 0 Then Cells(2, "n").Value2 = n Else Cells(2, "n").Value2 = 1
End Sub

 
Postado : 10/12/2015 4:32 pm
(@cesar)
Posts: 96
Trusted Member
Topic starter
 

Como lhe falei sou leigo em VBA, não sei onde coloco a modificação.

GRato

 
Postado : 10/12/2015 6:43 pm