come attivare/disattivare una cella in base al contenuto della cella precedente? microsoft excel

Question

come attivare/disattivare una cella in base al contenuto della cella precedente?

vorrei che le celle BI5,BJ5,BK5 si attivassero solo in caso il contenuto (valore) della cella BH5 sii inferiore al 6,00.

esempio di quando la cella si deve attivare: 2,3,4,5.

ad esempio se il contenuto di BH5 è 4.00, le celle BI5,BJ5,BK5 devono essere modificabili.

se invece, il contenuto di BH5 è 6 o 7 o 8 o 9 o 10 (PARI O SUPERIORE AL 6.00), le celle BI5,BJ5,BK5 NON devono essere modificabili.

allego foto.

Answer 1

Ciao Gianfranco,

Durante l'adattamento del codice mi è sfuggito che non è necessario ed è ridondante disabilitare e riabilitare gli eventi perché 5la cancellazione o l'inserimento della validazione dei dati non attiva l'evento Worksheet_Change.

Quindi la versione che ho postato può essere semplificata così:

'========>>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, rCell As Range 

Set Rng = Intersect(Target, Range("BH5:BH1000")) 

If Not Rng Is Nothing Then 

    With Rng 

        .Offset(, 1).Resize(, 3).Validation.Delete 

        For Each rCell In Rng.Cells 

            With rCell 

                If .Value < 6 Then 

                    .Offset(0, 1).Resize(, 3).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= \_ 

                        xlBetween, Formula1:="1,2,3,4,5,6,7,8,9,10" 

                End If 

            End With 

        Next rCell 

    End With 

End If 

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao Gianfranco,

Come sai, per ragioni di efficienza, normalmente preferisco non selezionare gli oggetti, quindi, forse, considera di sostituire::

  Target.Offset(0, 1).Resize(1, 3).Select 



    With Selection.Validation 



        .Delete 



        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 



        xlBetween, Formula1:="1,2,3,4,5,6,7,8,9,10" 



  End With

con:

         With Target.Offset(0, 1).Resize(1, 3).Validation 

                .Delete 

                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 

                    xlBetween, Formula1:="1,2,3,4,5,6,7,8,9,10" 

         End With 

===

Regards,

Norman

Answer 3

ciao

elimina le convalide che hai

metti questa nel foglio interessato

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Range("BH5:BH1000")) Is Nothing Then 

Application.EnableEvents = False 

  Target.Offset(0, 1).Resize(1, 3).Select 

    With Selection.Validation 

        .Delete 

     End With 

If Target < 6 Then 

  Target.Offset(0, 1).Resize(1, 3).Select 

    With Selection.Validation 

        .Delete 

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 

        xlBetween, Formula1:="1,2,3,4,5,6,7,8,9,10" 

  End With 

     End If 

     End If 

     Application.EnableEvents = True 

End Sub 

poi scrivi un numero in BH5 ..funziona fino a BH1000

vediamo se ho capito

Answer 4

io non utilizzo nessuna formula per quelle celle. utilizzo solo una convalida dati ad elenco. l'elenco è composto da numeri da 0 a 10. spero abbia capito

ciao

con formule la vedo dura visto che parliamo di convalide

con il vba si può fare

ci dici che dati usi in convalida e da dove li prelevi

Answer 5

ciao

con formule la vedo dura visto che parliamo di convalide

con il vba si può fare

ci dici che dati usi in convalida e da dove li prelevi