Risolto Check Box e somma

gazza1971

Utente abituale
Original poster
4 Giugno 2018
115
7
18
55
Legnano
Excel 365
Ciao a tutti,

ho creato questo file in allegato.

Non riesco ad inserire nel foglio B, in posizione C3-C5 (o il numero giusto in base alla scelta in B1) delle check box, che permettano la scelta dei DDT in colonna B.

Quasta scelta, e' finalizzata per poter utilizzare la scelta nella la formula in E3, in modo che vengano visualizzati solo i DDT scelti.

Grazie a chi mi puo' aiutare.
 

Allegati

  • TEST FORUM.xlsx
    17,3 KB · Visite: 9

gazza1971

Utente abituale
Original poster
4 Giugno 2018
115
7
18
55
Legnano
Excel 365
Ciao alfrimpa @alfrimpa
Vorrei che i checkbox fossero solo il numero dei DDT che appaiono, perche' possono variare cambiando scelta in B1, ma soprattutto di questi 3 ddt, vorrei poterne selezionere solo 2 e automaticamente il PIVOTPER presente in E3 si aggiorni con la scelta fatta.
 

Terio

Excel/Vba Expert
Supermoderatore
6 Gennaio 2021
29.006
6.352
2.345
55
Arce
2016, 2019, 365
Prova:
=PIVOTPER(DDT_APERTI[LEGA];DDT_APERTI[DocNum];DDT_APERTI[PESO];SOMMA;;0;1;;;SE(B1="";VERO;CONTA.SE(B1;DDT_APERTI[CardName])*VAL.NUMERO(CONFRONTA(DDT_APERTI[DocNum];FILTRO(B3#;SCARTO(B3#;;1));0))))

Lph9f8CkrtH_.png


Ciao.
 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
79.022
8.683
2.445
73
Napoli
Office 365
gazza1971 @gazza1971

Ma le checkbox devono essere materialmente inserite in colonna C in base al numero di codici presenti in colonna B (nel caso di DD solo 3)?

Che io sappia per inserire checkbox in maniera automatica con le formule non è possibile ci vuole una macro tipo questa da inserire nel modulo del foglio B

Ogni volta che varia la cella B1 in colonna C verranno inserite le relative checkbox

Visual Basic:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Target, Range("B1")) Is Nothing Then
    Application.EnableEvents = False
    Range("C3:C1000").Clear
    For Each cel In Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        If cel.Value <> "" Then
        cel.Offset(0, 1).CellControl.SetCheckbox
    End If
Next cel
 Application.EnableEvents = True
End If
End Sub
 
Ultima modifica:

gazza1971

Utente abituale
Original poster
4 Giugno 2018
115
7
18
55
Legnano
Excel 365
Terio @Terio Grazie mille funziona perfettamente.
Mi studiero' bene la formula

alfrimpa @alfrimpa grazie anche a te. Per le checkbox ho usato un "trucchetto" con la formattazione condizionale.
Praticamente se nella colonna B il valore e' vuoto, il carattere avra' colore bianco, qundi la checkbox non si vede.
Non sara' il massimo, ma puo' andare.

Grazie mille come sempre.
Forum fantastico
 

Terio

Excel/Vba Expert
Supermoderatore
6 Gennaio 2021
29.006
6.352
2.345
55
Arce
2016, 2019, 365
Grazie mille funziona perfettamente
Grazie a te per il riscontro e chiedi se servono spiegazioni.
Per le checkbox ho usato un "trucchetto" con la formattazione condizionale.
Praticamente se nella colonna B il valore e' vuoto, il carattere avra' colore bianco, qundi la checkbox non si vede.
Hai fatto benissimo, visto che con lo spill prendi solo quelle che ti occorrono,
ciao ed alla prossima.
 

alfrimpa

VBA Expert
Supermoderatore
18 Dicembre 2015
79.022
8.683
2.445
73
Napoli
Office 365
Beh non foss’altro per curiosità la macro si potrebbe pure provare il pc di certo non esplode.