messaggio x celle vuote

Hai un problema con Excel?

Nuova discussione

messaggio x celle vuote
di Kirotta (utente non iscritto) data: 21/01/2014 20:27:04
Ciao a tutti

In un File che ho allegato vorrei che il programma mi segnalasse con un messaggio x colonna quando al sesto numero apparso in colonna B (non considerando lo 0) nella colonne C o D o E le prime 6 celle (quindi da C2 a C7 - D2 a D7 - E2 a E7) non contengono nessun valore.

Spero di essere stata chiara
di Grograman (utente non iscritto) data: 22/01/2014 08:45:06
Per niente

Oltre che "x" per me è una variabile e non una preposizione!

di Kirotta (utente non iscritto) data: 24/01/2014 03:42:40
Ciao a tutti
Vorrei che il programma che stò creando mi segnalasse con un messaggio per ogni colonna quando al sesto numero apparso in colonna B (non considerando lo 0) nella colonne C o D o E o F o G o H le prime 6 celle (quindi da C2 a C7 - D2 a D7 - ecc) non contengono nessun valore.

La colonna B è inizialmente vuota xchè i numeri che andrebbero a riempirla gli inserisco dalla Form tramite il tasto Start, questi numeri a mano a mano che compaiono nella colonna B secondo dei criteri vengono copiati nelle colonne C,D,E,F,G,H quindi può capitare di avere in una o più colonne più celle vuote. A me servirebbe sapere con un messaggio se al sesto numero uscito in colonnaB (B2:B7 se esce lo 0 è come se non è apparso nessun numero) non ho valori in una o più colonne e qual'e o quali sono le colonne.

B C D E F G H
1 1 2 6 1 6
2 1 2 1
3 1 2
0 1
1 2
6
2

Sono usciti 7 numeri ma visto che lo 0 non lo considero ho 6 numeri
e la colonna H vuota quindi messaggio "colonna H vuota"

Ho provato con una colonna ma non va e non sò come tener conto delle uscite

Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Foglio As String
Dim Zona As String
Dim Colonna As String
Foglio = "Foglio1"
Zona = "C2:C7"

Worksheets(Foglio).Activate
For Each Colonna In Range(Zona)
If IsEmpty(Colonna) Then
GoTo ErrColonnaVuota
End If
Next
Exit Sub
ErrColonnaVuota
'MsgBox "La colonna" & Colonna.Address & " è vuota!", , "Errore!" 'messaggio
ActiveSheet.Range(Colonna.Address).Select 'seleziona la Colonna vuota
'Cancel = True 'annulla il salvataggio

End Sub

Vuoi Approfondire?