Implementar Codigo VBA

2024 - VBA & Macros

Post Recente por Cesar 9 anos atrás

5 Posts

2 Usuários

0 Reactions

1,239 Visualizações

RSS

Cesar

(@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.

INTERVALO DE 20 EM 20.xlsm

Postado : 10/12/2015 12:56 pm

edcronos2

(@edcronos2)

Posts: 346

Reputable Member

ve se atende

Postado : 10/12/2015 2:18 pm

Cesar

(@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

(@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