Moderatori: Anthony47, Flash30005
trittico69 ha scritto:... vorrei che si evidenziasse la riga(5celle) in modo da rendere all'occhio la visuale più veloce le caratteristiche che sono sulla stessa riga del nome.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If ActiveCell.Value <> "" Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 5)).Interior.ColorIndex = 3
End If
End Sub
Public Nome1, Foglio As String, Passo As Integer
Sub FiltraRigheSE()
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 Then
Range("C8:D8").Select
Selection.AutoFilter
If Passo = 0 Then
Selection.AutoFilter Field:=1, Criteria1:="=" & Nome1, Operator:=xlAnd
MPasso = Passo
Passo = 1
GoTo esci
End If
End If
If Nome1 = Nome3 Then
Range("C8:D8").Select
Selection.AutoFilter
If Passo = 0 Then
Selection.AutoFilter Field:=2, Criteria1:="=" & Nome1
MPasso = Passo
Passo = 1
GoTo esci
End If
End If
Next
esci:
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
If Passo = 1 Then
Selection.AutoFilter
Passo = 0
Else
Call FiltraRigheSE
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If ActiveCell.Value <> "" Then
If Target.Column = 3 Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Interior.ColorIndex = 4
Else
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column - 1)).Interior.ColorIndex = 4
End If
End If
End If
End Sub
Cells.Interior.ColorIndex = xlNone
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'<<< da qui
CheckArea = "C9:D65000"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Cells.Interior.ColorIndex = xlNone '<<<< inseriscila qui
If ActiveCell.Value <> "" Then
If Target.Column = 3 Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column + 1)).Interior.ColorIndex = 4
Else
Range(ActiveCell.Address, Cells(ActiveCell.Row, ActiveCell.Column - 1)).Interior.ColorIndex = 4
End If
End If
End If
End Sub
Torna a Applicazioni Office Windows
cerca il più grande numero di celle vuote in un intervallo Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 2 |
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
excel vba eliminare celle apparentemente vuote Autore: ANTONIO1105 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 81 ospiti