Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

excel Nidificare Se

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

excel Nidificare Se

Postdi Statix » 25/04/09 18:14

ciao a tutti ,devo nidificare questi If per ottimizzare la macro
Codice: Seleziona tutto
Sub Esclusione_Biruote()


'Bari

If Range("$D$4").Value = True Then
Call Escludi_BaCa


'Cagliari
If Range("$E$4").Value = True Then
Call Escludi_BaCa

'Firenze
 If Range("$F$4").Value = True Then
Call Escludi_FiGe

'Genova
If Range("$G$4").Value = True Then
Call Escludi_FiGe

'Milano
If Range("$H$4").Value = True Then
Call Escludi_MiNa

'Napoli
If Range("$I$4").Value = True Then
Call Escludi_MiNa

'Palermo
If Range("$J$4").Value = True Then
Call Escludi_PaRm

'Roma
If Range("$K$4").Value = True Then
Call Escludi_PaRm

'Torino
If Range("$L$4").Value = True Then
Call Escludi_ToVe

'Venezia
If Range("$M$4").Value = True Then
Call Escludi_ToVe

End Sub
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: excel Nidificare Se

Postdi pietrol » 25/04/09 18:34

Ciao Statix
non so se ho capito, provo
per unire Bari e Cagliari
Codice: Seleziona tutto
'Bari Cagliari
If Range("$D$4").Value = True Or Range("$E$4").Value = True Then
    Call Escludi_BaCa
End If


ciao
pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34

Re: excel Nidificare Se

Postdi Statix » 25/04/09 19:55

Ciao pietrol tutto ok,avevo sbagliato a digitare una sub e per questo non ci riuscivo,
grazie.

ho quest'altro macro la vorrei ottimizzare
Codice: Seleziona tutto
Sub Seleziona_Ruota()
Sheets("BiRuote").Select
Range("BC5").Value = Range("A7").Value
Range("BK5").Value = Range("A7").Value
Range("BS5").Value = Range("A7").Value
Range("CA5").Value = Range("A7").Value
Range("CI5").Value = Range("A7").Value
'Bari
If Range("$D$4").Value = True Then
Range("BD5").Value = Range("D7").Value
Range("BL5").Value = Range("E7").Value
Range("BT5").Value = Range("F7").Value
Range("CB5").Value = Range("G7").Value
Range("CJ5").Value = Range("H7").Value
Range("Q2").Value = Range("D7").Value
Range("S2").Value = Range("E7").Value
Range("U2").Value = Range("F7").Value
Range("W2").Value = Range("G7").Value
Range("Y2").Value = Range("H7").Value


End If
'Cagliari
If Range("$E$4").Value = True Then

Range("BD5").Value = Range("I7").Value
Range("BL5").Value = Range("J7").Value
Range("BT5").Value = Range("K7").Value
Range("CB5").Value = Range("L7").Value
Range("CJ5").Value = Range("M7").Value
Range("Q2").Value = Range("I7").Value
Range("S2").Value = Range("J7").Value
Range("U2").Value = Range("K7").Value
Range("W2").Value = Range("L7").Value
Range("Y2").Value = Range("M7").Value



End If
'Firenze
If Range("$F$4").Value = True Then

Range("BD5").Value = Range("N7").Value
Range("BL5").Value = Range("O7").Value
Range("BT5").Value = Range("P7").Value
Range("CB5").Value = Range("Q7").Value
Range("CJ5").Value = Range("R7").Value
Range("Q2").Value = Range("N7").Value
Range("S2").Value = Range("O7").Value
Range("U2").Value = Range("P7").Value
Range("W2").Value = Range("Q7").Value
Range("Y2").Value = Range("R7").Value

End If
'Genova
If Range("$G$4").Value = True Then

Range("BD5").Value = Range("S7").Value
Range("BL5").Value = Range("T7").Value
Range("BT5").Value = Range("U7").Value
Range("CB5").Value = Range("V7").Value
Range("CJ5").Value = Range("W7").Value
Range("Q2").Value = Range("S7").Value
Range("S2").Value = Range("T7").Value
Range("U2").Value = Range("U7").Value
Range("W2").Value = Range("V7").Value
Range("Y2").Value = Range("W7").Value

End If
'Milano
If Range("$H$4").Value = True Then

Range("BD5").Value = Range("X7").Value
Range("BL5").Value = Range("Y7").Value
Range("BT5").Value = Range("Z7").Value
Range("CB5").Value = Range("AA7").Value
Range("CJ5").Value = Range("AB7").Value
Range("Q2").Value = Range("X7").Value
Range("S2").Value = Range("Y7").Value
Range("U2").Value = Range("Z7").Value
Range("W2").Value = Range("AA7").Value
Range("Y2").Value = Range("AB7").Value

End If
'Napoli
If Range("$I$4").Value = True Then
Range("BD5").Value = Range("AC7").Value
Range("BL5").Value = Range("AD7").Value
Range("BT5").Value = Range("AE7").Value
Range("CB5").Value = Range("AF7").Value
Range("CJ5").Value = Range("AG7").Value
Range("Q2").Value = Range("AC7").Value
Range("S2").Value = Range("AD7").Value
Range("U2").Value = Range("AE7").Value
Range("W2").Value = Range("AF7").Value
Range("Y2").Value = Range("AG7").Value

End If
'Palermo
If Range("$J$4").Value = True Then
Range("BD5").Value = Range("AH7").Value
Range("BL5").Value = Range("AI7").Value
Range("BT5").Value = Range("AJ7").Value
Range("CB5").Value = Range("AK7").Value
Range("CJ5").Value = Range("AL7").Value
Range("Q2").Value = Range("AH7").Value
Range("S2").Value = Range("AI7").Value
Range("U2").Value = Range("AJ7").Value
Range("W2").Value = Range("AK7").Value
Range("Y2").Value = Range("AL7").Value

End If

'Roma
If Range("$K$4").Value = True Then
Range("BD5").Value = Range("AM7").Value
Range("BL5").Value = Range("AN7").Value
Range("BT5").Value = Range("AO7").Value
Range("CB5").Value = Range("AP7").Value
Range("CJ5").Value = Range("AQ7").Value
Range("Q2").Value = Range("AM7").Value
Range("S2").Value = Range("AN7").Value
Range("U2").Value = Range("AO7").Value
Range("W2").Value = Range("AP7").Value
Range("Y2").Value = Range("AQ7").Value

End If
'Torino
If Range("$L$4").Value = True Then
Range("BD5").Value = Range("AR7").Value
Range("BL5").Value = Range("AS7").Value
Range("BT5").Value = Range("AT7").Value
Range("CB5").Value = Range("AU7").Value
Range("CJ5").Value = Range("AV7").Value
Range("Q2").Value = Range("AR7").Value
Range("S2").Value = Range("AS7").Value
Range("U2").Value = Range("AT7").Value
Range("W2").Value = Range("AU7").Value
Range("Y2").Value = Range("AV7").Value

End If
'Venezia
If Range("$M$4").Value = True Then
Range("BD5").Value = Range("AW7").Value
Range("BL5").Value = Range("AX7").Value
Range("BT5").Value = Range("AY7").Value
Range("CB5").Value = Range("AZ7").Value
Range("CJ5").Value = Range("BA7").Value
Range("Q2").Value = Range("AW7").Value
Range("S2").Value = Range("AX7").Value
Range("U2").Value = Range("AY7").Value
Range("W2").Value = Range("AZ7").Value
Range("Y2").Value = Range("BA7").Value
End If
'Nazionale
If Range("$N$4").Value = True Then
Range("BD5").Value = Range("AW4").Value
Range("BL5").Value = Range("AX4").Value
Range("BT5").Value = Range("AY4").Value
Range("CB5").Value = Range("AZ4").Value
Range("CJ5").Value = Range("BA4").Value
Range("Q2").Value = Range("AW4").Value
Range("S2").Value = Range("AX4").Value
Range("U2").Value = Range("AY4").Value
Range("W2").Value = Range("AZ4").Value
Range("Y2").Value = Range("BA4").Value
End If
Range("A2").Select

End Sub
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: excel Nidificare Se

Postdi pietrol » 26/04/09 00:37

Ciao Statix
ho guardato la tua macro ma dal punto di vista del codice è una seria di copia e incolla un po' difficile da migliorare.
Cosa intendi tu per ottimizzare?

pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34


Torna a Applicazioni Office Windows


Topic correlati a "excel Nidificare Se":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti

cron