Previous page | 1 | Next page
Facebook  

INSERISCI TESTO AL CLICK SU CELLA

Last Update: 6/14/2017 4:45 PM
Author
Print | Email Notification    
Post: 58
Registered in: 5/3/2016
Location: MILANO
Age: 45
Junior User
Excel 2011
OFFLINE
6/14/2017 2:38 PM
 
Modify
 
Delete
 
Quote

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
E' giusto adorare Gesù?Testimoni di Geova Online...93 pt.6/18/2019 11:19 PM by barnabino
carte da culSenza Padroni Quindi Roma...52 pt.6/18/2019 7:59 PM by er.principe77
Calciomercato estivo - Stagione 2019/2020blog191240 pt.6/18/2019 10:23 PM by GiorgioG.76
Post: 3,286
Registered in: 6/21/2013
Location: NAPOLI
Age: 65
Master User
Excel 2013
ONLINE
6/14/2017 2:54 PM
 
Modify
 
Delete
 
Quote

Ecco la macro

vb
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

Alfredo
Post: 2,010
Registered in: 3/21/2008
Location: LOCATE VARESINO
Age: 71
Veteran User
2007 / 13
OFFLINE
6/14/2017 2:59 PM
 
Modify
 
Delete
 
Quote

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



Ciao da locate
excel 2007 / 13
Post: 58
Registered in: 5/3/2016
Location: MILANO
Age: 45
Junior User
Excel 2011
OFFLINE
6/14/2017 4:45 PM
 
Modify
 
Delete
 
Quote

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

saluti
Simone
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 11:25 PM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com