Risultati da 1 a 4 di 4

Discussione: Problema con VBA per sistema a doppie e triple



  1. #1
    L'avatar di paciola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Età
    49
    Messaggi
    13
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0

    Problema con VBA per sistema a doppie e triple

    Salve a tutti
    Torno con un problema che mi aveva parzialmente risolto Ges qualche giorno fa.
    Ora ne ho un altro molto più grande per le mie capacità. Cerco di spiegarmi al meglio possibile.
    Questo file consiste nello sviluppo di un sistema a due/tre doppie con eventuale possibilità di gioco sul terzo segno trasformando ogni doppia in una eventuale tripla.
    Tramite un elenco a discesa nella cella F1 gestisco la possibilità di giocare due o tre doppie; se lascio 2 giocherò le 4 colonne che sono già evidenziate all’apertura del file, se invece inserisco il n. 3 automaticamente si popoleranno le celle da B6 a F6 e mi si evidenzieranno, sempre automaticamente, le schede dalla 5 alla 8 che mi permetteranno di giocare le 8 colonne integrali relative alle tre doppie.
    Fin qui funziona tutto ed è tutto a posto.
    Il problema mi si presenta quando devo andare a giocare le triple e vado a selezionare l’elenco a discesa che si trova nella cella M1.
    La sua funzione è quella di evidenziare nella cella G3 la scritta “2/X” in giallo. E fin qui tutto bene.
    Dopodiche devo inserire nella cella G4 la quota relativa al 3° segno della prima partita. Se inserite, ad esempio, il valore 15 vedrete che si attiveranno le schede 9, 10 e 26, 27 che sono le colonne che dovrei giocare per andare a coprire il 3° risultato della prima partita. La cosa che non riesco a fare è che quando queste schede si attivano, in automatico dovrebbe venire scritto nelle celle M17, E30, L43 ed M43 il valore 2 mentre quando la cella G4 torna ad essere vuota il valore 2 delle celle M17, E30, L43 e M43 deve sparire.
    Queste celle (M17,E30, L43 e M43) devono essere libere, cioè senza formule, in quanto il valore è opzionale e può essere cambiato manualmente .
    Ovviamente il problema ce l’ho anche quando inserisco le altre due quote relative alle altre due partite.
    Spero di essere stato chiaro altrimenti domandate pure, perché mi sono reso conto che spiegare questa cosa è stato già difficile per me, ma comprenderla per voi, che mi dovreste aiutare, potrebbe essere ancora più difficile.
    Grazie in anticipo.


    Davide
    File Allegati File Allegati

  2. #2
    L'avatar di paciola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Età
    49
    Messaggi
    13
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problema con VBA per sistema a doppie e triple

    Buonasera a tutti,
    nel caso non fossi stato chiaro nell'esposizione (potrebbe tranquillamente essere!!:171:) e se avete 10 minuti da perdere potete guardare questo video.
    In pratica vorrei rifare lo stesso foglio excel che è presente qui. (Spero di non aver sbagliato a postare questo link, nel caso me ne scuso).
    https://www.youtube.com/watch?v=7uigrIb3V2U

    Grazie
    Davide

  3. #3
    L'avatar di paciola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Età
    49
    Messaggi
    13
    Versione Office
    Office 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problema con VBA per sistema a doppie e triple

    Non c'è nessuno che riesce a darmi un aiuto?
    Nel caso non importa ragazzi, vi ringrazio ugualmente.:285:
    Un caro saluto a tutti.

    Davide

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Problema con VBA per sistema a doppie e triple

    Se ho capito bene basta aggiungere alla routine di evento "Worksheet_Change":
    Codice: 
        If Not Intersect(Range("G4"), Range(Target.Address)) Is Nothing Then
            If Target > 0 Then
                Range("M17,E30:M30,E43:M43") = 2
            Else
                Range("M17,E30:M30,E43:M43") = ""
            End If
        End If

Discussioni Simili

  1. [Risolto] eliminare righe doppie
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 19/01/17, 15:59
  2. [Risolto] ID righe doppie
    Di Paolerrai nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 27/10/16, 22:02
  3. Problema sistema calcolo ore settimanali
    Di jacobrs nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 01/06/16, 18:15
  4. riepilogo di più pronostici giocati per sistema con doppie
    Di kroma nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 21/02/16, 18:27
  5. Controllare l'errato inserimento di fatture doppie.
    Di rioma nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 10/02/16, 13:23

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •