|
|
|
|
Strumenti |
13-03-2019, 16:45 | #1 |
Junior Member
Iscritto dal: Mar 2019
Messaggi: 1
|
macro in excel
Salve,
premetto che non so niente di programmazione ma sono riuscita a creare una macro con una guida on line. La mia cartella di lavoro ha il compito di individuare, tra i nomi scritti nel foglio "lista nomi", quelli contenuti in un foglio "Lista nera" e segnalarli colorando la cella in "lista nomi" di nero con scritta bianca. La macro che ho utilizzato è la seguente: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name <> "ARCHIVIO" Then Dim rng As Range If Not Intersect(Target, Sh.Range("b8:b1000")) Is Nothing Then If Target.Rows.Count > 1 Then Exit Sub With Sheets("LISTA NERA").Range("a:a") Set rng = .Find(What:=Target.Value, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then Target.Interior.ColorIndex = 1 Target.Font.ColorIndex = 2 Else Target.Interior.ColorIndex = xlNone End If End With End If End If End Sub Vorrei adesso che nello stesso foglio "lista nomi" venissero segnalati i nomi presenti in un terzo foglio che chiamerò "lista rossa", colorando la cella in rosso con scritta bianca. Ho provato semplicemente a copiare la macro sotto la precedente cambiando solo i codici colore ma mi da errore 'nome non univoco'... Cosa dovrei fare? Qualcuno può aiutarmi? Spero di essere stata abbastanza chiara |
13-03-2019, 19:10 | #2 |
Senior Member
Iscritto dal: Jul 1999
Città: Black Mesa
Messaggi: 72348
|
sezione errata e discussione ciclica, usa la ricerca
CLOSED!! >bYeZ<
__________________
REGOLAMENTO & update1/update2 | IO C'ERO | Realme X3 SZ 12/256 - History | GTi is BACK
"Non sorridete.......gli spari sopra.....sono per VOI!" |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 18:19.