Moderatori: Anthony47, Flash30005
Sub ColoraRigheSE()
Nome1 = UCase(Range("I1").Value) '<<<< "I1" cella che contiene il nome da trovare
For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
rw.Interior.ColorIndex = xlNone
Nome2 = UCase(rw.Cells(1, 1).Value)
If Nome1 = Nome2 Then rw.Interior.ColorIndex = 50
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$1" Then Exit Sub
Call ColoraRigheSE
End Sub
Public Nome1 As String
Sub ColoraRigheSE()
For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
rw.Interior.ColorIndex = xlNone
Nome2 = UCase(rw.Cells(1, 1).Value)
If Nome1 = Nome2 Then rw.Interior.ColorIndex = 50
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Nome1 = UCase(Target)
Call ColoraRigheSE
End Sub
Public Nome1, Foglio As String
Sub ColoraRigheSE()
UR = Sheets(Foglio).Range("C" & Rows.Count).End(xlUp).Row
For RR = 9 To UR
Range("C" & RR & ":H" & RR).Interior.ColorIndex = xlNone
Nome2 = UCase(Cells(RR, 3).Value)
If Nome1 = Nome2 Then Range("C" & RR & ":H" & RR).Interior.ColorIndex = 50
Next
End Sub
Public Nome1, Foglio As String
Sub ColoraRigheSE()
UR = Sheets(Foglio).Range("C" & Rows.Count).End(xlUp).Row
For RR = 9 To UR
Range("C" & RR & ":H" & RR).Interior.ColorIndex = xlNone
Nome2 = UCase(Cells(RR, 3).Value)
Nome3 = UCase(Cells(RR, 4).Value)
If Nome1 = Nome2 Or Nome1 = Nome3 Then Range("C" & RR & ":H" & RR).Interior.ColorIndex = 50
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Nome1 = UCase(Target)
Foglio = Name
Call ColoraRigheSE
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A1:L65000"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
Marca
End If
End Sub
Sub Marca()
Track = "IV1"
Dim LogNum As Integer
LogNum = 500
Range(Track).Value = (Range(Track).Value + 1) Mod LogNum
Range(Track).Offset(Range(Track).Value + 1) = UCase(Environ("userName"))
Range(Track).Offset(Range(Track).Value + 1, -1) = Format(Now(), "DD/MM/YYYY hh:mm:ss")
Range(Track).Offset(Range(Track).Value + 2).Range("A1:A2").ClearContents
Range(Track).Offset(Range(Track).Value + 2, -1).Range("A1:A2").ClearContents
Application.EnableEvents = True
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 17 ospiti