Incrementare il valore di una cella

[g***@gmail.com]

Buongiorno a tutti,avrei bisogno di un aiuto,in pratica in excel ho
creato su un unico foglio,una serie di fatture che modifico di mese in
mese,ora ogni mese devo incrementare a mano il numero delle varie
fatture e dato che ne ho diverse mi ci và parecchio tempo.La domanda
è:esiste un modo per automatizzare la procedura?Ho cercato di fare in
modo che se vado sulla casella con il numero e clicko questo
incrementi di 1 il suo valore ma non ci sono riuscito perchè sono
niubbo.Qualcuno sa spiegarmi come potrei fare??grazie

[Poeta]

<***@gmail.com> ha scritto nel messaggio news:13c53e85-0efd-4ac6-b066-***@m34g2000hsc.googlegroups.com...
Buongiorno a tutti,avrei bisogno di un aiuto,in pratica in excel ho
creato su un unico foglio,una serie di fatture che modifico di mese in
mese,ora ogni mese devo incrementare a mano il numero delle varie
fatture e dato che ne ho diverse mi ci và parecchio tempo.La domanda
è:esiste un modo per automatizzare la procedura?Ho cercato di fare in
modo che se vado sulla casella con il numero e clicko questo
incrementi di 1 il suo valore ma non ci sono riuscito perchè sono
niubbo.Qualcuno sa spiegarmi come potrei fare??grazie

--------------

Ciao Giuseppe,
... su un unico foglio ...
... diverse fatture ...?
credo che dovresti spiegare meglio.

Ciao
Pippo Coco

[Norman Jones]

Ciao Poeta,

Ho ricevuto la tua gentilisima email e ti
ho inviato una risposta.

Saluti!

---
Regards,
Norman
Microsoft Excel MVP

[g***@gmail.com]

Post by g***@gmail.com
Buongiorno a tutti,avrei bisogno di un aiuto,in pratica in excel ho
creato su un unico foglio,una serie di fatture che modifico di mese in
mese,ora ogni mese devo incrementare a mano il numero delle varie
fatture e dato che ne ho diverse mi ci và parecchio tempo.La domanda
è:esiste un modo per automatizzare la procedura?Ho cercato di fare in
modo che se vado sulla casella con il numero e clicko questo
incrementi di 1 il suo valore ma non ci sono riuscito perchè sono
niubbo.Qualcuno sa spiegarmi come potrei fare??grazie
--------------
Ciao Giuseppe,
... su un unico foglio ...
... diverse fatture ...?
credo che dovresti spiegare meglio.
Ciao
Pippo Coco

Si,in pratica ho creato un foglio di excel in cui ho semplicemente
trascritto delle fatture che stampo tutti i mesi variando solamente
alcuni dati tipo variaz istat,ecc.Comunque al dilà di questo mi
servirebbe solo sapere come incrementare di 1 il calore numerico di
una cella con un click o in un altro modo,questo per non farlo a mano
tutte le volte.grazie dell'aiuto.

[Poeta]

<***@gmail.com> ha scritto
"mi servirebbe solo sapere come incrementare di 1 il calore numerico di
"una cella con un click o in un altro modo,questo per non farlo a mano
tutte le volte"

---------------------

Ciao Giuseppe,
uno dei modi (con Excel 2007) :
- Menu "Sviluppo"
- Clicca su "Inserisci"
- Scegli "Pulsante di selezione" (Controllo ActiveX)
- Disegna il pulsante
- Col tasto mouse Dx scegli "Proprietà"
- Nella lista delle proprietà, nella riga "LinkedCell"
digita l'indirizzo di cella che ti interessa (Es. D5)
- Nella lista delle proprietà, nella riga "SmallChange"
digita un valore che vuoi incrementare (Es. 1)
- Menu "Sviluppo" clicca su "Modalità progettazione"
- Hai il tuo pulsante attivato che incrementa il valore
della cella D5 ad ogni clic.

- Probabilmente un incremento fatto in questo modo
non ti servirà :))

Se hai Excel 2003.... non mi ricordo i passaggi, cerca
nell'help "Pulsante di selezione"

Ciao e fai sapere

Pippo Coco

[cucchiaino]

Post by g***@gmail.com
Buongiorno a tutti,avrei bisogno di un aiuto,in pratica in excel ho
creato su un unico foglio,una serie di fatture che modifico di mese in
mese,ora ogni mese devo incrementare a mano il numero delle varie
fatture e dato che ne ho diverse mi ci và parecchio tempo.La domanda
è:esiste un modo per automatizzare la procedura?Ho cercato di fare in
modo che se vado sulla casella con il numero e clicko questo
incrementi di 1 il suo valore ma non ci sono riuscito perchè sono
niubbo.Qualcuno sa spiegarmi come potrei fare??grazie

Prova a leggere questo thread:

---------------------------
From: ***@gmail.com
Subject: problema coi numeri
Date: Tue, 4 Mar 2008 05:22:17 -0800 (PST)
Message-ID: <499cf277-c011-47ad-97e4-***@k2g2000hse.googlegroups.com>
--------------------------


()---cucchiaino

[Mauro Gamberini]

Buongiorno a tutti,avrei bisogno di un aiuto,in pratica in excel ho
creato su un unico foglio,una serie di fatture che modifico di mese in
mese,ora ogni mese devo incrementare a mano il numero delle varie
fatture e dato che ne ho diverse mi ci và parecchio tempo.La domanda
è:esiste un modo per automatizzare la procedura?Ho cercato di fare in
modo che se vado sulla casella con il numero e clicko questo
incrementi di 1 il suo valore ma non ci sono riuscito perchè sono
niubbo.Qualcuno sa spiegarmi come potrei fare??
***************************************************

Senza usare pulsanti o controlli vari.
Copia/incolla questa in un modulo standard
(ALT+F11, Inserisci-->Modulo):

Public Sub mIncrementa()

Dim Risposta As Long

Risposta = MsgBox(Prompt:="Incrementare di 1?", _
Title:="Attenzione", _
Buttons:=vbYesNo + vbQuestion)

With ActiveCell

If Risposta = vbYes Then
.Value = .Value + 1
Else
Exit Sub
End If

End With

End Sub

ALT+F11 e torni in Excel
Strumenti-->Macro-->Macro
Seleziona: mInserisci
Assegna un tasto di scelta rapida(es. a)

Seleziona una cella.
Premi assieme CTRL+a

[Poeta]

"Mauro Gamberini" <***@RIMUOVEREaliceposta.it> ha scritto nel
messaggio > Senza usare pulsanti o controlli vari.

Post by Mauro Gamberini
Copia/incolla questa in un modulo standard
Public Sub mIncrementa()
Dim Risposta As Long
Risposta = MsgBox(Prompt:="Incrementare di 1?", _
Title:="Attenzione", _
Buttons:=vbYesNo + vbQuestion)
With ActiveCell
If Risposta = vbYes Then
.Value = .Value + 1
Else
Exit Sub
End If
End With
End Sub
ALT+F11 e torni in Excel
Strumenti-->Macro-->Macro
Seleziona: mInserisci
Assegna un tasto di scelta rapida(es. a)
Seleziona una cella.
Premi assieme CTRL+a
---------------------------

Ciao Giuseppe,
con la stessa procedura di Mauro (ciao), volendo decidere
al momento di quanto incrementare il valore della cella,
prova questo codice :

Public Sub Chiedi()
Dim x As Integer
On Error GoTo Nn
x = InputBox("Digita di quanto vuoi incrementare il valore della cella",
, 1)
ActiveCell.Value = ActiveCell.Value + x
Nn:
Exit Sub
End Sub

Fai saper, ciao.

Pippo Coco

[g***@gmail.com]

Ma voi siete dei grandi!!!!
grazie mi avete semplificato di molto il lavoro. Giuseppe

[Poeta]

Post by g***@gmail.com
Ma voi siete dei grandi!!!!
grazie mi avete semplificato di molto il lavoro. Giuseppe

--------------------

Giuseppe, grazie del riscontro.
Continuo però a chiedermi se solo il fatto di modificare
il numero progressivo di una cella possa esserti veramente
di aiuto per gestire le fatture; hai una tabella con elencate
almeno gli estremi di queste delle fatture? insomma una
specie di databse?

Se possiamo aiutarti ancora faccelo sapere.

Ciao

Pippo Coco

[Mauro Gamberini]

Post by Poeta
con la stessa procedura di Mauro (ciao), volendo decidere
al momento di quanto incrementare il valore della cella,

Visto che c'era il mio nome:

Public Sub mIncrementa()

Dim Risposta As Long
Dim s As String

On Error GoTo RigaErrore

s = Application.InputBox( _
"Di quanto vuoi incrementare?", "Attenzione")

Risposta = MsgBox(Prompt:= _
"Incrementare di " & CDbl(s) & "?", _
Title:="Attenzione", _
Buttons:=vbYesNo + vbQuestion)

With ActiveCell

If Risposta = vbYes Then
.Value = .Value + CDbl(s)
Else
Exit Sub
End If

End With

RigaChiusura:
Exit Sub

RigaErrore:
If Err.Number = 13 Then
MsgBox "Valore errato"
Else
MsgBox Err.Number & vbNewLine & Err.Description
End If
Resume RigaChiusura

End Sub

[g***@gmail.com]

On 10 Mar, 19:13, "Mauro Gamberini"

Post by Mauro Gamberini

Post by Poeta
con la stessa procedura di Mauro (ciao), volendo decidere
al momento di quanto incrementare il valore della cella,

Public Sub mIncrementa()
    Dim Risposta As Long
    Dim s As String
On Error GoTo RigaErrore
    s = Application.InputBox( _
        "Di quanto vuoi incrementare?", "Attenzione")
    Risposta = MsgBox(Prompt:= _
        "Incrementare di " & CDbl(s) & "?", _
        Title:="Attenzione", _
        Buttons:=vbYesNo + vbQuestion)
    With ActiveCell
        If Risposta = vbYes Then
            .Value = .Value + CDbl(s)
        Else
            Exit Sub
        End If
    End With
    Exit Sub
    If Err.Number = 13 Then
        MsgBox "Valore errato"
    Else
        MsgBox Err.Number & vbNewLine & Err.Description
    End If
    Resume RigaChiusura
End Sub
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/

Siete stati utilissimi!!grazie a tutti dell'aiuto.

[Mauro Gamberini]

Post by g***@gmail.com
Siete stati utilissimi!!grazie a tutti dell'aiuto.

Grazie a te per il riscontro.