di raimea » 26/03/10 09:44
Ringrazio Molto il Sig. Flash30005
per la serieta' - professionalita' - disponibilita dimostrata.
con una sola macro ha risolto entrambe i miei 2 post.
riporto la SUA macro (applicata al mio file)
----------------------------------------------
Sub CompilaElenco()
Worksheets("6-Squadre.Alfabeto").Unprotect
UR5 = Worksheets("5-Squadre").Cells(Rows.Count, 6).End(xlUp).Row
UR6 = Worksheets("6-Squadre.Alfabeto").Cells(Rows.Count, 3).End(xlUp).Row
For R5 = 9 To UR5
For C5 = 6 To 8 Step 2
SQ5 = UCase(Worksheets("5-Squadre").Cells(R5, C5).Value)
For R6 = 8 To UR6
SQ6 = UCase(Worksheets("6-Squadre.Alfabeto").Cells(R6, 3).Value)
If SQ5 = SQ6 Then GoTo salta
Next R6
Uri = Worksheets("6-Squadre.Alfabeto").Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets("6-Squadre.Alfabeto").Cells(Uri, 3).Value = SQ5
salta:
Next C5
Next R5
'Call Ordina
Worksheets("6-Squadre.Alfabeto").Protect
End Sub
Sub Ordina()
Worksheets("6-Squadre.Alfabeto").Select
Columns("C:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub
---------------
chiunque fosse interessato a ricevere il file alla quale e' stata applicata mi contatti
via pm
Eliminato indirizzo di mail per rischio spam
by Anthony
S.O. win10, Excell 2019