avrei la necessita di creare un elenco dei nomi delle squadre che scrivo in
un foglio (5-squadre), e riportalre in fgl 6 (6squdre-alfabeto),
in modo di non avere doppioni,
cioe' se la squadre e' gia stata scritta non la deve riportare.
ho provato con una macro che fa gia' questo, su un altro file e funziona correttamente,
ma qui non riesco a capire che succede.
questa la macro.
- Codice: Seleziona tutto
Public Nazione As String, Riga As Integer
Sub CompilaElenco()
UserForm2.Show vbModeless
DoEvents
Inizio = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual
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
Worksheets("6-Squadre.Alfabeto").Protect
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Unload UserForm2
Fine = Timer
MsgBox ("Tempo impiegato " & Int((Fine - Inizio) / 60) & " min " & (Fine - Inizio) Mod 60 & " Sec")
Call ordina3
End Sub
qui il file che fa i capricci...
deve compilare il fgl6 partendo da cella C8 in giu'.
http://www.megaupload.com/?d=S8W94L08