Bersagli consegnati

Hai un problema con Excel?

Nuova discussione

Bersagli consegnati
di Nardecchia data: 23/03/2015 19:56:55
Buona sera e buon lavoro a tutti del Forum.
Eccomi di nuovo con un problemino, sempre per il foglio per la gestione delle Gare di tiro a Segno, che è questo:
Alla colonna "Bersagli dati" che va da H-I9 fino fine colonna HI298, dove nelle celle, solo in corrispondenza del nome del Gareggiante, va inserito il numero dei bersagli consegnati più volte; vorrei che man mano che inserisco il numero, questi venga aggionato dandomi ogni volta il totale, es. Michele N. Bersagli dati: 4 poi 3=7, poi 5=12 ecc. Così a fine gara sappiamo quanti bersagli ha usato ogni concorrente.
Ho copiato questa Macro sotto allegata che ho cercato di adattare, ma senza risultato, in quanto non sono riuscito a espanderla a tutta la colonna, e poi mi calcola solo i numeri diversi; es.: se nella cella c'è un 4 come totale al momento, e inserisco un'altro 4, non lo somma, solo se il nr. è diverso.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [A1] = 0 Then

[B1] = 0

End If

If [A1] = "" Then

[B1] = ""

End If

If [A1] <> [B1] Then

[A1] = [B1] + [A1]

[B1] = [A1]

End If

End Sub

Potete darmi quest'ultima mano a perfezionare questo foglio per le nostre Gare?
Allego il File con il Foglio completo che Mister_X conosce molto bene, e grazie a lui che mi ha aiutato.
Attendo con fiducia
Grazie e buon lavoro a tutti
Michele

di Mister_x (utente non iscritto) data: 23/03/2015 21:50:25
ciao

alla fine questo programmino lo passiamo alla federazione tiro con l'arco

comunque adesso per fare questo lavoro bisogna utilizzare 2 sub() una che fa il calcolo
laltra che azzera altrimenti non si potrebbe azzerare il contatore

ps se metti qualche bersaglio in piu' per toglierlo basta inserire il valore col segno -
inserimento
in H:H cella grigia tu metti il valore incella gialla funziona il contatore
non puoi scrivere nella cella gialla

allego file con le sub inserite

ciao

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H9:H298")) Is Nothing Then Exit Sub
On Error GoTo Fine
Application.EnableEvents = False
Dim Nriga As Long
Nriga = Target.Row
If Nriga / 2 - Fix(Nriga / 2) = 0 Then
  MsgBox " cella non abilitata allinserimento del valore"
  Application.Undo
  GoTo Fine
End If
If Cells(Nriga, 1) = "" Then
   MsgBox "Nominativo non presente" & Chr(13) & Chr(13) & " Inserire nominativo"
   Application.Undo
   GoTo Fine
End If
Cells(Nriga + 1, "H") = Cells(Nriga + 1, "H") + Target.Value
Target = ""
Fine:
Application.EnableEvents = True
End Sub

Sub AzzeraBersagli()
Dim SiNo, Style
Style = vbYesNo + vbCritical + vbDefaultButton2
Application.EnableEvents = False
SiNo = MsgBox("Confermi Azzeramento dei bersagli", Style)
 If SiNo = vbYes Then Range("H9:H298") = ""
Application.EnableEvents = True
End Sub

di Nardecchia data: 23/03/2015 23:49:19
Ciao Mister_x, un Grazie di Cuore! ora è perfetto.
Farò tesoro del tuo aiuto e insegnamento, e soprattutto Grazie a questo Forum che aiuta alla Grande.
Se dovesse servire, usalo o fallo usare tranquillamente.
Buon lavoro a Tutti.

Michele

di Mister_x (utente non iscritto) data: 23/03/2015 23:56:09
ciao

intanto che vedevo il film ti ho inserito un altro pezzetto di utilita'
lo storico dei valori inseriti dei bersagli in colonna AP:AP questa e colegata con la colonna dei bersagli e si azzera anche lei quando fai azzeramento di questa

ti riallego il file nuovo

ciao

pezzetto di sub inserita nuova

Cells(Nriga + 1, "H") = Cells(Nriga + 1, "H") + Target.Value
Cells(Nriga, "AP") = Cells(Nriga, "AP") & " " & Target.Value  ''Storico
Target = ""

If SiNo = vbYes Then
     Range("H9:H298") = ""
     Range("AP9:AP298") = ""  ''storico
 End If

di Nardecchia data: 24/03/2015 12:15:39
Grazie!!!! Ora lo provo.
Scusami ma, per proteggere solo tutte le celle che contengono le Formule, in modo che nessuno possa modificarle o cancellarle inavvertitamente durante gli inserimenti, come debbo procedere?
Grazie
Ciao
Michele
di MIster_x (utente non iscritto) data: 24/03/2015 15:15:57
ciao

bisogna togliere il blocco a quelle da scrivere e mettere la pass ai fogli
vedi quello che ti posto
PS le pass sono nulle

ciao
di Nardecchia data: 24/03/2015 17:50:59
Ciao Mister_x, così come l'hai protetto va benissimo però, è protetto anche nell'intestazione dopo i : punti, dove va inserito il tipo di Gara. Es. Club Tiro a Segno Nulvi Gara: "In Memorial di ........" o "1° Campionato Invernale", ecc.
Quindi dopo Gara: devo poter inserire il Titolo della Gara, come la data.
Potrei sproteggerlo e farlo io, però poi non so se riesto a riproteggerlo come hai fattu Tu.
Poi mi dici che la password è nulla, cioè non c'è bisogno di accedere con password per sproteggerlo?
Non mandarmi a ......... Ormai confido in Te.......
Grazie,
Ciao

Michele
di Mister_x (utente non iscritto) data: 24/03/2015 18:21:45
ciao

la pass e' nulla, nel senso che non ho messo nessun nominativo,
per togliere la protezione basta che fai in
revisione
rimuovi protezione foglio ,, non ti chiede niente
fai le tue modifiche , e finito fai sempre in
revisine
proteggi foglio , senza mettere nulla lascindo stare le spunte come le propone

puoi inserire altre caselle di testo e collegarle a delle celle, vedi la mia collegata esternamente per inserire la data
PS per fare questo lavoro devi prima selezionare la casella di testo, premere F2 , e nella barra delle formule scrivere, per esempio se la cella da collegare e' la A1 =$A$1 , e vdrai che tutto quello che scrivi nella cella verra riportato nella casella di testo vedi la mia

ciao
di Nardecchia data: 24/03/2015 18:40:17
OK Mister_x, ora ho una riunione e debbo andare, poi farò come mi hai detto.
Si lavora più da pensionato che quando ero in servizio nell'Arma.
Ti farò sapere. Grazie e buona serata........

Ciao

Michele
di Vecchio Frac data: 24/03/2015 20:34:08
Generalmente si lavora di più adesso rispetto a prima perchè si ha più tempo per fare le cose con la dovuta dedizione, calma e attenzione ^_^
di Nardecchia data: 25/03/2015 13:22:44
Cia Vecchi Frac, hai ragione, quando uno è in pensione può dedicarsi di più alla Famiglia e ai suoi hobby, con attenzione!!!

Ma scrivo anche per quanto riguarda il suggerimento dell'Amico Mister_x, riguardo all'inserimento della Casella di testo per indicare il tipo di Gara da svolgere, ed ho fatto questo:
Dopo la voce Gara: ho inserito la casella di testo, ho premuto F2 ed ho inserito la formula =$AP$6, riferita alla Cella AP6 dove si inserisce il tipo di Gara, e fin quì tutto bene, cioè: nella cella AP6 inserisco il tipo di Gara, es.: "1° Campionato Città di Nulvi" lo inserisce regolarmente nella Casella di testo che ho creato; però, quando vado a proteggere il foglio con la stessa protezione di prima, non posso più scrivere nella Cella AP6; mentre in quella della data da Te creata Mister_x posso insrire la data. Eppure ho controllato mi sembra giusto come la formula che hai inserito Tu, solo che la mia è riferita alla Cella AP6, sotto alla tua che è AP5.
Puoi dirmi dove faccio l'errore? Grazie
Ciao Mister_x e buona giornata.
Michele
di Nardecchia data: 25/03/2015 13:28:35
Ciao Mister_x,
Ti allego il File con la Casella di testo che ho inserito io, con la protezione senza password,
cosi puoi vedere dove sbaglio.

Ciao
di Nardecchia data: 25/03/2015 15:52:04
Ciao Mister_x
Ho risolto il problema della casella di testo, non mi faceva scrivere nella cell AP6, in quanto non l'avevo sprotetta prima di proteggere il foglio, e così rimaneva protetta anche lei.
Ora va tutto OK!! E grazie a Te!
Come Presidente del CTSN (Club Tiro a Segno Nulvi), posso presentarlo ai Soci ed usarlo, anche nell'addestramento al Tiro.
Grazie Mister_x e, Un Saluto a tutti del Forum.
Buon lavoro

Michele

Vuoi Approfondire?