Doppia duplicazione VBA

Hai un problema con Excel?

Nuova discussione

Doppia duplicazione VBA
di BonoGiox (utente non iscritto) data: 27/12/2016 21:30:01
Ciao a tutti,
ho un problema con VBA per PPT. Provo a spiegarmi: tramite un ciclo IF ho stabilito che se viene soddisfatto il primo IF, la slides 3.1 venga duplicata UNA singola volta ( e questo funziona). Non saprei però come far duplicare 2 volte la stessa slide quando viene soddisfatto il secondo If e 3 volte quando viene soddisfatto il terzo If.

Grazie a tutti :) !

Private Sub CommandButton6_Click()
Dim a As Integer
a = TextBox18
Dim b As Integer
b = 5
    If a >= 2 * b And a < 3 * b Then Application.ActivePresentation.Slides(3).Duplicate
        If a >= 3 * b And a < 4 * b Then Application.ActivePresentation.Slides(3).Duplicate
            If a >= 4 * b And a <= 5 * b Then Application.ActivePresentation.Slides(3).Duplicate
            
    End
        End
            End Sub

di Marius44 data: 27/12/2016 23:06:08
Ciao
Non entro nel merito della macro (non mi sembra molto funzionale) ma ti consiglio di provare con quella sottostante.

Ciao,
Mario

Dim a As Integer
a = TextBox18
Dim b As Integer
b = 5
    
    If a >= 2 * b And a < 3 * b Then
        Application.ActivePresentation.Slides(3).Duplicate
    ElseIf a >= 3 * b And a < 4 * b Then
        Application.ActivePresentation.Slides(3).Duplicate
        Application.ActivePresentation.Slides(3).Duplicate
    ElseIf a >= 4 * b And a <= 5 * b Then
        Application.ActivePresentation.Slides(3).Duplicate
        Application.ActivePresentation.Slides(3).Duplicate
        Application.ActivePresentation.Slides(3).Duplicate
    End
End Sub

Vuoi Approfondire?