| | Post: 1 | Registrato il: 14/12/2017
| Città: RECANATI | Età: 62 | Utente Junior | ultima | | OFFLINE | |
|
14/12/2017 18:55 | |
Pulsante per scrivere una informazione solo nella cella attiva.
Buongiorno a tutti,
Mi chiamo Luigi e vorrei sapere se vi è una macro per poter scrivere un certo dato, attraverso un pulsante, solo quando la cella è attiva.
Grazie [Modificato da maranatha61 14/12/2017 18:58] |
|
| | Post: 4.044 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
14/12/2017 20:01 | |
sub scrivi()
activecell.value = "Ciao"
End Sub
tieni presente che una cella attiva c'è sempre, quindi la domanda non è posta bene. [Modificato da patel45 14/12/2017 20:02]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 1 | Registrato il: 14/12/2017
| Città: RECANATI | Età: 62 | Utente Junior | ultima | | OFFLINE | |
|
14/12/2017 20:11 | |
patel45, 14/12/2017 20.01:
sub scrivi()
activecell.value = "Ciao"
End Sub
tieni presente che una cella attiva c'è sempre, quindi la domanda non è posta bene.
Si, infatti volevo dire la cella che io attivo. Grazie. |
| | Post: 613 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
14/12/2017 22:06 | |
Un saluto a tutti.
Ti propongo qualcosa di "complicato" che si attiva selezionando la cella B3 nel file che allego come esempio.
Questo invece è il codice presente nel modulo vba del foglio interessato. La prima macro è attivata dalla cella B3 mentre la seconda è associata ad un pulsante (ora nascosto): Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B3")) Is Nothing Then
MsgBox "Ok, hai cliccato la cella, ora attivo il pulsante" 'da eliminare
CommandButton1.Visible = True
End If
End Sub
Private Sub CommandButton1_Click()
'al posto della successiva riga qui si può gestire una macro di aggiornamento
Range("B3").Value = "Aggiornato"
CommandButton1.Visible = False
MsgBox "Ok, ho eseguito la macro ed ora nascondo il pulsante" 'da eliminare
End Sub [Modificato da rollis13 14/12/2017 22:12]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|