v 1.6
azz ho parte di una macro che fa i capricci...
in questo file fino alla data del 19.4.12 e' tutto ok.
poi: vado in preleva dati va in fgl appoggio e premo preleva
si attiva la macro (che ha sempre funzionato), Sub Aggitalmil in mod 6.
questa aggiorna correttamente il fgl appoggio fino all ' estrazione del 26.5.12 ,
fin qui tutto ok.
a questo punto se vado in fgl --> archivio ital mil
dovrei trovarmi le estrazioni della ruota di milano dal 19 al 26.5.12
invece mi mette solo 3 gg 22/24/26 maggio 12 ....
saltando le altre estraz dal 19 in poi.
il pezzo di macro che dovrebbe aggiornare il fgl archivio ital mil
e' questo:
- Codice: Seleziona tutto
Set Ws1 = Worksheets("appoggio") ' qui vado ad aggiornare il fgl archivio della ruota di milano
Set Ws2 = Worksheets("archivio ital mil")
Worksheets("archivio ital mil").Unprotect
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row
DataA = DateSerial(Mid(Ws2.Range("B" & UR2).Value, 7, 4), Mid(Ws2.Range("B" & UR2).Value, 4, 1), Mid(Ws2.Range("B" & UR2).Value, 1, 2))
DataApp = DateSerial(Mid(Ws1.Range("A" & UR1).Value, 7, 4), Mid(Ws1.Range("A" & UR1).Value, 4, 1), Mid(Ws1.Range("A" & UR1).Value, 1, 2))
If DataA = DataApp Then
MsgBox "Non ci sono aggioramenti"
GoTo SaltaAgg
Else
For RR1 = UR1 To 3 Step -1
DataApp = DateSerial(Mid(Ws1.Range("A" & RR1).Value, 7, 4), Mid(Ws1.Range("A" & RR1).Value, 4, 1), Mid(Ws1.Range("A" & RR1).Value, 1, 2))
If DataA = DataApp Then
RigaA = RR1 + 1
GoTo Aggiorna
End If
Next RR1
End If
Aggiorna:
For RR1 = RigaA To UR1
UR2 = Ws2.Range("B" & Rows.Count).End(xlUp).Row + 1
Ws2.Range("B" & UR2).Value = Ws1.Range("A" & RR1).Value
Ws2.Range("C" & UR2 & ":G" & UR2).Value = Ws1.Range("AA" & RR1 & ":AE" & RR1).Value
Next RR1
MsgBox "Archivio Aggiornato"
SaltaAgg:
che c'e che inghippa l'aggiornamento ?
allego il file
grazie
https://rapidshare.com/files/3714765104/lotto14_21num.mil_v1.6.rar
S.O. win10, Excell 2019