Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Autoinserimento di un Valore con click del mouse

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Autoinserimento di un Valore con click del mouse

Postdi marte1503 » 27/12/11 12:52

Ciao a tutti e Buone Feste

In Foglio14, le colonne G e H (denominate Sì e No) per 200 righe, partendo dalla riga 5 alla 204 prevedono rispettivamente l’inserimento della parola “Sì” e ”No”, (al momento uso la convalida dati da elenco ma è un procedimento che mi fa perdere un po’ di tempo…) Sarebbe possibile inserire automaticamente la parola “Sì” tramite click sinistro del mouse partendo da G5 a G204 e “No” partendo da H5 a H204 facendo in modo che si autocancelli il Sì (per esempio in G5se clicco sul No in H5 e viceversa?)

Grazie
Marte1503
marte1503
Utente Senior
 
Post: 174
Iscritto il: 08/01/10 20:43
Località: Como

Sponsor
 

Re: Autoinserimento di un Valore con click del mouse

Postdi Flash30005 » 27/12/11 14:29

Inserisci questo codice nel VBA del foglio interessato

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckareaG = "G5:G204"
CheckareaH = "H5:H204"
If Not Application.Intersect(ActiveCell, Range(CheckareaG)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then GoTo SaltaG
    If Target = "" Then
        Target = "SI"
        ActiveCell.Offset(0, 1).Value = ""
    Else
        Target = ""
    End If
End If
   
SaltaG:

If Not Application.Intersect(ActiveCell, Range(CheckareaH)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    If Target = "" Then
        Target = "No"
        ActiveCell.Offset(0, -1).Value = ""
    Else
        Target = ""
    End If
End If
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Autoinserimento di un Valore con click del mouse

Postdi marte1503 » 27/12/11 20:43

Perfetto Flash!!

Ora sì che è veloce la procedura!

Grazie 1000 per l'aiuto ;)

Ciao e a presto

Marte
marte1503
Utente Senior
 
Post: 174
Iscritto il: 08/01/10 20:43
Località: Como

Re: Autoinserimento di un Valore con click del mouse

Postdi Cedamido » 31/12/11 17:01

Per Flash, scusami se Ti disturbo, vorrei sapere se la macro si può usare per altri fogli, su un foglio funziona, più di uno non funziona, dovrei usarla su dieci fogli.
Grzie, auguri di buon anno.
excel 2003
Cedamido
Utente Senior
 
Post: 234
Iscritto il: 17/08/08 23:26

Re: Autoinserimento di un Valore con click del mouse

Postdi Anthony47 » 01/01/12 21:57

Devi mettere quel codice in ognuno dei "moduli di codice" dei fogli interessati: tasto dx sul tab col nome foglio, scegli Visualizza codice; inserisci il codice; ripeti per il foglio successivo.
Se l' operazione va fatta su "tutti" i fogli, puoi mettere il codice nel modulo ThisWorkbook e sostituire la prima riga con
Codice: Seleziona tutto
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Autoinserimento di un Valore con click del mouse

Postdi Cedamido » 01/01/12 22:49

Ok grazie a gonfie vele.
excel 2003
Cedamido
Utente Senior
 
Post: 234
Iscritto il: 17/08/08 23:26


Torna a Applicazioni Office Windows


Topic correlati a "Autoinserimento di un Valore con click del mouse":


Chi c’è in linea

Visitano il forum: Marius44 e 21 ospiti