cella obbligatoria

[frank_ciccioPartecipante frank_ciccio]

Ciao a tutti.

Per rendere obbligatoria una cella si può usare la convalida dati

=CONTA.VALORI($B7:$B7)=1

che nel workbook allegato è nel foglio convalida.

La stessa funzione è possibile con una macro?

Grazie

 

Allegati:

You must be logged in to view attached files.

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Prova con questo codice (sicuramente da migliorare per le tue esigenze) da inserire nel Modulo del Foglio interessato

`Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C7:P1580")) Is Nothing Then
  If Cells(Target.Row, 2) = "" Then
    MsgBox "Occorre mettere la data"
    Exit Sub
  End If
End If
End Sub`

Fai  sapere. Ciao,

Mario

[frank_ciccioPartecipante frank_ciccio]

Grazie marius44, funziona.

La macro è inserita in un workbook dove c'è una macro per eliminare righe.

Questa macro và in conflitto con la tua macro per data obbligatoria, non dovrebbe comparire l'avviso "data obbligatoria" dopo avere cliccato nel pulsante giallo "elimina riga selezionata"

Grazie

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao,

Quando elimini la riga non ti serve fare alcuna verifica, quindi non ti serve lanciare la macro Worksheet_Change.

Per fare ciò secondo me ti basta aggiungere il comando

Application.EnableEvents = False

Dopo la riga

Application.ScreenUpdating = False

Ovvero cominciando la macro così:

Sub eliminarigaselezionata_fogli()
Dim n As Long
Dim x As Long
Dim avviso As String
Dim nome1 As String
Application.ScreenUpdating = False
Application.EnableEvents = False
nome1 = ActiveSheet.Name
[...]

HO provato non mi dà più errore durante l'eliminazione riga

[frank_ciccioPartecipante frank_ciccio]

Grazie luca73

[Autore]

Articoli