Condividi:        

Formula Excel (piccolo aiuto)

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 20/12/12 01:27

https://dl.dropbox.com/u/18220462/IMMAG ... azione.PNG

Mi dà errore di compilazione.
Ma probabilmente ho fatto un casino!

Visto che hai il file con le macro mi faresti tu la correzione e mi invii il file?
Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Sponsor
 

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 20/12/12 03:24

La mia tastiera ha fatto le bizze non è
Codice: Seleziona tutto
If UR < 12 The UR = 12

ma
Codice: Seleziona tutto
If UR < 12 Then UR = 12

Del resto "The" non esiste nel codice vba (If vuole sempre Then)
e dopo anni che ci segui potevi anche arrivarci da solo...
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 20/12/12 11:06

https://dl.dropbox.com/u/18220462/IMMAGINI/debug.PNG

Continuano a non funzionare, mi vanno in debug sia l'una che l'altra.
ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 21/12/12 01:54

Infatti è errata la/le righe codice (mia distrazione)

Codice: Seleziona tutto
'Questa riga dovrà divenire da così
    Columns("A:F").Interior.ColorIndex = xlNone

'a così
Range("A12:F65536").Interior.ColorIndex = xlNone

'idem questa
   Range("A12:G65536").Font.ColorIndex = 0


ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 21/12/12 02:42

https://dl.dropbox.com/u/18220462/IMMAG ... oraSe4.PNG

Ciao Flash vi è ancora errore in "ColoraSe4" che è la macro sugli isocronismi (colonna G).
Ciao

Anche in colonna "J" cella 1:11 i dati vengono cancellati!

Comunque lasciamo così, vorrà dire che elimino i dati superiori in righe 1:11.
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 21/12/12 02:50

Ma qual'è il file effettivo nel quale dovrebbe funzionare questa macro?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Formula Excel (piccolo aiuto)

Postdi Flash30005 » 21/12/12 02:55

Se è l'ultimo postato (nella pagina precedente di questo topic)
prova ad usare queste due macro modificate
Codice: Seleziona tutto
Sub ColoraSe4()
    Worksheets("Attuali").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    If UR < 12 Then UR = 12
    Range("A12:F65536").Interior.ColorIndex = xlNone
    Range("A12:F65536").Font.ColorIndex = 0
    Range("J12:J65536").Clear
    Range("G12:G65536").Clear
    Dim VR(10) As String
    For RR = 12 To UR - 1
    For ResetVR = 1 To 10
    VR(ResetVR) = ""
    Next ResetVR
    RF = RR
    RI = RR
        Str1 = Range("A" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
        Conta = 1
        VR(Conta) = Range("B" & RR).Value
        For RR2 = RR + 1 To UR
            Str2 = Range("A" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
            VR(Conta + 1) = Range("B" & RR2).Value
            If Str1 <> Str2 Then GoTo SaltaRR
            For RC = 1 To Conta
                For RC2 = RC + 1 To Conta + 1
                    If VR(RC) = VR(RC2) Then GoTo SaltaRR
                Next RC2
            Next RC
                RF = RR2
                RR = RR2
                Conta = Conta + 1
        Next RR2
SaltaRR:
    ColR = xlNone
    Select Case Conta
    Case 2
    ColR = 6
    Case 3
    ColR = 40
    Case 4
    ColR = 48
    Case 5
    ColR = 33
    Case 6
    ColR = 44
    Case 7
    ColR = 50
    Case 8
    ColR = 3
    Case 9
    ColR = 41
    End Select

    Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
    If Conta > 1 Then
    Range("G" & RI & ":G" & RF).Value = Conta
    Range("G" & RI + 1 & ":G" & RF).Font.ColorIndex = 2
    End If
    RR = RF
    Next RR
    End Sub

Sub ColoraSe3()
    Worksheets("Attuali").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    If UR < 12 Then UR = 12
    Range("A12:F65536").Interior.ColorIndex = xlNone
    Range("A12:F65536").Font.ColorIndex = 0
    Range("J12:J65536").Clear
    For RR = 12 To UR - 1
    RF = RR
    RI = RR
    AC = 0
    AggCol = Range("B" & RR).Value
        Str1 = Range("A" & RR).Value & Range("B" & RR).Value & Range("D" & RR).Value & Range("E" & RR).Value & Range("F" & RR).Value
        Conta = 1
        For RR2 = RR + 1 To UR
            Str2 = Range("A" & RR2).Value & Range("B" & RR2).Value & Range("D" & RR2).Value & Range("E" & RR2).Value & Range("F" & RR2).Value
            If Str1 <> Str2 Then GoTo SaltaRR
                RF = RR2
                RR = RR2
                Conta = Conta + 1
        Next RR2

SaltaRR:
    Select Case AggCol
    Case "Ba"
    AC = 0
    Case "Ca"
    AC = 9
    Case "Fi"
    AC = 10
    Case "Ge"
    AC = 11
    Case "Mi"
    AC = 12
    Case "Na"
    AC = 13
    Case "Pa"
    AC = 14
    Case "Ro"
    AC = 15
    Case "To"
    AC = 16
    Case "Ve"
    AC = 17
    End Select
    ColR = xlNone
    Select Case Conta
    Case 2
    ColR = 6
    Case 3
    ColR = 43
    Case 4
    ColR = 48
    Case 5
    ColR = 33
    End Select

    If ColR <> xlNone Then
    ColR = (ColR + AC) Mod 49
    If ColR = 0 Or ColR = 1 Then ColR = ColR + 10
    End If


    Range("A" & RI & ":F" & RF).Interior.ColorIndex = ColR
    If Conta > 1 Then
    Range("J" & RI & ":J" & RF).Value = Conta
    Range("J" & RI + 1 & ":J" & RF).Font.ColorIndex = 2
    End If
    If ColR = 11 Or ColR = 9 Or ColR = 13 Or ColR = 5 Or ColR = 21 Then
    Range("A" & RI & ":F" & RF).Font.ColorIndex = 2
    End If
    RR = RF
    Next RR
    End Sub


ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 21/12/12 02:59

E' l'unico file inviato; gli altri sono solo Immagini.

Provo queste due, grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 21/12/12 03:04

ORA CI SIAMO!!!

Funziona tutto correttamente.
Grazie per la pazienza e l'aiuto.

Notte
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Re: Formula Excel (piccolo aiuto)

Postdi Lucio Peruggini » 21/12/12 12:49

https://dl.dropbox.com/u/18220462/FILE/ ... %29%20.zip

Ciao Flash, non ci capisco più niente.
Stanotte quando hai postato le macro corrette le ho provate e funzionavano entrambe. Oggi ho aggiornato il foglio attuali e la macro "ColoraSe4" Isocronismi (colonna "G") non funziona più; bho!

Ciao

Mi edito:

Scusa, non avevo ordinato la colonna dei ritardi (grande-piccolo) e quindi non avevo le ruote miste per gli Isocronismi.

Funziona tutto perfettamente!!!
ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 896
Iscritto il: 24/01/11 16:23

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Formula Excel (piccolo aiuto)":


Chi c’è in linea

Visitano il forum: Nessuno e 70 ospiti