Problema con ciclo vba

[serra]

Salve, sto cercando di imparare a usare i cicli ma non riesco a capire come impostarlo, provo a mettervi un esempio pratico:

Codice: Seleziona tutto

Sheets("Dati").Activate
For X = 1 To 12
fogliomese = Range("mesiscadenze").Cells(X, 1)
Sheets(fogliomese).Activate
'varie operazioni su ogni foglio
Next X
End Sub

Il problema sorge quando invece che da 1 a 12 elementi ce ne sono tipo 7/8.. purtroppo ogni volta cambiano e non so quanti ce ne saranno, tranne che al massimo sono 12, quindi arrivato all'ultimo elemento per esempio il 7, ovviamente la macro va in errore.
So che devo inserire una cosa del genere

Codice: Seleziona tutto

If fogliomese = "" Then GoTo fine
fine:

in modo che appena x da 1 a 12 diventa un range vuoto si fermi il ciclo e la macro si chiuda senza errori, ma non trovo dove inserire correttamente la stringa nel codice precedente.
Se qualcuno può aiutarmi ne sarei molto grato

[serra]

forse ho trovato una soluzione funzionante

Codice: Seleziona tutto

Sheets("Dati").Activate
For X = 1 To 12
fogliomese = Range("mesiscadenze").Cells(X, 1)
If fogliomese = "" Then
Exit For
End If
Sheets(fogliomese).Activate
'operazioni
Next
End Sub

Preferisco comunque una vostra opinione per essere sicuro che sia il modo migliore

[wallace&gromit]

In genere per evitare che il ciclo continui oltre i limiti si imposta il limite massimo, quindi invece di 12 metti una variabile, il cui valore lo ottieni con una ricerca, visto che lavori con le righe, per esempio, definisci UR (ultima riga):

Codice: Seleziona tutto

UR = Cells(1,1).End(xlDown).Row
For X = 1 To UR...

P.S. Ops, forse ho interpretato sbagliato il tuo set di dati: dovrai verificare a quale riga corrisponde Cells(1,1) del tuo range e modificare di conseguenza il valore di UR.

[Anthony47]

Un'altra alternativa possibile:

Codice: Seleziona tutto

For I = 1 To ActiveWorkbook.Worksheets.Count
    Sheets(I).Select
    '
    'le tue operazionei
    '
Next I

Ciao

[serra]

Ha vinto soluzione di wallace&gromit, che funziona perfettamente
Vorrei porvi un altro quesito senza sporcare il forum:

Codice: Seleziona tutto

Sub SISTEMASI()
Sheets("DDE").Select
Range("H4").Select

With ActiveCell
            .Offset(0, 0).Formula = "=SE(A6<>"""";""SI"";""NO"")"
       End With
End Sub


Non funziona, possibile che non si riesca a impostare questa formula tramite vba? (L'esempio è solo su una cella, ma dopo verrebbe eseguita su molte altre)

[Anthony47]

Devi studiare la differenza che c'e' tra ".Formula" e ".FormulaLocal".... e optare per la seconda.