| | Post: 57 | Registrato il: 27/11/2007
| Città: LOZIO | Età: 46 | Utente Junior | offc 2010 | | OFFLINE |
|
  10/02/2024 14:20 | |
ciao
nel fgl generale col G
da riga 8
vorrei separare i nomi con una riga tratteggiata verde
la riga dovrebbe essere messa al variare del nome
rispetto al nome della riga precedente
vi allego il file
ciao
wind 10 & office 2010 |
|
| | Post: 3.231 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 10/02/2024 16:26 | |
ciao
cosa intendi
mettere una riga vuota ogni cambio nome?
esempio
|
| | Post: 57 | Registrato il: 27/11/2007
| Città: LOZIO | Età: 46 | Utente Junior | offc 2010 | | OFFLINE |
|
| 10/02/2024 16:35 | |
ciao
mettere una riga vuota ogni cambio nome?
NO
vorrei fare come e' nel file allegato (riga verde messa manualmente)
semplicemente mettere verde-tratteggiato la riga
ciao wind 10 & office 2010 |
| | Post: 1.388 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | ONLINE |
|
| 10/02/2024 16:57 | |
Un saluto a tutti.
Io in realtà la macro l'ho preparata ormai da parecchio ma non mi funziona il tratteggio; se qualcuno sa come scrivere il codice per ora pubblico la macro incompleta: Option Explicit
Sub Inserisci_Tratteggio()
Dim riga As Long
Application.ScreenUpdating = False
For riga = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 9 Step -1 'cicla dal basso verso l'alto la colonna G
Cells(riga, "G").Borders(xlEdgeTop).LineStyle = xlNone 'togli tratteggio preesistente
If Cells(riga, "G").Value <> Cells(riga - 1, "G").Value Then 'se dati diversi ...
With Cells(riga, "G").Borders(xlEdgeTop) '... metti il tratteggio
.LineStyle = xlDash '<- boh, si comporta da xlContinuous a causa del xlThick
.Color = vbGreen
.Weight = xlThick
End With
End If
Next riga
Application.ScreenUpdating = True
End Sub[Modificato da rollis13 10/02/2024 16:58]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1.389 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | ONLINE |
|
| 10/02/2024 17:18 | |
Vabbè, per ora ho risolto utilizzando uno Stile invece che un Bordo. Mi sono creato uno Stile nuovo con il tratteggio in alto nominandolo Tratteggio e ho modificato la macro così: Sub Inserisci_Stile()
Dim riga As Long
Application.ScreenUpdating = False
For riga = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 9 Step -1 'cicla dal basso verso l'alto la colonna G
Cells(riga, "G").Style = "Normal" 'togli stile Tratteggio preesistente
If Cells(riga, "G").Value <> Cells(riga - 1, "G").Value Then Cells(riga, "G").Style = "Tratteggio" 'se diverso applica stile Tratteggio
Next riga
Application.ScreenUpdating = True
End Sub[Modificato da rollis13 10/02/2024 17:21]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 3.232 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 10/02/2024 17:22 | |
ciao
Rollis
Sub Inserisci_Tratteggio()
Dim riga As Long
Application.ScreenUpdating = False
For riga = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 9 Step -1 'cicla dal basso verso l'alto la colonna G
Cells(riga, "G").Borders(xlEdgeTop).LineStyle = xlNone 'togli tratteggio preesistente
If Cells(riga, "G").Value <> Cells(riga - 1, "G").Value Then 'se dati diversi ...
With Cells(riga, "G").Borders(xlEdgeTop) '... metti il tratteggio
.LineStyle = xlDash
.Color = vbGreen
.TintAndShade = 0
.Weight = xlMedium
End With
End If
Next riga
Application.ScreenUpdating = True
End Sub[Modificato da federico460 10/02/2024 17:24] |
| | Post: 1.390 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | ONLINE |
|
| 10/02/2024 17:27 | |
Sì, sì, proprio così. A sbatterci il naso mi sono accorto che bastava usare .Weight = xlMedium invece di .xlThick. E' che nell'esempio il tratteggio sembrava più grosso.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 58 | Registrato il: 27/11/2007
| Città: LOZIO | Età: 46 | Utente Junior | offc 2010 | | OFFLINE |
|
| 10/02/2024 17:35 | |
ciao
bene funziona come chiedevo.
mi sono accorto che mi servirebbe una piccola aggiunta se possibile 🙄
mantenedo riferimento col G come da descrizione
la riga verde tratteggiata di col G ,
si potrebbe far arrivare fino col I (i)
e' possibile con piccola aggiunta ?
ciao
[Modificato da raimea 10/02/2024 17:43] wind 10 & office 2010 |
| | Post: 5.061 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 10/02/2024 17:58 | |
Sostituisci la riga 7 con questa
vb With Range(Cells(riga, 7), Cells(riga, 9)).Borders(xlEdgeTop)
Alfredo |
| | Post: 1.391 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | ONLINE |
|
| 10/02/2024 18:13 | |
Non è sufficiente, per non lasciare in giro immondizia bisogna anche cambiare la riga 5 in: Range(Cells(riga, "G"), Cells(riga, "I")).Borders(xlEdgeTop).LineStyle = xlNone 'togli tratteggio preesistente
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 59 | Registrato il: 27/11/2007
| Città: LOZIO | Età: 46 | Utente Junior | offc 2010 | | OFFLINE |
|
| 10/02/2024 19:14 | |
ciao
e' tutto ok
grazie a tutti 🤩
ciao
wind 10 & office 2010 |
|
|
|
|