Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Modifica formula =SE(VAL.ERRORE

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 21/05/09 16:42

Flash30005 ha scritto:
tony61 ha scritto:Ok il programma è Per-FLASH_Archivio per test_A81002-V3
ora provo la macro sperando di riuscire a inserirla
...

Ma l'hai provata la macro?
Non ti ordina in colonna come mi avevi chiesto?

Se ti funziona come, del resto ha funzionato a me, non occorre mettere le Estra in ordine inverso o mi sbaglio?

Ciao

Grazie Flash30005 ma non mi funziona la macro ho provato diverse volte e mi da valori errati ,
non so il perchè,adesso provo a invertire l'archivio e ti faccio sapere se va a posto, x ora grazie Flash30005
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Sponsor
 

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 21/05/09 19:33

Tutto ok ho risolto invertendo l'archivio ora i dati sono perfetti la data 2009 in alto cosi
Estra-0 diventa il ritardo attuale perfetto


Bari Est 0 Est1 Est2 Est3 Est4 Est5 Est6 Est7 Est8 Est9 Est1 Est11 Est12 Est13 Est14
ambi R att Rit 1 Rit 2 Rit 3 Rit 4 Rit2 Rit 3 Rit 4 Rit 5 Rit 6 Rit 7 Rit 8 Rit 9 Rit 10 Rit 11
01.02 136 356 54 239 4 477 882 35 1672 194 40 91 0 0 0
01.03 226 725 453 462 865 694 22 479 0 0 0 0 0 0 0
01.04 343 452 203 116 194 730 329 817 147 113 244 127 29 89 237
01.05 1314 2495 328 33 0 0 0 0 0 0 0 0 0 0 0
01.06 9 641 158 99 937 187 1077 219 361 365 54 37 59 0 0
01.07 24 748 536 1959 0 0 0 0 0 0 0 0 0 0 0
01.08 226 117 246 562 158 544 639 955 35 0 0 0 0 0 0

Ora mi ci vuole 3 ore per rimettere a posto le formule , se faccio delle copie del foglio
excel x le altre ruote i riferimenti alle celle vengono persi =(#RIF!$D12),c'è un modo per non perdere i riferimenti alle celle tipo se faccio copia tutti i fogli?

ambo 01.02 =('Estra-0'!B3) =('Estra-1'!$B3) fino a Estra-24

ambo 02.90 =('Estra-0'!C4) =('Estra-1'!$C4) fino a estra-24

ambo 03.04 =('Estra-0'!D5) fino a estra-24

cosi per 90 volte devo modificare le formule

Anthony47 il tuo programma è ottimo e questo lo avevo detto fin dal'inizio andava solo interpretato bene ,
fatto l'aggiornamento per l'intero archivio 4200 estrazioni a ruota tempo 2500 secondi
poi non dovrebbe essere necessario rifarlo su tutto il testa ambi ma solo su Estra-0 credo...
che non vata a compromettere gli altri dati presenti in Estra-1 Estra-2 ecc..

Anthony47 ma le 3 macro ? solo testambi è ta utilizare giusto.


grazie siamo arrivati in conclusione finalmente

ciao
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Flash30005 » 22/05/09 01:03

Flash30005 ha scritto:Grazie Flash30005 ma non mi funziona la macro ho provato diverse volte e mi da valori errati ,

Senti ti posto il foglio Estra come me lo hai dato tu con l'aggiunta della macro funzionante che mette in colonna gli ultimi 10 ritardi iniziando dal più recente così hai ampia scelta di programmi per l'analisi

Ciao
Allegati

[L’estensione txt è stata disattivata e non puó essere visualizzata.]

Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 22/05/09 19:01

Flash30005 ha scritto:
Flash30005 ha scritto:Grazie Flash30005 ma non mi funziona la macro ho provato diverse volte e mi da valori errati ,

Senti ti posto il foglio Estra come me lo hai dato tu con l'aggiunta della macro funzionante che mette in colonna gli ultimi 10 ritardi iniziando dal più recente così hai ampia scelta di programmi per l'analisi

Ciao


Grazie Flash30005 ho risolto con l'ordinamento in colonna sei stato molto gentile ,
avendoli in colonna li dispongo x ogni tipo di ritardo 1°-2°-3° in ordine decrescente
si funziona la nacro ok

Ora aspetto la risposta di Anthony47 x il post sopra e il lavoro è terminato

ciao
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 23/05/09 03:00

Hai fatto bene a richiamare l' attenzione a una mia risposta attesa, perche' partendo dalla coda della discussione la tua domanda del 21-5 sera l'avevo perduta.
E' giusta la tua intuizione che solo Testambi va eseguita, le altre sono degli esperimenti probabilmente legati ad altre domande sul forum; ad esempio puoi usare la macro Cavolo per attendere il completamento di un comando batch che prevede l' aggiornamento del file pippo123.txt :-))
Per quanto riguarda l' uso del file su piu' ruote, la mia sensazione e' che devi usare un file per ogni ruota; questo non dovrebbe essere complesso.
Continuo a non vedere bene la trasformazione di una tabella quadrata (il contenuto di ogni foglio Estra-xx) in un elenco lineare; io creerei 10 tabelle quadrate (cioe' 10 fogli) che ricopiano nel file Statistica i primi 10 Estra del file di elaborazione.

Infine non ho capito se con la macro di Flash hai gia' il risultato complessivo che attendevi: perche' se SI allora io soprassederei sull' aggiornamento del file per elaborare solo i "delta", e se invece NO allora sono impossibilitato a eludere una promessa fatta piu' volte e mi tocca realizzare quello che serve per gestire le nuove estrazioni come aggiunte ai dati preesistenti.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 23/05/09 07:02

Tutto ok ho risolto invertendo l'archivio ora i dati sono perfetti la data 2009 in alto cosi
Estra-0 diventa il ritardo attuale perfetto

Bari Est 0 Est1 Est2 Est3 Est4 Est5 Est6 Est7 Est8 Est9 Est1 Est11 Est12 Est13 Est14
ambi R att Rit 1 Rit 2 Rit 3 Rit 4 Rit2 Rit 3 Rit 4 Rit 5 Rit 6 Rit 7 Rit 8 Rit 9 Rit 10 Rit 11
01.02 136 356 54 239 4 477 882 35 1672 194 40 91 0 0 0
01.03 226 725 453 462 865 694 22 479 0 0 0 0 0 0 0
01.04 343 452 203 116 194 730 329 817 147 113 244 127 29 89 237
01.05 1314 2495 328 33 0 0 0 0 0 0 0 0 0 0 0
01.06 9 641 158 99 937 187 1077 219 361 365 54 37 59 0 0
01.07 24 748 536 1959 0 0 0 0 0 0 0 0 0 0 0
01.08 226 117 246 562 158 544 639 955 35 0 0 0 0 0 0

1° x quello che riguarda la tabella riassunto come sopra e tutto ok ho invertito l'archivio e a posto
2° le ruote e ok le considero una alla volta con 10 fogli excel
3°se faccio un testa ambi x un aggiornamento non dovrebbe succedere nulla a il riferimento alla cella
esem..ambo 01.02 =('Estra-0'!$B3) =('Estra-1'!$B3) nel foglio riassuntivo Rit

Anthony47 siamo arrivati in conclusione ora ti chiedo ,l'unica cosa rimasta da sistemare possibilmente,
se inserisco in Foglio1 da C2 a G2 i 5 numeri estratti stasera a ruota Bari esem..
e faccio l'aggiornamento con la macro testambi mi ci vuole di nuovo 38 minuti circa ,
penso non sia il caso di rifare il testambi x tutto l'archivio ma solo su una parte la
parte che varia sono il Estra-0 perchè riferito a le estrazioni del 2009 (archivio dal 2009 in giù)
in pratica in una nuova estrazione vengono tra i 5 numeri estratti generati 10 ambi
esem.1-2-3-4-5-(1.2/1.3/1.4/1.5/2.3/2.4/2.5/3.4/3.5/4.5) l'aggiornamento con una (macro nuova aggiornaestrazione)
potrebbe essere fatto solo su i 10 ambi nuovi? e su Estra-0 cosi i 10 nuovi ambi vanno a aggionarsi
alla situazione nuova e si inseriscono in automatico sui fogli esem..Estra-8 Estra-9 ecc..
e Estra-0 che è il ritardo attuale aumenta di 1 unità x i restanti 3995 ambi che non hanno avuto variazioni sui fogli Estra-1 Estra-2 ecc. ma hanno avuto in Estra-0 il valore in cella aumentato di 1 unità (esem ambo 30.40 in Estra-0
è oggi a 356 domani dopo lestrazione va a 357) questo x i 3995 ambi che non subiscono variazioni su altri fogli.

Questo discorso vale se si inserisce una nuova riga di estrazione ,ma se si inseriscono più righe esem..6 righe di estraz.. penso sia un altro discorso, Anthony47 cosi e come la vedo io ma sei tu l'ideatore del foglio e sai come intervenire .


questo è il riassunto conclusivo il resto e tutto a posto Anthony47 ho lavorato diverse ore x sistemare il riassunto
come lo volevo io x colonna ,cosi posso ordinare i dati come voglio.

Spero di essermi spiegato bene senza errori ....

grazie ancora x la disponibilità

ciao
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 23/05/09 21:03

Ti ringrazio per avermi suggerito anche la strategia da adottare :D

Pero' devi portare pazienza, nel week end saro' abbastanza incasinato.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 23/05/09 22:32

Grazie Anthony47 fai pure con calma sempre se è fattibile

intanto ho fatto una mega macro il lavoro di ore 2,30 lo fatto registrare dalla macro ,
x il fatto che dopo testambi mi spariscono tutti i riferimenti alla celle ,e alora
la seconda volta mi sono fatto furbo e ho fatto una mega macro che in 15 secondi mi rimette in ordine tutti i dati della mia tabella riassuntiva nel foglio Rit

anche se mi da riferimento errato lo correggo con la macro

ciao e grazie ancora

Immagine


Sub riordina()
'
' riordina Macro
' Macro registrata il 23/05/2009 da Antonio
'

'
Range("C3").Select
ActiveCell.FormulaR1C1 = "=('D3'!RC[-1])"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!RC[-1])"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-0'!RC2)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-1'!RC2)"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-2'!RC2)"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-3'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-3'!RC2)"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-4'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-4'!RC2)"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-5'!RC2)"
Range("I3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-6'!RC2)"
Range("J3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-7'!RC2)"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-8'!RC2)"
Range("L3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-9'!RC2)"
Range("M3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-10'!RC2)"
Range("N3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-11'!RC2)"
Range("O3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
Range("P3").Select
ActiveWindow.SmallScroll ToRight:=7
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-12'!RC2)"
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=( 'O3'!RC2)"
Range("P3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-13'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-13'!RC2)"
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-14'!RC2)"
Range("R3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-15'!RC2)"
Range("S3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-16'!RC2)"
Range("T3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-17'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-17'!RC2)"
Range("U3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-18'!RC2)"
Range("V3").Select
ActiveCell.FormulaR1C1 = "=( '19'!RC2)"
ActiveCell.FormulaR1C1 = "=('Estra-19'!RC2)"
ActiveCell.FormulaR1C1 = "=('Estra-19'!RC2)"
Range("W3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-20'!RC2)"
Range("X3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-21'!RC2)"
Range("Y3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-22'!RC2)"
Range("Z3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-23'!RC2)"
ActiveCell.FormulaR1C1 = "=( 'Estra-23'!RC2)"
Range("AA3").Select
ActiveCell.FormulaR1C1 = "=( 'Estra-24'!RC2)"
Range("AB3").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Sheets("Rit").Select
Range("C3:AA3").Select
Selection.AutoFill Destination:=Range("C3:AA92"), Type:=xlFillDefault
Range("C3:AA92").Select
Rows("92:92").Select
Selection.Replace What:="b92", Replacement:="c4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=12
Range("C92:AA92").Select
Selection.AutoFill Destination:=Range("C92:AA180"), Type:=xlFillDefault
Range("C92:AA180").Select
Rows("180:180").Select
Selection.Replace What:="c92", Replacement:="d5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C180:AA180").Select
Selection.AutoFill Destination:=Range("C180:AA267"), Type:=xlFillDefault
Range("C180:AA267").Select
Rows("267:267").Select
Selection.Replace What:="d92", Replacement:="e6", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C267").Select
Sheets("Rit").Select
Range("C267:AA267").Select
Selection.AutoFill Destination:=Range("C267:AA353"), Type:=xlFillDefault
Range("C267:AA353").Select
Rows("353:353").Select
Selection.Replace What:="e92", Replacement:="f7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C353:AA353").Select
Selection.AutoFill Destination:=Range("C353:AA438"), Type:=xlFillDefault
Range("C353:AA438").Select
ActiveWindow.SmallScroll Down:=-9
Rows("438:438").Select
Selection.Replace What:="f92", Replacement:="g8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C438:AA438").Select
Selection.AutoFill Destination:=Range("C438:AA522"), Type:=xlFillDefault
Range("C438:AA522").Select
Rows("522:522").Select
Selection.Replace What:="g92", Replacement:="h9", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C522:AA522").Select
Selection.AutoFill Destination:=Range("C522:AA605"), Type:=xlFillDefault
Range("C522:AA605").Select
ActiveWindow.SmallScroll Down:=12
Rows("605:605").Select
Selection.Replace What:="h92", Replacement:="i10", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C605").Select
Sheets("Rit").Select
Range("C605:AA605").Select
Selection.AutoFill Destination:=Range("C605:AA687"), Type:=xlFillDefault
Range("C605:AA687").Select
ActiveWindow.SmallScroll Down:=9
Rows("687:687").Select
Selection.Replace What:="i92", Replacement:="j11", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C687:AA687").Select
Selection.AutoFill Destination:=Range("C687:AA768"), Type:=xlFillDefault
Range("C687:AA768").Select
ActiveWindow.SmallScroll Down:=12
Range("C768").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!R[-756]C[8])"
Rows("768:768").Select
Selection.Replace What:="j92", Replacement:="k12", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C768:AA768").Select
Selection.AutoFill Destination:=Range("C768:AA848"), Type:=xlFillDefault
Range("C768:AA848").Select
ActiveWindow.SmallScroll Down:=12
Rows("848:848").Select
Selection.Replace What:="k92", Replacement:="l13", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C848:AA848").Select
Selection.AutoFill Destination:=Range("C848:AA927"), Type:=xlFillDefault
Range("C848:AA927").Select
Rows("927:927").Select
Selection.Replace What:="l92", Replacement:="m14", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C927:AA927").Select
Selection.AutoFill Destination:=Range("C927:AA1005"), Type:=xlFillDefault
Range("C927:AA1005").Select
ActiveWindow.SmallScroll Down:=6
Rows("1005:1005").Select
Selection.Replace What:="m92", Replacement:="n15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1005:AA1005").Select
Selection.AutoFill Destination:=Range("C1005:AA1082"), Type:=xlFillDefault
Range("C1005:AA1082").Select
Rows("1082:1082").Select
Selection.Replace What:="n92", Replacement:="o16", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll Down:=12
ActiveWindow.SmallScroll ToRight:=9
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=6
Range("C1082:AA1082").Select
Selection.AutoFill Destination:=Range("C1082:AA1158"), Type:=xlFillDefault
Range("C1082:AA1158").Select
ActiveWindow.SmallScroll Down:=9
Rows("1158:1158").Select
Selection.Replace What:="o92", Replacement:="p17", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1158:AA1158").Select
Selection.AutoFill Destination:=Range("C1158:AA1233"), Type:=xlFillDefault
Range("C1158:AA1233").Select
Rows("1233:1233").Select
Selection.Replace What:="p92", Replacement:="q18", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1233:AA1233").Select
Selection.AutoFill Destination:=Range("C1233:AA1307"), Type:=xlFillDefault
Range("C1233:AA1307").Select
ActiveWindow.SmallScroll Down:=9
Rows("1307:1307").Select
Selection.Replace What:="q92", Replacement:="r19", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1307:AA1307").Select
Selection.AutoFill Destination:=Range("C1307:AA1380"), Type:=xlFillDefault
Range("C1307:AA1380").Select
ActiveWindow.SmallScroll Down:=6
Rows("1380:1380").Select
Selection.Replace What:="r92", Replacement:="s20", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1380").Select
ActiveCell.FormulaR1C1 = "=('Estra-0'!R[-1360]C[16])"
Range("C1380:AA1380").Select
Selection.AutoFill Destination:=Range("C1380:AA1452"), Type:=xlFillDefault
Range("C1380:AA1452").Select
Rows("1452:1452").Select
Selection.Replace What:="s92", Replacement:="t21", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=9
Range("C1452:AA1452").Select
Selection.AutoFill Destination:=Range("C1452:AA1523"), Type:=xlFillDefault
Range("C1452:AA1523").Select
Rows("1523:1523").Select
Selection.Replace What:="t92", Replacement:="u22", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1523:AA1523").Select
Selection.AutoFill Destination:=Range("C1523:AA1593"), Type:=xlFillDefault
Range("C1523:AA1593").Select
ActiveWindow.SmallScroll Down:=9
Range("C1594").Select
ActiveWindow.SmallScroll Down:=3
Rows("1593:1593").Select
Selection.Replace What:="u92", Replacement:="v23", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1593:AA1593").Select
Selection.AutoFill Destination:=Range("C1593:AA1662"), Type:=xlFillDefault
Range("C1593:AA1662").Select
Rows("1662:1662").Select
Selection.Replace What:="v92", Replacement:="w24", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1662:AA1662").Select
Selection.AutoFill Destination:=Range("C1662:AA1730"), Type:=xlFillDefault
Range("C1662:AA1730").Select
Rows("1730:1730").Select
Selection.Replace What:="w92", Replacement:="x25", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C1730:AA1730").Select
Selection.AutoFill Destination:=Range("C1730:AA1797"), Type:=xlFillDefault
Range("C1730:AA1797").Select
ActiveWindow.SmallScroll Down:=12
Rows("1797:1797").Select
Selection.Replace What:="x92", Replacement:="y26", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1797:AA1797").Select
Selection.AutoFill Destination:=Range("C1797:AA1863"), Type:=xlFillDefault
Range("C1797:AA1863").Select
ActiveWindow.SmallScroll Down:=9
Rows("1863:1863").Select
Selection.Replace What:="y92", Replacement:="z27", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1863:AA1863").Select
Selection.AutoFill Destination:=Range("C1863:AA1928"), Type:=xlFillDefault
Range("C1863:AA1928").Select
Rows("1928:1928").Select
Selection.Replace What:="z92", Replacement:="aa28", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1928").Select
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=12
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Range("C1928:AA1928").Select
Selection.AutoFill Destination:=Range("C1928:AA1992"), Type:=xlFillDefault
Range("C1928:AA1992").Select
ActiveWindow.SmallScroll Down:=-9
Range("C1993").Select
ActiveWindow.SmallScroll Down:=6
Rows("1992:1992").Select
Selection.Replace What:="aa92", Replacement:="ab29", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C1992:AA1992").Select
Selection.AutoFill Destination:=Range("C1992:AA2055"), Type:=xlFillDefault
Range("C1992:AA2055").Select
Rows("2055:2055").Select
Selection.Replace What:="ab92", Replacement:="ac30", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=12
Range("C2055:AA2055").Select
Selection.AutoFill Destination:=Range("C2055:AA2117"), Type:=xlFillDefault
Range("C2055:AA2117").Select
Rows("2117:2117").Select
Selection.Replace What:="ac92", Replacement:="ad31", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2117:AA2117").Select
Selection.AutoFill Destination:=Range("C2117:AA2178"), Type:=xlFillDefault
Range("C2117:AA2178").Select
ActiveWindow.SmallScroll Down:=6
Rows("2178:2178").Select
Selection.Replace What:="ad92", Replacement:="ae32", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2178:AA2178").Select
Selection.AutoFill Destination:=Range("C2178:AA2238"), Type:=xlFillDefault
Range("C2178:AA2238").Select
ActiveWindow.SmallScroll Down:=-6
Rows("2238:2238").Select
Selection.Replace What:="ae92", Replacement:="af33", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2238:AA2238").Select
Selection.AutoFill Destination:=Range("C2238:AA2297"), Type:=xlFillDefault
Range("C2238:AA2297").Select
ActiveWindow.SmallScroll Down:=9
Rows("2297:2297").Select
Selection.Replace What:="af92", Replacement:="ag34", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2297:AA2297").Select
Selection.AutoFill Destination:=Range("C2297:AA2355"), Type:=xlFillDefault
Range("C2297:AA2355").Select
ActiveWindow.SmallScroll Down:=12
Rows("2355:2355").Select
Selection.Replace What:="ag92", Replacement:="ah35", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2355:AA2355").Select
Selection.AutoFill Destination:=Range("C2355:AA2412"), Type:=xlFillDefault
Range("C2355:AA2412").Select
ActiveWindow.SmallScroll Down:=12
Rows("2412:2412").Select
Selection.Replace What:="ah92", Replacement:="ai36", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2412:AA2412").Select
Selection.AutoFill Destination:=Range("C2412:AA2468"), Type:=xlFillDefault
Range("C2412:AA2468").Select
Rows("2468:2468").Select
Selection.Replace What:="ai92", Replacement:="aj37", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2468:AA2468").Select
Selection.AutoFill Destination:=Range("C2468:AA2523"), Type:=xlFillDefault
Range("C2468:AA2523").Select
Rows("2523:2523").Select
Selection.Replace What:="aj92", Replacement:="ak38", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2523:AA2523").Select
Selection.AutoFill Destination:=Range("C2523:AA2577"), Type:=xlFillDefault
Range("C2523:AA2577").Select
Rows("2577:2577").Select
Selection.Replace What:="ak92", Replacement:="al39", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=17
ActiveWindow.SmallScroll Down:=24
Sheets("Rit").Select
Range("C2577:AA2577").Select
Selection.AutoFill Destination:=Range("C2577:AA2630"), Type:=xlFillDefault
Range("C2577:AA2630").Select
ActiveWindow.SmallScroll Down:=6
Rows("2630:2630").Select
Selection.Replace What:="al92", Replacement:="am40", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2630:AA2630").Select
Selection.AutoFill Destination:=Range("C2630:AA2682"), Type:=xlFillDefault
Range("C2630:AA2682").Select
Rows("2682:2682").Select
Selection.Replace What:="am92", Replacement:="an41", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2682:AA2682").Select
Selection.AutoFill Destination:=Range("C2682:AA2733"), Type:=xlFillDefault
Range("C2682:AA2733").Select
Range("C2734").Select
ActiveWindow.SmallScroll Down:=-3
Rows("2733:2733").Select
Selection.Replace What:="an92", Replacement:="ao42", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C2733:AA2733").Select
Selection.AutoFill Destination:=Range("C2733:AA2783"), Type:=xlFillDefault
Range("C2733:AA2783").Select
Rows("2783:2783").Select
Selection.Replace What:="ao92", Replacement:="ap43", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2783:AA2783").Select
Selection.AutoFill Destination:=Range("C2783:AA2832"), Type:=xlFillDefault
Range("C2783:AA2832").Select
ActiveWindow.SmallScroll Down:=-9
Rows("2832:2832").Select
Selection.Replace What:="ap92", Replacement:="aq44", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=6
Range("C2832:AA2832").Select
Selection.AutoFill Destination:=Range("C2832:AA2880"), Type:=xlFillDefault
Range("C2832:AA2880").Select
ActiveWindow.SmallScroll Down:=-3
Rows("2880:2880").Select
Selection.Replace What:="aq92", Replacement:="ar45", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C2880:AA2880").Select
Selection.AutoFill Destination:=Range("C2880:AA2927"), Type:=xlFillDefault
Range("C2880:AA2927").Select
ActiveWindow.SmallScroll Down:=6
Rows("2927:2927").Select
Selection.Replace What:="ar92", Replacement:="as46", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C2927:AA2927").Select
Selection.AutoFill Destination:=Range("C2927:AA2973"), Type:=xlFillDefault
Range("C2927:AA2973").Select
ActiveWindow.SmallScroll Down:=9
Rows("2974:2974").Select
Selection.Replace What:="as92", Replacement:="at47", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("2973:2973").Select
Selection.Replace What:="as92", Replacement:="at47", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("AA2973:AA2975").Select
ActiveWindow.ScrollColumn = 1
Range("C2973:AA2973").Select
Selection.AutoFill Destination:=Range("C2973:AA3018"), Type:=xlFillDefault
Range("C2973:AA3018").Select
ActiveWindow.SmallScroll Down:=12
Rows("3018:3018").Select
Selection.Replace What:="at92", Replacement:="au48", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3018:AA3018").Select
Selection.AutoFill Destination:=Range("C3018:AA3062"), Type:=xlFillDefault
Range("C3018:AA3062").Select
ActiveWindow.SmallScroll Down:=-6
Rows("3062:3062").Select
Selection.Replace What:="au92", Replacement:="av49", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3062:AA3062").Select
Selection.AutoFill Destination:=Range("C3062:AA3106"), Type:=xlFillDefault
Range("C3062:AA3106").Select
ActiveWindow.SmallScroll Down:=3
Rows("3105:3105").Select
Selection.Replace What:="av92", Replacement:="aw50", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=21
ActiveWindow.SmallScroll Down:=9
Sheets("Rit").Select
Range("C3105:AA3105").Select
Selection.AutoFill Destination:=Range("C3105:AA3147"), Type:=xlFillDefault
Range("C3105:AA3147").Select
Rows("3147:3147").Select
Selection.Replace What:="aw92", Replacement:="ax51", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3147:AA3147").Select
Selection.AutoFill Destination:=Range("C3147:AA3188"), Type:=xlFillDefault
Range("C3147:AA3188").Select
ActiveWindow.SmallScroll Down:=12
Rows("3188:3188").Select
Selection.Replace What:="ax92", Replacement:="ay52", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3188:AA3188").Select
Selection.AutoFill Destination:=Range("C3188:AA3228"), Type:=xlFillDefault
Range("C3188:AA3228").Select
ActiveWindow.SmallScroll Down:=6
Rows("3228:3228").Select
Selection.Replace What:="ay92", Replacement:="az53", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3228:AA3228").Select
Selection.AutoFill Destination:=Range("C3228:AA3267"), Type:=xlFillDefault
Range("C3228:AA3267").Select
Rows("3267:3267").Select
Selection.Replace What:="az92", Replacement:="ba54", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=9
Range("C3267:AA3267").Select
Selection.AutoFill Destination:=Range("C3267:AA3305"), Type:=xlFillDefault
Range("C3267:AA3305").Select
ActiveWindow.SmallScroll Down:=6
Rows("3305:3305").Select
Selection.Replace What:="ba92", Replacement:="bb55", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3305:AA3305").Select
Selection.AutoFill Destination:=Range("C3305:AA3342"), Type:=xlFillDefault
Range("C3305:AA3342").Select
Rows("3342:3342").Select
Selection.Replace What:="bb92", Replacement:="bc56", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3342:AA3342").Select
Selection.AutoFill Destination:=Range("C3342:AA3378"), Type:=xlFillDefault
Range("C3342:AA3378").Select
ActiveWindow.SmallScroll Down:=9
Rows("3378:3378").Select
Selection.Replace What:="bc92", Replacement:="bd57", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3378:AA3378").Select
Selection.AutoFill Destination:=Range("C3378:AA3413"), Type:=xlFillDefault
Range("C3378:AA3413").Select
Rows("3413:3413").Select
Selection.Replace What:="bd92", Replacement:="be58", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3413:AA3413").Select
Selection.AutoFill Destination:=Range("C3413:AA3447"), Type:=xlFillDefault
Range("C3413:AA3447").Select
Rows("3447:3447").Select
Selection.Replace What:="be92", Replacement:="bf59", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3447:AA3447").Select
Selection.AutoFill Destination:=Range("C3447:AA3480"), Type:=xlFillDefault
Range("C3447:AA3480").Select
ActiveWindow.SmallScroll Down:=-3
Rows("3480:3480").Select
Selection.Replace What:="bf92", Replacement:="bg60", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3480:AA3480").Select
Selection.AutoFill Destination:=Range("C3480:AA3512"), Type:=xlFillDefault
Range("C3480:AA3512").Select
ActiveWindow.SmallScroll Down:=6
Rows("3512:3512").Select
Selection.Replace What:="bg92", Replacement:="bh61", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3512").Select
Sheets("Rit").Select
Range("C3512:AA3512").Select
Selection.AutoFill Destination:=Range("C3512:AA3543"), Type:=xlFillDefault
Range("C3512:AA3543").Select
ActiveWindow.SmallScroll Down:=6
Rows("3543:3543").Select
Selection.Replace What:="bh92", Replacement:="bi62", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3543:AA3543").Select
Selection.AutoFill Destination:=Range("C3543:AA3573"), Type:=xlFillDefault
Range("C3543:AA3573").Select
ActiveWindow.SmallScroll Down:=9
Rows("3573:3573").Select
Selection.Replace What:="bi92", Replacement:="bj63", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3573:AA3573").Select
Selection.AutoFill Destination:=Range("C3573:AA3602"), Type:=xlFillDefault
Range("C3573:AA3602").Select
ActiveWindow.SmallScroll Down:=6
Rows("3602:3602").Select
Selection.Replace What:="bj92", Replacement:="bk64", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3602:AA3602").Select
Selection.AutoFill Destination:=Range("C3602:AA3630"), Type:=xlFillDefault
Range("C3602:AA3630").Select
ActiveWindow.SmallScroll Down:=9
Rows("3630:3630").Select
Selection.Replace What:="bk92", Replacement:="bl65", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3630:AA3630").Select
Selection.AutoFill Destination:=Range("C3630:AA3657"), Type:=xlFillDefault
Range("C3630:AA3657").Select
ActiveWindow.SmallScroll Down:=12
Rows("3657:3657").Select
Selection.Replace What:="bl92", Replacement:="bm66", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=3
Range("C3657:AA3657").Select
Selection.AutoFill Destination:=Range("C3657:AA3683"), Type:=xlFillDefault
Range("C3657:AA3683").Select
ActiveWindow.SmallScroll Down:=-6
Rows("3683:3683").Select
Selection.Replace What:="bm92", Replacement:="bn67", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3683:AA3683").Select
Selection.AutoFill Destination:=Range("C3683:AA3708"), Type:=xlFillDefault
Range("C3683:AA3708").Select
ActiveWindow.SmallScroll Down:=12
Rows("3708:3708").Select
Selection.Replace What:="bn92", Replacement:="bo68", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3708:AA3708").Select
Selection.AutoFill Destination:=Range("C3708:AA3732"), Type:=xlFillDefault
Range("C3708:AA3732").Select
Rows("3732:3732").Select
Selection.Replace What:="bo92", Replacement:="bp69", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3732:AA3732").Select
Selection.AutoFill Destination:=Range("C3732:AA3755"), Type:=xlFillDefault
Range("C3732:AA3755").Select
Rows("3755:3755").Select
Selection.Replace What:="bp92", Replacement:="bq70", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=3
Range("C3755:AA3755").Select
Selection.AutoFill Destination:=Range("C3755:AA3777"), Type:=xlFillDefault
Range("C3755:AA3777").Select
Range("C3778").Select
ActiveWindow.SmallScroll Down:=3
Rows("3777:3777").Select
Selection.Replace What:="bq92", Replacement:="br71", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3777:AA3777").Select
Selection.AutoFill Destination:=Range("C3777:AA3798"), Type:=xlFillDefault
Range("C3777:AA3798").Select
ActiveWindow.SmallScroll Down:=9
Rows("3798:3798").Select
Selection.Replace What:="br92", Replacement:="bs72", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3798:AA3798").Select
Selection.AutoFill Destination:=Range("C3798:AA3818"), Type:=xlFillDefault
Range("C3798:AA3818").Select
ActiveWindow.SmallScroll Down:=6
Rows("3818:3818").Select
Selection.Replace What:="bs92", Replacement:="bt73", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Estra-0").Select
ActiveWindow.SmallScroll ToRight:=19
ActiveWindow.SmallScroll Down:=21
Sheets("Rit").Select
Range("C3818:AA3818").Select
Selection.AutoFill Destination:=Range("C3818:AA3837"), Type:=xlFillDefault
Range("C3818:AA3837").Select
Rows("3837:3837").Select
Selection.Replace What:="bt92", Replacement:="bu74", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3837:AA3837").Select
Selection.AutoFill Destination:=Range("C3837:AA3855"), Type:=xlFillDefault
Range("C3837:AA3855").Select
ActiveWindow.SmallScroll Down:=9
Rows("3855:3855").Select
Selection.Replace What:="bu92", Replacement:="bv75", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3855:AA3855").Select
Selection.AutoFill Destination:=Range("C3855:AA3872"), Type:=xlFillDefault
Range("C3855:AA3872").Select
Rows("3872:3872").Select
Selection.Replace What:="bv92", Replacement:="bw76", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3872:AA3872").Select
Selection.AutoFill Destination:=Range("C3872:AA3888"), Type:=xlFillDefault
Range("C3872:AA3888").Select
ActiveWindow.SmallScroll Down:=9
Rows("3888:3888").Select
Selection.Replace What:="bw92", Replacement:="bx77", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3888:AA3888").Select
Selection.AutoFill Destination:=Range("C3888:AA3903"), Type:=xlFillDefault
Range("C3888:AA3903").Select
ActiveWindow.SmallScroll Down:=9
Range("C3904").Select
Cells.Replace What:="bx92", Replacement:="by78", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3903:AA3903").Select
Selection.AutoFill Destination:=Range("C3903:AA3917"), Type:=xlFillDefault
Range("C3903:AA3917").Select
ActiveWindow.SmallScroll Down:=9
Rows("3917:3917").Select
Selection.Replace What:="by92", Replacement:="bz79", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3917:AA3917").Select
Selection.AutoFill Destination:=Range("C3917:AA3930"), Type:=xlFillDefault
Range("C3917:AA3930").Select
ActiveWindow.SmallScroll Down:=9
Rows("3930:3930").Select
Selection.Replace What:="bz92", Replacement:="ca80", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("Rit").Select
Range("C3930:AA3930").Select
Selection.AutoFill Destination:=Range("C3930:AA3942"), Type:=xlFillDefault
Range("C3930:AA3942").Select
ActiveWindow.SmallScroll Down:=15
Rows("3942:3942").Select
Selection.Replace What:="ca92", Replacement:="cb81", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3942:AA3942").Select
Selection.AutoFill Destination:=Range("C3942:AA3953"), Type:=xlFillDefault
Range("C3942:AA3953").Select
ActiveWindow.SmallScroll Down:=6
Rows("3953:3953").Select
Selection.Replace What:="cb92", Replacement:="cc82", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3953:AA3953").Select
Selection.AutoFill Destination:=Range("C3953:AA3963"), Type:=xlFillDefault
Range("C3953:AA3963").Select
ActiveWindow.SmallScroll Down:=6
Rows("3963:3963").Select
Selection.Replace What:="cc92", Replacement:="cd83", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3963:AA3963").Select
Selection.AutoFill Destination:=Range("C3963:AA3972"), Type:=xlFillDefault
Range("C3963:AA3972").Select
ActiveWindow.SmallScroll Down:=3
Rows("3972:3972").Select
Selection.Replace What:="cd92", Replacement:="ce84", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3972:AA3972").Select
Selection.AutoFill Destination:=Range("C3972:AA3980"), Type:=xlFillDefault
Range("C3972:AA3980").Select
ActiveWindow.SmallScroll Down:=6
Rows("3980:3980").Select
Selection.Replace What:="ce92", Replacement:="cf85", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3980:AA3980").Select
Selection.AutoFill Destination:=Range("C3980:AA3987"), Type:=xlFillDefault
Range("C3980:AA3987").Select
ActiveWindow.SmallScroll Down:=9
Rows("3987:3987").Select
Selection.Replace What:="cf92", Replacement:="cg86", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3987:AA3987").Select
Selection.AutoFill Destination:=Range("C3987:AA3993"), Type:=xlFillDefault
Range("C3987:AA3993").Select
ActiveWindow.SmallScroll Down:=6
Range("C3980").Select
Sheets("Rit").Select
ActiveWindow.SmallScroll Down:=3
Rows("3993:3993").Select
Selection.Replace What:="cg92", Replacement:="ch87", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3993").Select
Sheets("Estra-0").Select
ActiveWindow.ScrollColumn = 71
ActiveWindow.SmallScroll Down:=9
Sheets("Rit").Select
Range("C3993:AA3993").Select
Selection.AutoFill Destination:=Range("C3993:AA3998"), Type:=xlFillDefault
Range("C3993:AA3998").Select
ActiveWindow.SmallScroll Down:=9
Rows("3998:3998").Select
Selection.Replace What:="ch92", Replacement:="ci88", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3998").Select
Sheets("Rit").Select
Range("C3998:AA3998").Select
Selection.AutoFill Destination:=Range("C3998:AA4002"), Type:=xlFillDefault
Range("C3998:AA4002").Select
Rows("4002:4002").Select
Range("C3998:AA3998").Select
Selection.AutoFill Destination:=Range("C3998:AA4002"), Type:=xlFillDefault
Range("C3998:AA4002").Select
Rows("4002:4002").Select
Selection.Replace What:="ci92", Replacement:="cj89", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C4002").Select
Sheets("Rit").Select
Range("C4002:AA4002").Select
Selection.AutoFill Destination:=Range("C4002:AA4005"), Type:=xlFillDefault
Range("C4002:AA4005").Select
Rows("4005:4005").Select
Selection.Replace What:="cj92", Replacement:="ck90", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C4005:AA4005").Select
Selection.AutoFill Destination:=Range("C4005:AA4007"), Type:=xlFillDefault
Range("C4005:AA4007").Select
Range("C4006").Select
Sheets("Rit").Select
Rows("4007:4007").Select
Selection.Replace What:="ck92", Replacement:="cl91", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("L4008").Select
Sheets("Rit").Select
ActiveWorkbook.Save
End Sub
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 27/05/09 01:31

Rieccomi...
il lavoro e' stato piu' complesso di quanto mi aspettavo comunque qualcosa e' pronto.
Trovate il link del download nel file allegato.

Ha due macro, una che calcola tutto da zero secondo l' elenco (lungo) di estrazioni allegate, la seconda che aggiunge dati relativi a estrazioni successive a quelle gia' inserite (e' consentito inserire piu' righe, purche' non ci sia un ambo che si ripete per piu' di 9 volte in quella serie).
I dati devono essere in ordine decrescente di data, cioe' i piu' recenti vanno in testa.
Non inspiratevi a queste per i vostri lavori, specialmente alla TestambiAdd: volendo riutilizzare un lavoro precedente non ne e' venuto fuori uno stile particolarmente "brillante".

Come nella versione precedente:
-vengono creati fogli ESTRA-xx per rappresentare le uscite di ogni combinazione 90*90
-ESTRA-0 rappresenta il ritardo corrente; rispetto alla versione precedente, il ritardo corrente e' "0" se la combinazione e' uscita nella prima riga dell' elenco (prima risultava "1")
-ESTRA-1 rappresenta il ritardo dell' ultima uscita, ESTRA-2 della penultima e cosi' via

L' interfaccia utente e' cambiata: ci sono 2 pulsanti per attivare le due macro, e bisogna poi confermare l' azione per continuare per evitare lanci accidentali.
A fine elaborazione viene fatta una verifica di congruita' dei dati, cioe' che per ogni coppia la somma dei ritardi dia lo stesso valore (dovrebbe essere pari al numero di righe dategli in pasto, tra operazione iniziale e operazioni successive).

Ripeto la raccomandazione di fare ulteriori calcoli sui risultati calcolati su un altro file, linkato a questo (non su fogli aggiunti a questo file), che deve essere chiuso al momento dell' esecuzione delle macro; altrimenti il tempo di esecuzione rischia di dilatarsi a dismisura.

Il tempo calcolato sul foglio (Finiremo in (sec)-->) e' comunque orientativo, ma arrivati a 20 - 21 la tolleranza e' inferiore al +/-20%.

Se avete domande, provate pure ma nin prometto risposte soddisfacenti :D

Ciao.
Allegati

[L’estensione txt è stata disattivata e non puó essere visualizzata.]

Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 27/05/09 15:26

Mille grazie davvero gentilissimo hai fatto di più di quello che immaginavo
anche i pulsanti x le macro ottimo ,io i fogli li aggiungo a siniostra del foglio1 non dovrebbero influenzare
in tempo di elaborazione .

provo subito e ti faccio sapere

ancora grazie grazie grazie
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 27/05/09 17:22

Ciao Anthony47 la prima macro testambi è ok la seconda TestambiAdd ci sono dei problemi
quelli dell'immagine sotto in pratica l'archivio è di 4207 estrazioni e normale trovare ambi usciti + di 10 volte
avendo generato fino a Estra-24 ci sono ambi usciti 24 volte .
In pratica ho aggiunto le 2 estrazioni mancanti ,dopo aver fatto testambi e salvato ho fatto TestambiAdd
x aggiornari i dati alle 2 nuove righe ,e mi ha creato questo inconveniente .
Probabilmente dovremmo variare qualcoda su TestambiAdd ,
mi dispiace farti perdere del tempo ancora mille grazie
ciao

Immagine
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 27/05/09 22:20

Ho peccato in brevita' di descrizione: quando si lancia la macro TestambiAdd bisogna inserire solo le righe nuove rispetto a quelle gia' elaborate fino a quel momento.
Ad esempio, se (con Testambi) ha elaborato le estrazioni fino al 1° maggio, inserirai le estrazioni dal 2 al 27 maggio e le elaborerai con TestambiAdd; tra dieci giorni inserirai solo le estrazioni dal 28 maggio in avanti. E' su questo blocco di poche estrazioni che esiste il limite di max 10 ambi.

Inoltre, altri calcoli inseriti in altri fogli del file (anche se posizionati a sx di "Foglio1"), rallentano l' elaborazione di Testambi in modo che non so prevedere; TestambiAdd ha un ciclo di reale esecuzione di pochi secondi, piu' parecchi secondi di verifiche di consistenza del file, non credo che avrai fastidio piu' di tanto.
Quindi: elabora il grosso con Testambi ultilizzando il file fornito (senza calcoli statistici aggiuntivi); solo poi inserisci altri fogli con altri calcoli e procedi con TestambiAdd.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi Flash30005 » 27/05/09 23:53

scusate ma il file è stato rimosso?
guardate qui
Immagine

:?: :?: :?:
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 28/05/09 14:28

Il problema e' che rapidshare consente solo max 10 download gratuiti...
L' ho messo in un posto dove non lo sfratta nessuno, vedi nuovo link.

Ciao.
Allegati

[L’estensione txt è stata disattivata e non puó essere visualizzata.]

Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi Flash30005 » 28/05/09 14:42

Anthony47 ha scritto:L' ho messo in un posto dove non lo sfratta nessuno, vedi nuovo link.

L'ho visto il nuovo link.... Ma... solo visto, perché si apre la cartella di excel (in diretta) e al momento di salvare come file chiede Utente e Password di astrofili, che non ho :roll:

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 28/05/09 14:55

Ovviamente devi fare il download...
Quando vado a quell' url il mio browser mi chiede se aprire o salvare; se scelgo di salvarlo me lo salva sul pc senza bisogno di password. Penso quindi che sia un problema di settaggio del browser.

Testato sia con Firefox che IE; di piu' non so dire, su questi temi sono un utente medio basso.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 28/05/09 15:17

Ho modificato il nome file togliendo spazi e underscore, allego nuovo link.

Fate sapere se riuscite...

Ciao.
Allegati

[L’estensione txt è stata disattivata e non puó essere visualizzata.]

Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Modifica formula =SE(VAL.ERRORE

Postdi tony61 » 28/05/09 17:41

Anthony47 ha scritto:Ho peccato in brevita' di descrizione: quando si lancia la macro TestambiAdd bisogna inserire solo le righe nuove rispetto a quelle gia' elaborate fino a quel momento.
Ad esempio, se (con Testambi) ha elaborato le estrazioni fino al 1° maggio, inserirai le estrazioni dal 2 al 27 maggio e le elaborerai con TestambiAdd; tra dieci giorni inserirai solo le estrazioni dal 28 maggio in avanti. E' su questo blocco di poche estrazioni che esiste il limite di max 10 ambi.

Inoltre, altri calcoli inseriti in altri fogli del file (anche se posizionati a sx di "Foglio1"), rallentano l' elaborazione di Testambi in modo che non so prevedere; TestambiAdd ha un ciclo di reale esecuzione di pochi secondi, piu' parecchi secondi di verifiche di consistenza del file, non credo che avrai fastidio piu' di tanto.
Quindi: elabora il grosso con Testambi ultilizzando il file fornito (senza calcoli statistici aggiuntivi); solo poi inserisci altri fogli con altri calcoli e procedi con TestambiAdd.

Ciao.


ok capito io adesso ho creato un riferimento =Foglio2!W3 =Foglio2!AA3 in automatico appena
metto nel foglio2 le estrazioni vanno a copiarsi in foglio1 e si creano 1 ho 2 nuove righe.
Avevo provato a inserire nuove righe ma mi sparisce il riferimento alle celle
Rec.----------H
1--------------0
2--------------1
3--------------2
4--------------3
cosi avevo copiato tutto l'archivio eccò dove era l'errore ,
se inserisco le nuove righe dalla riga 2 non dovrebbero esserci problemi giusto ?
anche se Reg colonna A e colonna H scendono più in basso.
Adesso riprovo con il riferimento alla cella =Foglio2!W3 =Foglio2!AA3
e di fccio sapere .
una curiosità..dopo testambi nella tabella riassuntiva da me creata e normale che
mi da (#rif!b3) (ho già fatto la macro) è solo x capire il perchè
posting.php?mode=quote&f=26&p=458178

ok riprovo il tutto

ciao ciao
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Modifica formula =SE(VAL.ERRORE

Postdi Flash30005 » 28/05/09 17:53

Anthony47 ha scritto:Ho modificato il nome file togliendo spazi e underscore, allego nuovo link.
Fate sapere se riuscite...

Per quanto mi riguarda era dovuto alle impostazioni del browser, ho provato con Firefox e mi dava la possibilità di salvare o aprire, mi sono ricordato, comunque, che una volta misi la spunta su "non fare più la domanda" e così...
Alla fine però ho trovato dove si resettava (ripristina pagine web su Strumenti di IE7)
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Modifica formula =SE(VAL.ERRORE

Postdi Anthony47 » 28/05/09 22:13

Ok, spero che sia scaricabile senza problemi per tutti.

Per tony: se la tua formula puntava a un foglio ESTRA-xx, poiche' il foglio viene eliminato dalla macro e' normale avre l' errore #RIF.
Per quanto riguarda la modalita' di lavoro, il mio suggerimento e' di mantenere un archivio di estrazioni su un file a se' stante (le estrazioni piu' recenti in testa) e lavorare con un banale copia dall' archivio e incolla su Foglio1 del file di lavoro, cancellando le colonne B:G dei dati precedenti; la col A viene ignorata, le col H:I vengono compilate dalla macro; mai cancellare H2:I2 che contengono le formule spalmate poi nelle righe successive.

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Modifica formula =SE(VAL.ERRORE":


Chi c’è in linea

Visitano il forum: alfrimpa, patel e 15 ospiti