| | Post: 42 | Registrato il: 06/07/2016
| Città: BOLZANO | Età: 31 | Utente Junior | 2010 | | OFFLINE | |
|
03/05/2017 13:23 | |
Ciao a tutti
qualcuno mi può aiutare?
allego il file con descrizione
grazie, saluti Marilena |
|
| | Post: 3.153 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
03/05/2017 14:05 | |
Ciao Mary
Onestamente non so se ho capito bene comunque prova queste due macro entrambe inserite nel modulo del foglio1
vb Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("b10:b30")) Is Nothing Then
With Target
.HorizontalAlignment = xlRight
.Font.ColorIndex = 3
End With
End If
Cancel = True
End Sub
vb Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("b10:b30")) Is Nothing Then
With Range("b10:b30")
.HorizontalAlignment = xlLeft
.Font.ColorIndex = xlAutomatic
End With
End If
End Sub
Ti allego il file.
Prova e fai sapere.
Alfredo |
| | Post: 42 | Registrato il: 06/07/2016
| Città: BOLZANO | Età: 31 | Utente Junior | 2010 | | OFFLINE | |
|
04/05/2017 14:21 | |
Grazie Alfredo,
sembra funzionare come desiderato.
saluti Marilena |
| | Post: 3.159 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
04/05/2017 14:24 | |
Come "sembra"?
Funziona o non funziona?
Alfredo |
| | Post: 43 | Registrato il: 06/07/2016
| Città: BOLZANO | Età: 31 | Utente Junior | 2010 | | OFFLINE | |
|
05/05/2017 13:35 | |
FUNZIONA ! FUNZIONA!!! |
| | Post: 3.163 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
05/05/2017 13:50 | |
Non avevo dubbi
Alfredo |
|
|