Non esecuzione macro se..

[Ricky0185]

Salve, ho una macro principale "Rendiconto" che all'apertura richiama un'altra macro "Pulizia", completata la quale poi prosegue fino alla fine delle istruzioni. Vorrei che, se una certa cella del foglio fosse occupata,fosse inibita l'esecuzione della macro richiamata "Pulizia", ma poi continuasse l'esecuzione della macro principale "Rendiconto".
Semplice no ? Ma io non ci riesco, sia con Exit Sub che con End Sub.

Codice: Seleziona tutto

If ActiveSheet.Range("B14").Value = True Then
Non Eseguire Macro Pulizie 'ma poi continua con l'esecuzione della "Rendiconto"
Else 'se è zero
Esegui "Rendiconto"
Exit Sub
End If

Grazie dell'aiuto.
Saluti
R

[Ricky0185]

E aggirando il problema con il Select Case?

Codice: Seleziona tutto

x = Range("CA2").Value
Select Case x
    Case vbvuoto 'se CA2 vuota
    istruzioni della macro Rendiconto (senza quelle della macro Pulizia)
    Case Else 'se CA2 contiene valore
    istruzioni della macro Rendiconto (ma contenente anche quelle di Pulizia
End Select
End sub

In ambedue i casi istruzioni chilometriche.
Che ne pensate?

[Marius44]

Ciao
Se ho capito bene dovrebbe essere sufficiente il seguente codice

Codice: Seleziona tutto

Option Explicit

Sub Rendiconto()
If Range("A1") <> "" Then
  Call Pulizia
End If
Stop 'il tuo codice per Rendiconto
End Sub

Sub Pulizia()
Stop
End Sub


Cioè se la cella A1 è vuota esegue la macro Rendiconto, se invece è piena prima richiama Pulizia e poi esegue Rendiconto.
Ciao,
Mario

[Ricky0185]

ho una macro principale "Rendiconto" che all'apertura richiama un'altra macro "Pulizia

Cioè quando lancio Rendiconto la prima cosa che fa attiva la macro Pulizia. E se la cella CA2 è vuota combina un gran casino. Cioè Pulizia cancella tutte le righe della colonna A dove la cella di quella riga in colonna A è vuota. Capisci che se rilancio una seconda volta Rendiconto (cioè settimanalmente dopo le registrazioni) ed in colonna A non ci sono più celle vuote, con

Codice: Seleziona tutto

SpecialCells(xlCellTypeBlanks.Select

mi va a scegliere e poi cancellare tutte le righe vuote che stanno sopra a

Codice: Seleziona tutto

Range([A8], [A850].End(xlUp).SpecialCells(xlCellTypeBlanks).Select
    If Err = 0 Then
    Selection.EntireRow.Delete

Risolverei il problema inibendo il richiamo alla macro Pulizia che si trova all'inizio della macro Rendiconto solo se la cella CA2 fosse vuota.
In sostanza: Se la cella CA2 è vuota, esegui la macro Rendiconto senza lanciare la macro Pulizia in essa contenuta. Se la cella CA2 è piena lancia la macro Rendiconto che a sua volta esegue la macro Pulizia in essa contenuta.
Chiaro noo ? NO, ma se aspetti stasera vedo di spersonalizzare il file e poi lo pubblico.
Ti saluto

[Ricky0185]

È tutta colpa di Anthony che dice che con Excel si può fare tutto. Allora quando nasce un problema uno incomincia a smucinare prima nel proprio cervello e poi nel web visitando siti su siti e perdendo un mucchio di tempo inutilmente. Quando la soluzione sta sotto i tuoi occhi e basta un Marius (non dico qualunque perchè mi bacerei i gomiti a saperci fare come te) per fartela vedere.
Ho chiuso la soprastante risposta per rimettermi a lavorare ma la mente sempre la a scavare per uscirne. Poi seguendo la tua soluzione e modificandola leggermente....voilà trovato (ma debbo scriverla e provarla).
Cancello il richiamo alla macro Pulizia interna alla Rendiconto. Poi una nuova che Se CA2 è vuota esegui la Rendiconto, se piena esegui Pulizia ed a seguire Rendiconto.

[Anthony47]

Ma il suggerimento di Mario ha aiutato? Ora hai risolto o "Non ancora"?

[Ricky0185]

Risolto...con suggerimento di Mario che ringrazio e che mi ha fatto capire quanto principiante sono. La soluzione era li davanti, bastava guardare e ragionare.
Comunque tutte quelle macro sono tue insieme a tante altre e per infilarci dentro qualche altra istruzione bisogna esserci con la testa.
È sempre quel benedetto file che non riesco a scrollarmelo di dosso.
Salutoni a te e Mario
R