Risultati da 1 a 13 di 13

Discussione: Problema su Macro per numero in un campo uguale ad altri



  1. #1
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Question Problema su Macro per numero in un campo uguale ad altri

    Buongiorno a tutti ragazzi sono nuovo del forum mi sto appassionando al VBA di excel e sto iniziando a smanettarci (per ora ottenendo NON in modo ortodosso alcune cose che mi ero prefisso, piano piano imparerò come si fa per bene e le scorciatoie più giuste).
    Vengo al dunque.
    Ho un problema su una Macro ovvero:
    In un range di due celle ad esempio AI12:AJ12 ho un nome (in AI12) ed un numero nella cella (AJ12) (mettiamo caso un 3) mentre Nella cella B1 ho un timer che mi scorre partendo da 1 per arrivare a 90.
    Ho detto al VBA che quando il numero presente nella cella AJ12 (esempio il 3) corrisponde al numero in B1 del cronometro mi deve copiare nel range (D12:E12) gli stessi valori, ovvero il nome ed il 3.
    Fin qui nessun problema...
    Nessun problema nemmeno quando in gioco ci sono anche 100 range, basta che i numeri nelle relative celle NON siano uguali tra loro.
    Il problema infatti mi nasce quando in un altro range simile ad esempio AN12:AO12 il numero nella cella AO12 è uguale a quello nella cella AJ12 (o in ogni altra cella che abbia un numero uguale) in questo caso il 3.
    Il Timer del VBA mi arriva al fatidico 3 e mi copia/incolla solo il primo range omettendo tutti gli altri che presentano il 3 (Ho un loop che mi lampeggia quando il timer arriva a 3 e trova un 3 nel range).
    Io vorrei che il VBA mi copiasse/incollasse tutti i range che hanno nomi diversi ma numeri uguali senza ometterli.
    Ovvero quando il timer arriva a 3 vorre che mi copiasse ad esempio...
    Pippo 3
    Pluto 3
    Paperino 3
    e non come ora solo Pippo 3 ripartendo dal 4 e non copiando Pluto e Paperino (Che bell'esempio :-) )
    Spero di essermi spiegato bene.
    Vi metto solo un pezzetto di codice che brutalmente ho scritto (vi prego di soprassedere alla rozzezza ma davvero ho iniziato ora).
    Spero sia sufficiente.
    Grazie a tutti in anticipo.

    Codice: 
    Sub Nexttick()
    
    
    If Sheets("G1").Range("B1") = 90 Then Exit Sub
    Sheets("G1").Range("B1").Value = Sheets("G1").Range("B1").Value + TimeValue("12:00:00") + TimeValue("12:00:00")
    
    
    If Sheets("G1").Range("b1").Value <= TimeValue("00:00:10") Then
    Sheets("G1").Shapes("CasellaDiTesto 100").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
    Sheets("G1").Shapes("CasellaDiTesto 100").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    
    
    If Sheets("G1").Range("B1").Value = Range("AJ12") Then
    Dim PauseTime, Start, Finish
    For x = 1 To 3
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    tempo
    Range("O6:P6").MergeCells = True 'Unisce le celle da O6:P6
    
    
    Sheets("G1").Range("O6:P6").Select
    ActiveCell.FormulaR1C1 = "Gooool"
    Sheets("G1").Range("O6:P6").Cells.Interior.ColorIndex = 6
    tempo
    Sheets("G1").Range("O6:P6").Cells.Interior.ColorIndex = 6
    Sheets("G1").Range("O6:P6").Select
    Selection.ClearContents ' Cancella "Gooool"
    
    Loop
    
    
    Finish = Timer
    
    
    Next x
    Sheets("G1").Range("O6").Cells.Interior.ColorIndex = xlNone
    Sheets("G1").Range("AI12:AJ12").Select
    Selection.Copy
    Range("D12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("G1").Range("A1").Select
    starttimer
    End
    
    
    End If
    If Range("D12") <> "" Then
    Range("E10") = 1
    End If
    
    
    starttimer
    
    If Sheets("G1").Range("B1").Value = Range("AO12") Then
    Dim PauseTime11, Start11, Finish11
    For x = 1 To 3
    PauseTime11 = 1
    Start11 = Timer
    Do While Timer < Start11 + PauseTime11
    DoEvents
    tempo
    Range("O6:P6").MergeCells = True 'Unisce le celle da O6:P6
    
    
    Sheets("G1").Range("O6:P6").Select
    ActiveCell.FormulaR1C1 = "Gooool"
    Sheets("G1").Range("O6:P6").Cells.Interior.ColorIndex = 6
    tempo
    Sheets("G1").Range("O6:P6").Cells.Interior.ColorIndex = 6
    Sheets("G1").Range("O6:P6").Select
    Selection.ClearContents
    
    Loop
    
    
    Finish11 = Timer11
    
    
    Next x
    Sheets("G1").Range("O6").Cells.Interior.ColorIndex = xlNone
    Sheets("G1").Range("AN12:AO12").Select
    Selection.Copy
    Range("I12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("G1").Range("A1").Select
    
    
    End
    End If
    @ Kinoppi
    Il codice VBA va racchiuso tra i TAG CODE; questa volta li aggiungo io e presta maggiore attenzione per il futuro.
    Relativamente al tuo problema allega anche un file di esempio.
    Invia MPPM 

  2. #2
    L'avatar di Dillina
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    1175
    Versione Office
    2013
    Mi Piace ricevuti
    143
    Mi Piace dati
    601

    Re: Problema su Macro per numero in un campo uguale ad altri

    Benvenuto Kinoppy!!
    Mentre aspettiamo che i ragazzi ti rispondano....ho visto che non sei passato dal VIA
    Ti aspetto per dirci qualcosa di te.

    Per mettere una simpatica foto dell'avatar potrai trovare le istruzioni QUI

    A presto!
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)
    Invia MPPM 

  3. #3
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Sorry, presentazione fatta e Kinoppi in primo piano
    Invia MPPM 

  4. #4
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2479
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    333
    Mi Piace dati
    49

    Re: Problema su Macro per numero in un campo uguale ad altri

    Come già detto in precedenza ti invito ad allegare un tuo file di esempio (strutturalmente uguale al tuo originale) con la spiegazione dettagliata, con riferimento al file, del risultato che vuoi ottenere.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."
    Invia MPPM 

  5. #5
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Ecco il file....
    Ripeto sono alle prime armi e conosco il 2% forse meno del potenziale di VBA quindi tutte le cose che ho fatto le ho fatte solo con le mie capacità e
    sicuramente con cicli for ad esempio o quant'altro sarebbe stato tutto più semplice ma... intanto mi accontento di aver creato questo.
    Il problema nasce quando cliccando su Inizio partita al 15' mi stampa solo Salah in D13 e non Dybala in I13 quando li vorrei tutti e due anzi se fossere in 10 li vorrei stampati tutti e 10:
    Ripeto il problema mi sorge quando ci sono minuti uguali, mi stampa solo il primo che trova.
    Grazie ragazzi in anticipo.
    P.s. se volete potenziare il file, snellirlo, ripulirlo da tutte le mie inesattezze... ben venga :-)
    http://www.filedropper.com/giochino
    Invia MPPM 

  6. #6
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2479
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    333
    Mi Piace dati
    49

    Re: Problema su Macro per numero in un campo uguale ad altri

    Ciao Kinoppi90

    Se posso permettermi darti un consiglio non postare mai file così complessi con numerosi fogli ed altrettante macro.

    Semplifica il problema suddividendo quello complessivo in tanti step più semplici e poni quesiti su quelli sui quali non riesci a risolvere o ad andare avanti.

    Poi dovrai essere tu, una volta risolti tutti gli step semplici, ad assemblare il tutto.

    Mia opinione personale: mettersi a studiare il tuo file ed il suo codice per capire come funziona in tutte le sue parti non credo che troverai molti disposti a farlo
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."
    Invia MPPM 

  7. #7
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Kinoppi90

    Se posso permettermi darti un consiglio non postare mai file così complessi con numerosi fogli ed altrettante macro.

    Semplifica il problema suddividendo quello complessivo in tanti step più semplici e poni quesiti su quelli sui quali non riesci a risolvere o ad andare avanti.

    Poi dovrai essere tu, una volta risolti tutti gli step semplici, ad assemblare il tutto.

    Mia opinione personale: mettersi a studiare il tuo file ed il suo codice per capire come funziona in tutte le sue parti non credo che troverai molti disposti a farlo
    Certo che puoi darmi consigli anzi... Grazie mille.
    Domani proverò a scomporre la sub sperando di riuscirci a scomporla facendola funzionare e poi riallegherò il file con solo il problema.
    Grazie intanto dell'interessamento.
    Invia MPPM 

  8. #8
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Question Re: Problema su Macro per numero in un campo uguale ad altri

    Citazione Originariamente Scritto da Kinoppi90 Visualizza Messaggio
    Certo che puoi darmi consigli anzi... Grazie mille.
    Domani proverò a scomporre la sub sperando di riuscirci a scomporla facendola funzionare e poi riallegherò il file con solo il problema.
    Grazie intanto dell'interessamento.
    Allora, eccomi di nuovo qui. Sono riuscito a creare il file di esempio per spiegare meglio il problema che incontro.
    Come dicevo sto creando un giochino di calcio (alla buona eh) e incontro un problema quando il timer scorrendo arriva al minuto dove ci sono 2 gol insieme (per semplificare nell'esempio li ho messi nella stessa partita in questo caso al 10' minuto). Nel file che allego basta cliccare su avvio, parte il timer arriva al 5', lampeggia gol e correttamente scrive Marchisio al 5':
    Il problema lo incontro quando arriva al 10', come si potrà vedere la routine mi scrive solo Bonucci al 10' mentre omette completamente Kalinic al 10', questo perchè il minuto è lo stesso e lui mette il primo che trova.
    Vi chiedo gentilmente di suggerirmi la soluzione affinchè quando il timer raggiunge il minuto 10 mi scriva sia Bonucci 10' che Kalinic 10'.
    Questo mi servirà per far funzionare tutte le giornate del giochino.
    Spero di essermi spiegato bene.
    Vi allego sia il codice che il file per i suggerimenti su dove sbaglio.
    Un grazie in anticipo a tutto il forum.
    Codice: 
    Sub starttimer()Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
    End Sub
    Sub Squadreincampo()
    If Foglio1.Range("Q7") = "Juventus" Then
        Sheets("Formazioni").Select
        Range("S4:S13").Select
        Selection.Copy
        Sheets("Foglio1").Select
        Range("Q15").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        Range("Q7:R7").Select
    End If
    End Sub
    
    
    Sub nexttick()
    
    
    'If Foglio1.Range("B1") = 90 Then
    'MsgBox "Fine Partita!!!"
    'End If
    
    
    If Foglio1.Range("B1") = 90 Then Exit Sub
    Foglio1.Range("B1").Value = Foglio1.Range("B1").Value + TimeValue("12:00:00") + TimeValue("12:00:00")
    
    
    If Foglio1.Range("b1").Value <= TimeValue("00:00:10") Then
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    
    
    'Primo gol Juventus
    If Range("B1").Value = Range("R8") Then
    Dim PauseTime, Start, Finish
    For x = 1 To 3
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish = Timer
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q8:R8").Select
        Selection.Copy
        Range("D12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    End
    End If
    
    
    'Secondo gol Juventus
    If Range("B1").Value = Range("R9") Then
    Dim PauseTime2, Start2, Finish2
    For x = 1 To 3
    PauseTime2 = 1
    Start2 = Timer
    Do While Timer < Start2 + PauseTime2
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish2 = Timer2
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q9:R9").Select
        Selection.Copy
        Range("D13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    'Primo gol Fiorentina
    If Range("B1").Value = Range("S8") Then
    Dim PauseTime3, Start3, Finish3
    For x = 1 To 3
    PauseTime3 = 1
    Start3 = Timer
    Do While Timer < Start3 + PauseTime3
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish3 = Timer3
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q9:R9").Select
        Selection.Copy
        Range("F12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    starttimer
    End Sub
    
    
    Sub stoptimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
    End Sub
    File Allegati File Allegati
    Invia MPPM 

  9. #9
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Scusate c'era un piccolo errore di un range nel file che vi riallego... Però il problema mi rimane
    Codice: 
    Sub starttimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
    End Sub
    
    
    Sub nexttick()
    
    
    'If Foglio1.Range("B1") = 90 Then
    'MsgBox "Fine Partita!!!"
    'End If
    
    
    If Foglio1.Range("B1") = 90 Then Exit Sub
    Foglio1.Range("B1").Value = Foglio1.Range("B1").Value + TimeValue("12:00:00") + TimeValue("12:00:00")
    
    
    If Foglio1.Range("b1").Value <= TimeValue("00:00:10") Then
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    
    
    'Primo gol Juventus
    If Range("B1").Value = Range("R8") Then
    Dim PauseTime, Start, Finish
    For x = 1 To 3
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish = Timer
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q8:R8").Select
        Selection.Copy
        Range("D12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    End
    End If
    
    
    'Secondo gol Juventus
    If Range("B1").Value = Range("R9") Then
    Dim PauseTime2, Start2, Finish2
    For x = 1 To 3
    PauseTime2 = 1
    Start2 = Timer
    Do While Timer < Start2 + PauseTime2
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish2 = Timer2
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q9:R9").Select
        Selection.Copy
        Range("D13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    'Primo gol Fiorentina
    If Range("B1").Value = Range("S8") Then
    Dim PauseTime3, Start3, Finish3
    For x = 1 To 3
    PauseTime3 = 1
    Start3 = Timer
    Do While Timer < Start3 + PauseTime3
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish3 = Timer3
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("S8:T8").Select
        Selection.Copy
        Range("F12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    starttimer
    End Sub
    
    
    Sub stoptimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
    End Sub
    File Allegati File Allegati
    Invia MPPM 

  10. #10
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Citazione Originariamente Scritto da Kinoppi90 Visualizza Messaggio
    Scusate c'era un piccolo errore di un range nel file che vi riallego... Però il problema mi rimane
    Codice: 
    Sub starttimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
    End Sub
    
    
    Sub nexttick()
    
    
    'If Foglio1.Range("B1") = 90 Then
    'MsgBox "Fine Partita!!!"
    'End If
    
    
    If Foglio1.Range("B1") = 90 Then Exit Sub
    Foglio1.Range("B1").Value = Foglio1.Range("B1").Value + TimeValue("12:00:00") + TimeValue("12:00:00")
    
    
    If Foglio1.Range("b1").Value <= TimeValue("00:00:10") Then
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        Foglio1.Shapes("Caselladitesto 1").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    
    
    'Primo gol Juventus
    If Range("B1").Value = Range("R8") Then
    Dim PauseTime, Start, Finish
    For x = 1 To 3
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish = Timer
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q8:R8").Select
        Selection.Copy
        Range("D12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    End
    End If
    
    
    'Secondo gol Juventus
    If Range("B1").Value = Range("R9") Then
    Dim PauseTime2, Start2, Finish2
    For x = 1 To 3
    PauseTime2 = 1
    Start2 = Timer
    Do While Timer < Start2 + PauseTime2
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish2 = Timer2
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("Q9:R9").Select
        Selection.Copy
        Range("D13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    'Primo gol Fiorentina
    If Range("B1").Value = Range("S8") Then
    Dim PauseTime3, Start3, Finish3
    For x = 1 To 3
    PauseTime3 = 1
    Start3 = Timer
    Do While Timer < Start3 + PauseTime3
    DoEvents
    tempo
    ' Fai lampeggiare "Gooool"
    Range("E1").Select
        ActiveCell.FormulaR1C1 = "Gooool"
    Range("E1").Cells.Interior.ColorIndex = 6
    tempo
    Range("E1").Cells.Interior.ColorIndex = 6
    Range("E1").Select
        Selection.ClearContents ' Cancella "Gooool"
    Loop
    Finish3 = Timer3
    
    
    Next x
    Range("E1").Cells.Interior.ColorIndex = xlNone
     Range("S8:T8").Select
        Selection.Copy
        Range("F12").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    Range("A1").Select
    starttimer
    
    
    End
    End If
    
    
    starttimer
    End Sub
    
    
    Sub stoptimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
    End Sub
    Nessuno che sa darmi una mano?
    Invia MPPM 

  11. #11
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    72
    Messaggi
    1570
    Versione Office
    Excel2007
    Mi Piace ricevuti
    400
    Mi Piace dati
    100

    Re: Problema su Macro per numero in un campo uguale ad altri

    Ciao
    solo due domande:
    a) come fanno a segnare un gol due giocatori nella stesso minuto nella stessa partita?
    b) hai letto il regolamento?

    In merito alla seconda domanda dai uno sguardo a questo indirizzo. Come dovresti sapere in queso Forum il Crossposting non è ammesso.
    Lascio ad Alfredo (ciao) la chiusura della discussione, salvo tue esaurienti spiegazioni.

    Ciao,
    Mario
    Invia MPPM 

  12. #12
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Problema su Macro per numero in un campo uguale ad altri

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao
    solo due domande:
    a) come fanno a segnare un gol due giocatori nella stesso minuto nella stessa partita?
    b) hai letto il regolamento?

    In merito alla seconda domanda dai uno sguardo a questo indirizzo. Come dovresti sapere in queso Forum il Crossposting non è ammesso.
    Lascio ad Alfredo (ciao) la chiusura della discussione, salvo tue esaurienti spiegazioni.

    Ciao,
    Mario
    Ciao Mario
    In merito alla tua seconda domanda l'unica risposta che posso darti e la più sincera è che ho postato il quesito 4 giorni fa (lungi da me polemiche) nessuno mi ha dato risposte (assolutamente non le pretendevo) e le ho cercate in un altro forum.
    Questa in tutta sincerità è la mia risposta.
    Se volete chiudere il post lo capisco.
    Saluti
    Marco
    Invia MPPM 

  13. #13
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2479
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    333
    Mi Piace dati
    49

    Re: Problema su Macro per numero in un campo uguale ad altri

    Ciao kinoppi90

    Capisco le tue motivazioni ma prima di aprire la medesima discussione su altro forum avresti dovuto darne preventiva comunicazione qui manifestando le motivazioni che ti hanno indotto ad agire in tal modo.

    Comunque visto che il Regolamento impone la chiusura del thread non posso comportarmi diversamente.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."
    Invia MPPM 

Discussioni Simili

  1. Comando Query: trasformare campo da stringa a numero
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 29/11/16, 12:22
  2. Problema formula progressiva collegata ad altri fogli
    Di ale87 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 19/05/16, 14:14
  3. Unione Celle con contenuto uguale con macro vba.
    Di Mastorin nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 28/04/16, 22:54
  4. Numero negativo uguale a 0
    Di claudiopsr nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 28/02/16, 16:16
  5. macro che parte da altri fogli
    Di Alessandro nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 09/10/15, 16:15

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
  •