istruzione IF THEN ELSE

Hai un problema con Excel?

Nuova discussione

istruzione IF THEN ELSE
di SebyxHD data: 10/05/2016 22:15:46
salve gente, rieccomi per un nuovo quesito, forse voi riuscirete sicuramente a venirne a capo. Io ahimè sono una schiappa. Ho bisogno di fare un test, prima di eseguire un istruzione. Nella fattispecie se la mia cella "P205" è diversa da "0" vorrei che mi continuasse l'istruzione altrimenti vorrei che passasse alla macro successiva. grazie in anticipo

Sub RITARDMENO1()

' RITARDATARI -1
    Range("O180:O198").Select
    Selection.ClearContents
    Sheets("FREQUENZE").Select
    Range("Q115").Select
    If Range("P205") <> 0 Then Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeFormulas, 1).Select , Selection.Copy, Sheets("STUDIO (5)").Select
    Range("O180").Select
    Selection.PasteSpecial , Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Else
    Call RITARDMENO2
    
    End If
    
End Sub

di patel data: 11/05/2016 09:04:07
troppi select e selection che sono assolutamente da evitare, non ci si capisce niente.
Allega un file di esempio e spiega cosa vuoi fare

Vuoi Approfondire?