| | Post: 92 | Registrato il: 22/10/2021
| Città: ISEO | Età: 56 | Utente Junior | office 2010 | | OFFLINE |
|
01/04/2023 17:09 | |
ciao
controllando le sigle di col D
tramite macro vorrei mettere una linea rossa continua
da col B:G al variare della terza lettera o numero, delle sigle in col D
( dopo la terza lettera/numero)
vi allego il file
ciao |
|
| | Post: 3.439 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
01/04/2023 18:31 | |
ciao
chiarisci:
al variare della terza lettera..... dopo la terza lettera
cioè se cambia il terzo carattere o il quarto ??
è possibile che si siano sigle minori di 3/4 caratteri ??
Nel caso ??
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 92 | Registrato il: 22/10/2021
| Città: ISEO | Età: 56 | Utente Junior | office 2010 | | OFFLINE |
|
01/04/2023 18:39 | |
ciao
al variariare del 4to
99,9% non ci sono sigle minori 4 caratteri
sono piu di 2.500 non le ho verif tutte 😉
ciao
|
| | Post: 3.440 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
01/04/2023 19:36 | |
ciao
prova
saluti
Sub RigheRosse()
lr = Range("A" & Rows.Count).End(xlUp).Row
With Range("B2:H" & lr)
.Borders.LineStyle = xlNone
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
End With
For j = lr To 2 Step -1
If Len(Cells(j, 4)) > 3 And Len(Cells(j - 1, 4)) > 3 Then
mch = Mid(Cells(j - 1, 4), 4, 1)
If mch <> Mid(Cells(j, 4), 4, 1) Then
With Range(Cells(j - 1, 2), Cells(j - 1, 7)).Borders(xlEdgeBottom)
.Color = -16776961
.Weight = xlMedium
End With
End If
End If
Next j
End Sub
EDIT: se ci sono sigle con meno di 4 caratteri non vengono elaborate
[Modificato da dodo47 01/04/2023 19:45] Domenico
Win 10 - Excel 2016 |
| | Post: 93 | Registrato il: 22/10/2021
| Città: ISEO | Età: 56 | Utente Junior | office 2010 | | OFFLINE |
|
01/04/2023 20:11 | |
ciao
ottimo ...
e' tutto ok
grazie 😗
|
| | Post: 3.441 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
01/04/2023 20:35 | |
grazie per il riscontro....
saluti
Domenico
Win 10 - Excel 2016 |
|
|