| | Post: 5 | Registrato il: 21/01/2020
| Età: 45 | Utente Junior | 2010 | | OFFLINE | |
|
21/02/2020 16:34 | |
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". [Modificato da Massimiliano2020 21/02/2020 16:36] |
|
| | Post: 3.730 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
21/02/2020 16:52 | |
Buon pomeriggio, Massimiliano;
potresti provare con:
Option Explicit
Sub Pulsante_1()
Application.ScreenUpdating = False
Dim x As Byte
For x = 4 To 7
Cells(x, 2) = Cells(x, 3) + Cells(x, 2)
Next x
MsgBox ("Le quantità sono stete aggironate!")
Application.ScreenUpdating = True
End Sub
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 4.331 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
21/02/2020 18:45 | |
Giuseppe ma "aggironate" cos'è un nuovo termine? Un neologismo?
Alfredo |
| | Post: 3.733 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
21/02/2020 20:35 | |
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
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 905 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
21/02/2020 22:44 | |
Sì, sì, lo dico anch'io: "Il Cliete ha sempre ragione" 😅😅.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 2.516 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
22/02/2020 10:05 | |
Vergona!!! prendervela con uno anziano!!👿
Domenico
Win 10 - Excel 2016 |
| | Post: 906 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
22/02/2020 17:13 | |
La vedo dura tra anziani: " Vergona!!! " 😎😁
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 2.517 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
22/02/2020 17:35 | |
eheh...c'è qualcuno che fa orecchie da mercante😎🤔
Domenico
Win 10 - Excel 2016 |
| | Post: 3.734 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
22/02/2020 18:23 | |
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
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 5 | Registrato il: 21/01/2020
| Età: 45 | Utente Junior | 2010 | | OFFLINE | |
|
24/02/2020 19:09 | |
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. [Modificato da Massimiliano2020 24/02/2020 19:10] |
| | Post: 3.742 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
24/02/2020 21:17 | |
Buona sera, Massimiliano;
grazie del tuo riscontro.
A beneficio degli Utenti di Forum interessati a questa Discussione consentimi una precisazione, il Codice VBA:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
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
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
|
|