Celle obbligatorie

[mpontic]

Ciao a tutti

Utilizzo per lavoro un file condiviso che compiliamo con vari dati.
Volevo chiedere se e' possibile fare in modo che il foglio excel non venga salvato (msg box di errore ad esempio) se non sono compilate alcune celle. Ovviamente il controllo andrebbe fatto sull'ultima riga compilata.
grazie mille

marco

[Flash30005]

I metodi possono essere diversi inoltre dovresti specificare meglio quante e quali sono le celle da "controllare", comunque...

Se devi controllare una sola cella puoi utilizzare questo codice:

Codice: Seleziona tutto

Private Sub Workbook_Open()
If Worksheets("Foglio1").Range("A3").Text = "" Then
MsgBox "Compilare la cella A3"
Cancel = True
End If
End Sub

Che dovrai inserire in Thisworkbook e non nel modulo

Se invece hai una serie contigua di celle puoi determinare l'area con numero colonna e numero riga e risolvere con questa macro (da inserire sempre in Thisworkbook ):

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ColI = 1
ColF = 4
RigaI = 2
RigaF = 5

For CC = ColI To ColF
For RR = RigaI To RigaF
If Worksheets("Foglio1").Cells(RR, CC).Text = "" Then
Set mc = Worksheets("Foglio1").Cells(RR, CC)
Worksheets("Foglio1").Cells(RR, CC).Select
MsgBox "Compilare la cella " & mc.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Cancel = True
End If
Next RR
Next CC

End Sub

In ambedue il messaggio avverte quale cella deve essere compilata e nel caso di area seleziona anche la cella

Fai sapere
Ciao

[Anthony47]

Oltre a quanto scritto da Flash, guarda anche qui viewtopic.php?f=26&t=77282 dove era stata discussa una richiesta analoga alla tua.

Ciao

[mpontic]

Grazie mille per l'ottima soluzione.
Nella vostra proposta viene impostato un controllo in range di colonne (e va benissimo) e in uno di righe. Si puo' fare in modo che il controllo venga fatto solo nell'ultima riga (quella che ipoteticamente l'utente sta compilando)?

Grazie mille

[Anthony47]

Humm...
Ok, si puo' fare in modo che sull' ultima riga tutte le celle (delle colonne che ti interessano) siano compilate; ma come si puo' capire se "l' ultima riga" e' stata compilata o se invece e' ancora tutta da compilare?

Ciao

[mpontic]

Si puo' ritenere compilata una riga con la prima cella popolata ad esempio.
Da tener conto del fatto che la colonna H e' gia' precomplilata da me. Il controllo va fatto da A a G.
Grazie

[Anthony47]

Allora puo' essere giusta l' interpretazione che "ultima riga" si considera l' ultima che ha H compilata? E che bisogna controllare che nelle colonne A:G di quella riga siano tutte compilate?
Se SI, allora dovrebbe essere Ok questa macro

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
LastRow = Cells(Rows.Count, 8).End(xlUp).Row
For Each Cella In Range("A1").Offset(LastRow - 1, 0).Range("A1:G1")
    If IsEmpty(Cella) Then Cancel = True
Next Cella
If Cancel Then
    MsgBox ("Le colonne A:G della riga " & LastRow & " non sono state ancora compilate " _
      & vbCrLf & "Il File NON E' STATO salvato")
End If
End Sub


Da mettere nel modulo ThisWorkbook in sostituzione di quanto hai gia' inserito.

Ciao, fai sapere.

[Flash30005]

Alla luce di queste ultime informazioni
puoi dare il valore effettivo alle variabili colF e rigaF

Codice: Seleziona tutto

ColI = 1
ColF = 7
RigaI = 2
RigaF = Range("H" & Rows.Count).End(xlUp).Row

'... il resto della macro rimane invariato
'...


Leggi il post di Anthony delle 22:29

Ciao

[mpontic]

Ottimo
siete dei maghi

grazie mille

[mpontic]

Ciao ragazzi,

torno a chiedervi aiuto.
Sempre in relazione alle celle obbligatorie, e' possibile rendere obbligatoria la compilazione di determinate celle in base al valore che compare in una colonna?
Esempio
Range di colonne M...Z
se M non e' vuoto allora rendi obbligatorie le colonne da N...U
se Q e' uguale al valore "FT" allora rendi obbligatoria la colonna X
se Q e' uguale al valore "FP" allora rendi obbligatoria la colonna Z
se Q e' diverso da "FT" allora rendi obbigatorie le colonne da AE...AI

Grazie sempre

[Anthony47]

Da programma si puo' fare quasi tutto, pero' mi pare che la domanda sia se lo possiamo fare noi, e alla lunga la risposta sara' "No, grazie".
Il mio suggerimento pertanto e' che ti fai nella cartella di lavoro, magari un foglio a se stante e protetto, uno specchietto riassuntivo di situazioni di errori, che normalmente descrive solo i vincoli, con un messaggio rosso in caso di errore; esempio, su due celle adiacenti in orizzontale:
1-Se presente [il significato di col M] compilare le colonne N-O-P-Q.....
2-Compilazione incompleta (in rosso) OPPURE VUOTO

Seguono i messaggi delle altre regole

In caso di uno o piu' errori, visualizzare un messaggio grande in rosso del tipo "COMPILAZIONE INCOMPLETA DEL MODULO"

A questo punto la tua Private Sub Workbook_BeforeSave puo' includere solo la riga
Sheets("Messaggi").Select

Il risultato sara' che il file viene salvato regolarmente ma l' utente dovrebbe avere chiaro il messaggio di quale regola non e' soddisfatta e che il lavoro e' incompleto.

Ciao