| | Post: 60 | Registrato il: 12/04/2013
| Città: BARI | Età: 34 | Utente Junior | 2016 | | OFFLINE | |
|
28/02/2017 16:15 | |
Ciao ragazzi, nel file che vi allego mi servirebbe che nel foglio "resoconto" per ogni n° di settimana, e per ogni attività mi esca il numero delle volte in cui è presente la "x" nei diversi fogli. Capisco che cosi non si riesca a capire molto,spero che con il file sia più facile da capire. Nel file ho inserito a mano quello che dovrebbe essere il risultato, però vorrei una macro o formula che gestisca questo.
il file allegato presenta pochi fogli ma il file vero ha molti fogli per cui ho escluso la possibilità del Conta.più.se su più fogli.
Grazie |
|
| | Post: 3.731 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
28/02/2017 16:47 | |
Sub xxx()
rigax = 5
For Each sh In Worksheets
If sh.Name <> "resoconto" Then
For c = 2 To 53
If sh.Cells(rigax, c) = "x" Then
Sheets("resoconto").Cells(rigax, c) = Sheets("resoconto").Cells(rigax, c) + 1
End If
Next
End If
Next
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 60 | Registrato il: 12/04/2013
| Città: BARI | Età: 34 | Utente Junior | 2016 | | OFFLINE | |
|
28/02/2017 17:07 | |
Ciao, grazie per l'immediata risposta.
Vorrei però farti delle domande a riguardo, dato che lo devo sfruttare per il vero file:
1)per estenderlo a tutte le attività, e quindi a tutte le righe? (se non ho capito male, vale solo per la riga 5)
2)l'ho incollato nel codice di foglio "resoconto", ma come si attiva?
grazie |
| | Post: 3.733 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
28/02/2017 17:53 | |
2) lo devi mettere in un modulo come le altre macro, lo attivi con un pulsante o come fai per le altre macro.
1) tu hai chiesto solo per la x, comunque
Sub xxx()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For riga = 5 To LR
x = Cells(riga, 1)
For Each sh In Worksheets
If sh.Name <> "resoconto" Then
For c = 2 To 53
If sh.Cells(riga, c) = x Then
Sheets("resoconto").Cells(riga, c) = Sheets("resoconto").Cells(riga, c) + 1
End If
Next
End If
Next
Next
End Sub
però vuota la colonna A del foglio resoconto, ci sono caratteri invisibili
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
|
|