| | Post: 58 | Registrato il: 03/05/2016
| Città: MILANO | Età: 50 | Utente Junior | Excel 2011 | | OFFLINE |
|
  14/06/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 |
|
| | Post: 3.286 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 14/06/2017 14:54 | |
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 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 14/06/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
Ciao da locate
excel 2007 / 13 |
| | Post: 58 | Registrato il: 03/05/2016
| Città: MILANO | Età: 50 | Utente Junior | Excel 2011 | | OFFLINE |
|
| 14/06/2017 16:45 | |
Grazie, molto gentili funziona a dovere ![[SM=x423017]](http://www.erismag.it/Servizio/ForumExcel/Smiles/S4_grazie.gif)
saluti
Simone |
|
|
|
|