Fórmula que soma no vba

[Leandro Moreno]

Preciso criar uma evento click que faça a seguinte funçao:

Quando clicar no botão faça a seguinte soma 

10/06/2022 + 30 para essa data transformar em 10/07/2022 e outro botão que faço ao contrário que diminua 30, que faça isso para uma sequência de linha na mesma coluna com datas diferentes. Alguém pode me ajudar.

[Alyson Ronnan Martins]

Boa noite @Leandro Moreno

Você tem algum print mostrando mais ou menos como deseja essa função?

Pensando que as informações vão esta dentro de um formulário pensei na seguinte possibilidade:

Formulário:

Código:
 

Private Sub btAcress_Click()
Dim x As Double
x = CVDate(tData)
x = x + tDias

tResultado.Value = Format(x, "DD/MM/YYYY")
End Sub

Private Sub btDecress_Click()
Dim x As Double
x = CVDate(tData)
x = x - tDias

tResultado.Value = Format(x, "DD/MM/YYYY")
End Sub

 

[Leandro Moreno]

9 horas atrás, Alyson Ronnan Martins disse:

Boa noite @Leandro Moreno

Você tem algum print mostrando mais ou menos como deseja essa função?

Pensando que as informações vão esta dentro de um formulário pensei na seguinte possibilidade:

Formulário:

Código:
 

Private Sub btAcress_Click()
Dim x As Double
x = CVDate(tData)
x = x + tDias

tResultado.Value = Format(x, "DD/MM/YYYY")
End Sub

Private Sub btDecress_Click()
Dim x As Double
x = CVDate(tData)
x = x - tDias

tResultado.Value = Format(x, "DD/MM/YYYY")
End Sub

 

Bom dia @Alyson Ronnan Martins

desde já agradeço a ajuda, segue o print de como eu desejo a função:

ao clicar na seta da direita soma 30 dias na coluna e na seta da esquerda diminua 30 dias da coluna.

 

[Alyson Ronnan Martins]

Uma dúvida, todos os dias devem ser alterados na coluna ou apenas o selecionado no formulário?

[Leandro Moreno]

2 horas atrás, Alyson Ronnan Martins disse:

Uma dúvida, todos os dias devem ser alterados na coluna ou apenas o selecionado no formulário?

Somente da coluna, estamos no mês 6, quando clicar a coluna muda pro mês 7 e mantém o dia, por isso acresentar mais 30. Se quiser me chamar no whatsapp (67) 9 99873329 

[Alyson Ronnan Martins]

Boa noite, como você mandou um print mostrando (mais ou menos) como deve ser a planilha eu fiz o seguinte código:

Public Sub btAcress_Click()
Dim valorNovo As Long
valorNovo = ActiveSheet.Range("K3").Value
btAtualizarDatas valorNovo
End Sub

Public Sub btDecress_Click()
Dim valorNovo As Long
valorNovo = ActiveSheet.Range("K3").Value * -1
btAtualizarDatas valorNovo
End Sub

Public Sub btAtualizarDatas(Valor As Long)
Dim planilhaNome            As String
Dim x                       As Long
Dim ultimaLinhaPlanilha     As Long

planilhaNome = "Simulação"
With Sheets(planilhaNome)
    ultimaLinhaPlanilha = .Cells(Rows.Count, "D").End(xlUp).Row
    For x = 2 To ultimaLinhaPlanilha
        If .Cells(x, "D").Value <> "" Then
            .Cells(x, "D").Value = .Cells(x, "D").Value + Valor
        End If
    Next x
End With
End Sub

Planilha para download e teste

Vídeo mostrando a planilha: vídeo

Avalia esse código.

[Leandro Moreno]

46 minutos atrás, Alyson Ronnan Martins disse:

Boa noite, como você mandou um print mostrando (mais ou menos) como deve ser a planilha eu fiz o seguinte código:

Public Sub btAcress_Click()
Dim valorNovo As Long
valorNovo = ActiveSheet.Range("K3").Value
btAtualizarDatas valorNovo
End Sub

Public Sub btDecress_Click()
Dim valorNovo As Long
valorNovo = ActiveSheet.Range("K3").Value * -1
btAtualizarDatas valorNovo
End Sub

Public Sub btAtualizarDatas(Valor As Long)
Dim planilhaNome            As String
Dim x                       As Long
Dim ultimaLinhaPlanilha     As Long

planilhaNome = "Simulação"
With Sheets(planilhaNome)
    ultimaLinhaPlanilha = .Cells(Rows.Count, "D").End(xlUp).Row
    For x = 2 To ultimaLinhaPlanilha
        If .Cells(x, "D").Value <> "" Then
            .Cells(x, "D").Value = .Cells(x, "D").Value + Valor
        End If
    Next x
End With
End Sub

Planilha para download e teste

Vídeo mostrando a planilha: vídeo

Avalia esse código.

Alyson, fico muito grato pela sua ajuda, e exatamente o que eu preciso. Muito mais muito obrigado mesmo. 🙏🏼🙏🏼

[Alyson Ronnan Martins]

Show.