Moderatori: Anthony47, Flash30005
Sub CercaUni()
Range("A1:L10").Interior.ColorIndex = xlNone
For RL = 1 To 10
StrL = Range("L" & RL).Value
For RA = 1 To 10
Col = RL + RA
StrA = Range("A" & RA).Value & Range("B" & RA).Value & Range("C" & RA).Value
If StrA = StrL Then
Range("A" & RA & ":C" & RA).Interior.ColorIndex = Col
Range("L" & RL).Interior.ColorIndex = Col
End If
Next RA
Next RL
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "L1:L10,A1:C10"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
Call CercaUni
End If
End Sub
CheckArea = "L1:L10"
=SE(VAL.ERRORE(CERCA.VERT(A1&B1&C1;L$1:L$10;1;FALSO));"";SE(CERCA.VERT(A1&B1&C1;L$1:L$10;1;FALSO)>1;1;0))=1
Torna a Applicazioni Office Windows
Icona di ricerca al centro del desktop Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 11 |
Macro crea file word rinominato come dato in specifica cella Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 11 |
Duck duck go è un motore di ricerca ma anche un browser? Autore: franco11 |
Forum: Software Windows Risposte: 2 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 16 |
Visitano il forum: Nessuno e 23 ospiti