Moderatori: Anthony47, Flash30005
Sub Trova1()
A = Range("A1")
Cells.Find(What:=A, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Activate
Cells.Interior.ColorIndex = Null
ActiveCell.Interior.ColorIndex = 4
End Sub
Sub statix()
I = 2
For Each Ambo In Range("R3:AA3")
Range(Ambo.address).Interior.Colorindex = I
I = I + 1
Next Ambo
I=2
For Each Ambo in Range("R3:AA3")
Range("E5").select
Cells.find(What:="23", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.interior.Colorindex=I
I=I+1
Next Ambo
End Sub
What:="23"
Sub statix()
I = 2
For Each Ambo In Range("R3:AA3")
Range(Ambo.address).Interior.Colorindex = I
I = I + 1
Next Ambo
I=2
For Each Ambo in Range("R3:AA3")
Range("E5").select
Cells.find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.interior.Colorindex=I
I=I+1
Next Ambo
End Sub
LookAt:=xlPart
con
LookAt:=xlWhole
On Error Resume next
Range("E4").select 'INVECE DI Range("E5").select
If activecell.address <>"$E$4" Then ActiveCell.interior.Colorindex=I
For Each Ambo In Range[b]("R3:AA3")[/b]
Range(Ambo.address).Interior.Colorindex = I
I = I + 1
Next Ambo
I=2
For Each Ambo in Range[b]("R3:AA3")[/b]
Range("E5").select
Sub statix()
On Error Resume Next
I = 2
For Each ambo In Range("R3:AA3")
Range(ambo.Address).Interior.ColorIndex = I
I = I + 1
Next ambo
I = 2
For Each ambo In Range("d8:m141")
Range("d8").Select
If ActiveCell.Address <> "$d$8" Then ActiveCell.Interior.ColorIndex = I
Cells.Find(What:=ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Interior.ColorIndex = I
I = I + 1
Next ambo
End Sub
Sub ambo1()
[n1] = Timer
For I = 1 To 10
Range("B4").Offset(0, I).Interior.ColorIndex = I + 2
Next I
Range("d8:m141").Interior.ColorIndex = xlNone
Application.ScreenUpdating = False
For Each cell In Range("d8:m141")
Range("B4").Value = cell.Value
If Range("B3").Value > 2 Then cell.Interior.ColorIndex = Range("B3").Value
Next cell
Application.ScreenUpdating = True
[n2] = Timer
End Sub
Sub statix()
I = 2
For Each Ambo In Range("R3:AA3")
Range(Ambo.address).Interior.Colorindex = I
I = I + 1
Next Ambo
I=2
On Error Resume next
For Each Ambo in Range("R3:AA3")
Range("E4").select 'INVECE DI Range("E5").select
Cells.find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
If activecell.address <>"$E$4" Then ActiveCell.interior.Colorindex=I
I=I+1
Next Ambo
End Sub
Torna a Applicazioni Office Windows
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro per aprire file salvato su sharepoint Onedrive Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 2 |
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Come interrompere macro sndPlaySound Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 8 ospiti