Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Pulsante per scrivere una informazione in nella cella attiva.

Ultimo Aggiornamento: 14/12/2017 22:06
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

Re:
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)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 06:18. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com