INSERISCI TESTO AL CLICK SU CELLA

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

melaverde74

00mercoledì 14 giugno 2017 14:38

Ciao a tutti

É possibile realizzare una macro che al doppio click su qualsiasi cella compresa nel range B10:B19, B25: B34, B40:B49
inserisce la parola “controllare “ in colore rosso in colonna F, come esempio da file allegato se avessi cliccato sulla cella B10 o B16,……

saluti
Simone

alfrimpa

00mercoledì 14 giugno 2017 14:54

Ecco la macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B10:B19, B25:B34, B40:B49")) Is Nothing Then
    Target.Offset(0, 4).Value = "CONTROLLATO"
    Target.Offset(0, 4).Font.ColorIndex = 3
    Cancel = True
End If
End Sub

locatevaresino

00mercoledì 14 giugno 2017 14:59

ciao

si attiva con doppioclick
da inserire nel foglio di lavoro

Option Explicit
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
If Intersect(target, Range(" B10:B19, B25: B34, B40:B49")) Is Nothing Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
Cells(target.Row, "F") = "Controllare"
Cells(target.Row, "F").Font.Color = -16776961
Application.ScreenUpdating = True
End Sub

melaverde74

00mercoledì 14 giugno 2017 16:45

Grazie, molto gentili funziona a dovere [SM=x423017]

saluti
Simone

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 04:02.