Pagina precedente | 1 2 3 4 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

messaggio di errore con due celle piene

Ultimo Aggiornamento: 21/06/2020 09:46
Post: 591
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
ONLINE
05/11/2017 23:00

Un saluto a tutti.
Come spesso capita arrivo tardi, tant'è, ecco la mia diversa versione di macro:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, Uni0n(Range("C14:C60"), Range("J14:J60"))) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case 3
            If WorksheetFunction.CountA(Range("J14:J60")) > 0 Then
                MsgBox "Non puoi scrivere in questa cella se colonna J non è vuota"
                Exit Sub
            End If
        Case 10
            If WorksheetFunction.CountA(Range("C14:C60")) > 0 Then
                MsgBox "Non puoi scrivere in questa cella se colonna C non è vuota"
                Exit Sub
            End If
    End Select

End Sub

Per la precisione Uni0n si scrive Union (con la "o" e non con lo "zero")
[Modificato da rollis13 05/11/2017 23:20]

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 3 4 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:05. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com