Contador

2024 - VBA & Macros

Post Recente por Felipe Ecks 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,341 Visualizações

RSS

Felipe Ecks

(@ecks)

Posts: 48

Trusted Member

Topic starter

Bom dia, não estou conseguindo entender onde estou errando nestas linhas de código

Sub APAGAR()

Dim i As Long
Dim nplan As String

i = 1
nplan = "DIA" & i

MsgBox (nplan)

'Sheets(nplan).Select

i = i + 1

MsgBox (nplan)

End Sub

A intenção era a msgbox aparecer "DIA1" e posteriormente "DIA2" porém nas duas vezes aparecem "DIA1", ou seja... pelo que consegui notar a soma i= i+1 não está sendo realizada.
Porém, já tentei de inúmeras maneiras e não consegui resolver.
Se alguem puder me ajudar ficarei grato!

Postado : 26/09/2018 7:51 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Sub APAGAR()

Veja se é isso:

Dim i As Long
Dim nplan As String

i = 1
nplan = "DIA" & i

MsgBox (nplan)

'Sheets(nplan).Select

nplan  = i + 1

MsgBox (nplan)

End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 26/09/2018 7:56 am