problema con pulsante cancella

Hai un problema con Excel?

Nuova discussione

problema con pulsante cancella
di andrea (utente non iscritto) data: 11/10/2012 22:15:57
scusatemi se vi sto stressando stasera ma mi servirebbe un altra info.

io ho 2 fogli di lavoro

foglio 1 clicco un pulsante per darmi il valore

foglio 3 togli il valore inserito nel foglio 1

se io per un errore dovessi azzerere il tutto nel primo fogli come posso aggiungere il valore nel tolto nel secondo foglio?

oppure e possibile creare un for sul foglio3 trovandomi sempre sul foglio 1

grazie infinite.

Sub pulsante_c()
    For cancella = 2 To 24
        Cells(cancella, 10).Value = ""
        Cells(cancella, 11).Value = ""
        Cells(cancella, 12).Value = ""
        Cells(27, 10).Value = "0"
        Cells(cancella, 12).Interior.ColorIndex = 0
        Foglio3.Cells(uno, 3) = Foglio3.Cells(uno, 3) + Foglio1.Cells(cancella, 12)
    Next
End Sub

di Vecchio Frac data: 11/10/2012 22:28:48
Non sono sicuro di aver capito... sarà l'ora tardi :)
Prima dici:
cit. " foglio 3 togli il valore inserito nel foglio 1 "
ma poi nel codice vedo --> Foglio3.Cells(uno, 3) = Foglio3.Cells(uno, 3) + Foglio1.Cells(cancella, 12)

Questa frase:
cit. " se io per un errore dovessi azzerere il tutto nel primo fogli come posso aggiungere il valore nel tolto nel secondo foglio? "
è un pochetto difficile da comprendere :) che intendi "per errore"? cos'è il "tolto nel secondo foglio"? un maltolto, cioè un furto? :)

L'ultima l'hai già risolta.
cit. " e possibile creare un for sul foglio3 trovandomi sempre sul foglio 1 "
Infatti hai già scritto:
--> Foglio3. ... e Foglio1. ...
Quindi come vedi basta anteporre a un range la qualificazione del foglio di riferimento e sei a posto.

di andrea (utente non iscritto) data: 11/10/2012 22:42:54
FOGLIO 1
ALLORA UN PULANTE DOVE AGGIUNGO MATERIALE
POI O UN PULSANTE DOVE AZZERO TUTTO

FOGLIO 3
IN QUESTO FOGLIO MI STOTTRAE IL MATERIALE AGGIUNTO NEL FOGLIO 1

SBAGLIO A DIGITARE E DEVO AZZERARE TUTTO, VOGLIO CHE I VALORI TOLTI NEL FOGLIO 3 RITORNITO COME PRIMA

ORA SICURAMENTE SONO STATO PIù CHIARO

Sub pulsante_c()
    For cancella = 2 To 24
        Cells(cancella, 10).Value = ""
        Cells(cancella, 11).Value = ""
        Cells(cancella, 12).Value = ""
        Cells(27, 10).Value = "0"
        Cells(cancella, 12).Interior.ColorIndex = 0
        Foglio3.Cells(uno, 3) = Foglio3.Cells(uno, 3) - Foglio1.Cells(cancella, 12)
    Next
End Sub

di Vecchio Frac data: 12/10/2012 15:58:22
Non molto... posta un file con il tuo codice, togli i dati privati e metti dati fittizi di esempio.

Vuoi Approfondire?