Codice VBA per programmare un pulsante

Salve a tutti,

ho bisogno del vs. aiuto nella compilazione di un codice Vba per la programmazione di un pulsante. Mi spiego: nel file che ho allegato come esempio, ho inserito un pulsante (pulsante 1), il quale è programmato per far comparire (al suo click) nella cella B4 il valore della cella C4. Quello che vi chiedo é:
quale sia il codice giusto per far si che lo stesso pulsante faccia apparire i valori nelle cellule sottostanti, (es. da B4 a B7 i valori inseriti in C4 e C7), senza dover andare a ripetere pià volte il comando "Cells" in VBA per ogni riga e colonna.
Spero di essere stato chiaro.
Grazie

P.s.
per far funzionare il file dovete prima attivare le macro nella sezione "Opzioni" - "Centro di protezione".

Buon pomeriggio, Massimiliano;
potresti provare con:




Giuseppe

Giuseppe ma "aggironate" cos'è un nuovo termine? Un neologismo?

Buona sera, Alfredo.

@alfrimpa, obbietta:

---

Giuseppe ma "aggironate" cos'è un nuovo termine? Un neologismo?

---

Grazie della tua attenzione; no, molto probabilmente semplicemente un refuso contestualmente anche per "stete". 

Purtroppo noto con disappunto che non hai seguito questa Discussione con attenzione; ti saresti accorto che il refuso è originariamente inserito nel File in allegato in #1 e "Il Cliete ha sempre ragione".

 

Giuseppe

Sì, sì, lo dico anch'io: "Il Cliete ha sempre ragione" 😅😅.

Vergona!!! prendervela con uno anziano!!👿

La vedo dura tra anziani: " Vergona!!! " 😎😁

eheh...c'è qualcuno che fa orecchie da mercante😎🤔

Buona sera, @dodo.

@dodo, scrive in #6:

---

Vergona!!! prendervela con uno anziano!!

---

@dodo, scrive in #8:

---

eheh...c'è qualcuno che fa orecchie da mercante

---

Ciao Domenico non faccio "orecchie da mercante" il fatto è che leggo solo ora; ero uscito per la mia mia scorta settimanale di ... "pannoloni".
Non volevano darmeli; " ma come, così giovane e già a questo punto?", poi sono riuscito a convincerli; non chiedermi come!😩

In ogni caso sono ancora un vecchietto lucido e combattivo 😀; più combattivo che ... lucido 😫.

 

Alla prossima.

Buon fine settimana a tutti

Giuseppe

Grazie a tutti, ogni tanto sono dislessico!!🤣
Cmq vi allego il codice VBA corretto:

Sub Pulsante_1()
Cells(4, 2) = Cells(4, 3) + Cells(4, 2)
MsgBox ("Le quantità sono state aggiornate!")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Vi allego anche il file corretto.

Buona sera, Massimiliano;
grazie del tuo riscontro.

A beneficio degli Utenti di Forum interessati a questa Discussione consentimi una precisazione, il Codice VBA:

non credo serva ma questa è solo una mia opinione e, come tale opinabile.

A margine di quanto sopra direi che che è stata una Discussione divertente; a volte qualche divagazione fuori tema, grazie alla tolleranza dei Moderatori, può essere piacevole.😉



Alla prossima.

Giuseppe