comando pulsante invio

Hai un problema con Excel?

Nuova discussione

comando pulsante invio
di Pippo (utente non iscritto) data: 14/01/2014 18:34:01
Buonasera,
come da file allegato ho tre caselle di controllo, un pulsante denominato "clear" ed un altro pulsante denominato "invio".
Fino ad oggi ho assegnato alle caselle di controllo un codice tale per cui alla selezione compare un determinato grafico come vi posto sotto; al pulsante clear, invece, assegno un codice macro che mi cancella le selezioni effettuate. Per il pulsante "Invio" vorrei che a seconda delle selezioni effettuate nelle caselle di controllo, vengano presentati i grafici....per meglio spiegare...vorrei che un utente prima selezioni le caselle di controllo di suo interesse, poi schiacciando il pulsante "invio" veda comparire i suo grafici.....ad oggi invece selezionando una casella di controllo compare subito il grafico...

Ad oggi:
Per le caselle di controllo esempio:
Sub graf1()
Sheets("grafico 1").Visible = True
Sheets("grafico 1").Select
End Sub

Per il pulsante clear:
Sub clear()
Worksheets("inserimento").Unprotect Password:="pippo"
ActiveSheet.Shapes("Casella di controllo 9").OLEFormat.Object.Value = False
ActiveSheet.Shapes("Casella di controllo 11").OLEFormat.Object.Value = False
ActiveSheet.Shapes("Casella di controllo 13").OLEFormat.Object.Value = False
Worksheets("inserimento").Protect Password:="pippo"
End Sub

di patel data: 15/01/2014 05:33:31
hai allegato una macro in vba, OO usa un basic suo (piuttosto complicato) che devi imparare per poter programmare
di patel data: 15/01/2014 05:35:46
scusami,credevo di essere sul forum di openOffice
di patel data: 15/01/2014 05:40:15
Però hai allegato un file xlsx senza grafici ed ovviamente senza macro
di Pippo (utente non iscritto) data: 15/01/2014 09:45:48
Partel ho allegato il file con i grafici e le macro...avevo sbagliato ieri a caricare il file...

di patel data: 15/01/2014 10:47:49
Togli l'associazione delle macro alle caselle di controllo, associa la macro invio al pulsante invio e prova questa macro

Sub graf1()
Sheets("graf 1").Visible = True
Sheets("graf 1").Select
End Sub
Sub graf2()
Sheets("graf 2").Visible = True
Sheets("graf 2").Select
End Sub
Sub graf3()
Sheets("graf 3").Visible = True
Sheets("graf 3").Select
End Sub
Sub clear()
ActiveSheet.Shapes("Casella di controllo 1").OLEFormat.Object.Value = False
ActiveSheet.Shapes("Casella di controllo 3").OLEFormat.Object.Value = False
ActiveSheet.Shapes("Casella di controllo 5").OLEFormat.Object.Value = False
End Sub
Sub Invio()
If ActiveSheet.Shapes("Casella di controllo 1").ControlFormat.Value = xlOn Then Call graf1
If ActiveSheet.Shapes("Casella di controllo 3").ControlFormat.Value = xlOn Then Call graf2
If ActiveSheet.Shapes("Casella di controllo 5").ControlFormat.Value = xlOn Then Call graf3

End Sub

di Pippo (utente non iscritto) data: 15/01/2014 11:21:22
Non funziona...ti riallego il file dove ho inserito la macro
di patel data: 15/01/2014 12:56:40
ti avevo detto di togliere l'associazione delle macro alle caselle di controllo
di Pippo (utente non iscritto) data: 15/01/2014 13:51:41
Non funziona comunque....riepilogando tra le mie macro devo avere quella relativo al clear che associo al tasto clear...poi quella relativa al tasto invio che associo al tasto invio...mentre quelle relative a graf 1,2,3 le cancello?
di patel data: 15/01/2014 15:07:25
No, le macro graf1,2,3 rimangono, non devono essere associate alle caselle caselle di controllo.
Quindi tasto destro su ciascuna casella, assegna macro, cancelli la voce
di Pippo (utente non iscritto) data: 15/01/2014 19:03:52
prova a selezionare due caselle e schiacciare invio..non va...ti allego il file
di patel data: 15/01/2014 20:28:04
come fai a vedere 2 grafici contemporaneamente ? è ovvio che non va, puoi renderli visibili, ma non attivare 2 fogli insieme
di Pippo (utente non iscritto) data: 15/01/2014 20:32:08
Ah ok...io chiedevo infatti se si potesse, schiacciando il tasto "invio", vedersi aprire due pagine in cui vi sono due grafici differenti...
A questo punto tengo il codice che mi hai dato?

di patel data: 15/01/2014 20:38:21
a parte questo c'è un errore nel codice, sostituisc la sib invio con questa

Sub invio()
If ActiveSheet.Shapes("Casella di controllo 1").ControlFormat.Value = xlOn Then
  Call graf1
  Exit Sub
ElseIf ActiveSheet.Shapes("Casella di controllo 2").ControlFormat.Value = xlOn Then
  Call graf2
  Exit Sub
ElseIf ActiveSheet.Shapes("Casella di controllo 3").ControlFormat.Value = xlOn Then Call graf3
End If
End Sub

di Pippo (utente non iscritto) data: 15/01/2014 21:01:16
Grazie! sei davvero molto molto bravo e disponibile!

Vuoi Approfondire?