Abilitare tresferimento dati mediante checbox

Hai un problema con Excel?

Nuova discussione

Abilitare tresferimento dati mediante checbox
di Lord pyron data: 20/07/2010
Salve, sono un nuovo fruitore di questo forum, ed avrei un quesito da porre a voi esperti.
(ho già provato con altri forum, ma non ho ricevuto risposte esaustive):
dovendo gestire una classifica, vorrei sapere se è possibile trasferire un punteggio ad una data stabilita solamente ai nominativi selezionati da ceckbox su un altro foglio che contiene sul range a2:a6 i nominativi,mentre su b1,c1,d1 ecc. le date delle manifestazioni.
eventualmente posso allegare il file così come l'ho strutturato.
grazie infinite per le eventuali consulenze
di Ricky53 (utente non iscritto) data: 20/07/2010
Ciao,
in linea teorica con il vba si può fare ttuto.
l'effettiva fattibilità/semplicità di realizzazione dipende delle condizioni e dai dati.

allega un file di esempio e descrivi con maggiori dettagli cosa vuoi fare.

ciao da ricky53
di Lord pyron (utente non iscritto) data: 20/07/2010
Ciao riky53, grazie per l'attenzione,
ho provato a inserire il link col file.rar (col sito uploading.com)
ma viene segnalato un errore per ... antispam ???

come posso inviarti il file ???

di Enzo (utente non iscritto) data: 20/07/2010
Copia questa istruzione nel tuo file
e buon lavoro
fai sapere se va bene

Application.ScreenUpdating = False
NUMERO = Foglio7.Range("F3")
PUNT = Foglio7.Range("F7").Value
Sheets("Women").Select
Range("A1").Select
Do
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Value = NUMERO
ActiveCell.Offset(2).Select
If Foglio7.CheckBox1.Value = True Then
ActiveCell.Value = PUNT
End If
ActiveCell.Offset(1).Select
If Foglio7.CheckBox2.Value = True Then
ActiveCell.Value = PUNT
End If
ActiveCell.Offset(1).Select
If Foglio7.CheckBox3.Value = True Then
ActiveCell.Value = PUNT
End If
ActiveCell.Offset(1).Select
If Foglio7.CheckBox4.Value = True Then
ActiveCell.Value = PUNT
End If
ActiveCell.Offset(1).Select
If Foglio7.CheckBox5.Value = True Then
ActiveCell.Value = PUNT
End If
ActiveCell.Offset(1).Select
If Foglio7.CheckBox6.Value = True Then
ActiveCell.Value = PUNT
End If
Sheets("Women").Select
Sheets("Assegna punteggio").Select
Application.ScreenUpdating = True

di Enzo (utente non iscritto) data: 20/07/2010
Istruzione (la mia) molto spartana si puo' fare di meglio
dimenticavo che il tuo elenco devi riordinarlo
prima dell'aggiornamento nel formato alfabetico
di Lord pyron (utente non iscritto) data: 20/07/2010
Enzo .... sei un mito !!!!
funziona alla grande.
un'ultima cosa:
ho inserito un pulsante per cancellare i dati e predisporre il foglio ad un nuovo inserimento, associandolo a questo codice, però mi da un errore di debug.
dov'è l'errore.

di nuovo grazie
Range("F3,F7,A2,A3,A4,A5,A6,A7").ClearContents
di Enzo (utente non iscritto) data: 21/07/2010
.....o singola cella esempio
range ("a2").clearcontents
o intervallo progressivo di cella
es. range ("a2:a7").clearcontents
....non puoi mischiare come hai scritto tu
ok?
di Ricky53 (utente non iscritto) data: 21/07/2010
Ciao,
lerrore non è nell'istruzione che hai indicato ma in un altro punto.

provala da sola e vedrai che non ti darà errore.

quali istruzioni esegui prima ...

ciao da ricky53
Range("F3,F7,A2,A3,A4,A5,A6,A7").ClearContents
di Lord pyron (utente non iscritto) data: 21/07/2010
L'errore di debug 1004 mi veniva segnalato perchè la celle f3 era unita alla cella f4 cosi come la cella f7 con la cella f8, equesto l'ho risolto .....

mentre sulle celle a2:a7 ci sono i relativi checkbox1..checbox8,

come si azzerano ???
grazie
di Enzo (utente non iscritto) data: 21/07/2010
Non e' il contenuto della cella ma la checkbox che e' posizionata all'interno della cella
ossia vedi qui sotto
CheckBox2.Value = true ' la CheckBox e spuntata CheckBox2.Value = false ' la CheckBox2 non e' spuntata (azzerata come indichi tu)
di Ricky53 (utente non iscritto) data: 21/07/2010
Ciao,

in un altro forum (dove hai inserito lo stesso quesito) ti ho inviato un file di esempio.

lo hai scaricato ed hai avuto modo di provarlo?

ciao da ricky53
di Lord pyron (utente non iscritto) data: 21/07/2010
Grazie riky53 !!!!
il tuo esempio è veramente ok
di Ricky53 (utente non iscritto) data: 21/07/2010
Ciao,
non volevo i ringraziamenti o lodi (che fa sempre piacere ricevere) ma solo fare in modo che
anche gli utenti degli altri forum sapessero come è stato risolto il quesito.

ciao da ricky53
di Lord pyron (utente non iscritto) data: 22/07/2010
Per completare questa discussione ho allegato l'esempio sviluppato da riky53 che ha risolto egregiamente le mie esigenze.

grazie riky

Vuoi Approfondire?