EXCEL Macro imperfetta

[Francesco53]

Buona serata a tutto il Forum,
ho una difficoltà su una macro, probabilmente dipende dalla mancanza di un ciclo For.Next.
Allego file con spiegazione di ciò che volevo realizzare, se non chiaro attendo vostre domande.
http://www.mediafire.com/?yfl2q55oty5ylz5

Grazie
Francesco

[Flash30005]

Ci sono cose rimaste oscure
1) Le tabelle In H2:L10 e N2:R10 (e successive) sono necessarie? (la prima è solo un duplicato dell'archivio, la seconda detrae il valore di B40 alla prima tabella).
se sì,
2) Il valore da detrarre è sempre in B40 o aumenta con le estrazioni, ad esempio B72?
3) le formule della tabella U2:Y10 già fanno quello che richiedi, quindi cosa ti occorre?

Ciao

[Francesco53]

Buongiorno Flash,
1) le tabelle delle colonne H:L le ricopia la macro quando in colonna A rileva la presenza del numero 1, si possono
anche evitare di scrivere, è stato fatto solo per far vedere cosa succedeva, per poi andare avanti.
Le colonne N:R sono il risultato che dipende dalla differenza tra il numero della colonna B al fianco dell' 1 rilevato
e i numeri relativi alla tabella di colonna H:L. per cui nell'esempio postato, abbiamo che il primo 1 della colonna in A1
è corrisponde come numero 55, per cui i numeri da H2:L10, andrebbero sottratti al 55, come leggi in tabella U2:Y10.
e cosi per il secondo 1 in A14 a cui corrisponde in B14 il 52 e pertanto la tabella da H15:L23 dovrebbe sottrarre il 52
ad ogni numero rilevato. La macro che è nel foglio, purtroppo non riesco a farla lavorare per ogni tabella relativa al
numero corrispondente, ma come nel foglio postato, sottrae a tutte le tabelle l'ultimo numero rilevato e non i corrispondenti.
Inserisco la macro che ho rappezzato (presente nel foglio inviato) a cui penso manchi un blocco che ad ogni uno rilevato faccia
il calcolo per poi riprende l'analisi sino al successivo 1.

Codice: Seleziona tutto

Sub Ricerca()
Dim SP As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.EnableEvents = False
NS = 1  '1° num uscito in colonna B
EU = 1  'uscita num.1 in colonna A
NR = 1
Range("H1:R100").Clear
ReDim EX(1000, 5)
ReDim US(1 To 90)
    For x = 1 To 50
        y = NS
            If Cells(x, y) = EU Then
            SP = Cells(x, y + NS)
            For RC = 1 To 9
                    For ZT = 1 To 5
                        EX(x + RC, ZT) = Cells(x + RC, 1 + ZT)
                    Next
            Next
            End If
    Next
For T = 1 To 50
    For COL = 1 To 5
        Cells(T, 7 + COL) = EX(T, COL)
        SOM = Cells(T, 7 + COL).Value
            If SOM > SP Then
                RIS = SOM - SP
                Cells(T, 13 + COL) = RIS
            End If
            If SOM < SP Then
                RIS = SOM + 90 - SP
                Cells(T, 13 + COL) = RIS
            End If
            If SOM = SP Or SOM = "" Then
                Cells(T, 13 + COL) = EX(T, COL)
            End If
    Next
Next
Range("A1").Select
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

2) essendo un archivio la dimensione è superiore, solo per comodità ho inserito solo le prime 50 righe.
3) per evitare di avere un foglio pieno di formule come nelle colonne U:Y ho realizzato la macro.
Spero di essere riuscito a far capire cosa cerco di realizzare per evitare di inserire un mare di formule.
Francesco

[Flash30005]

Prova Questa macro

Codice: Seleziona tutto

Sub CreaTabelle()
Columns("N:Y").ClearContents
UR1 = Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR1 To 1 Step -1
    If Range("A" & RR1).Value = 1 Then
    RigaU = RR1
    ValU = Range("B" & RR1).Value
    GoTo EsciRR1
    End If
Next RR1
EsciRR1:
For RR1 = 1 To RigaU - 1
    If Range("A" & RR1).Value = 1 Then
    ValI = Range("B" & RR1).Value
        For NR = RR1 + 1 To RR1 + 9
            For NC = 2 To 6
            ValN = Cells(NR, NC).Value - ValU
            If ValN < 1 Then ValN = ValN + 90
            ValX = Cells(NR, NC).Value - ValI
            If ValX < 1 Then ValX = ValX + 90
                Cells(NR, NC + 12).Value = ValN
                Cells(NR, NC + 19).Value = ValX
            Next NC
        Next NR
    End If
Next RR1
End Sub


Ho evitato di ricopiare la tabella H2:L10 in quanto, come tu stesso hai detto, è inutile

Ciao

P.s. per velocizzare la macro puoi inserire le righe di codice che conosci, all'inizio macro

Codice: Seleziona tutto

Application.ScreenUpdating = False
Application.Calculation = xlManual

e le due righe alla fine per ripristinare calcolo e aggiorna schermo

Codice: Seleziona tutto

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

[Francesco53]

Grazie Flash,
sembra tutto ok, farò ulteriori prove e se c'è qualche difficoltà ti farò sapere.
Francesco

[Flash30005]

Fai attenzione quando fai le prove perché ho trovato una discordanza tra la tua tabella e i risultati della macro
più precisamente in O10, la tua tabella riporta 3 mentre la macro calcola 90.
Penso che sia giusta la macro

ciao

[Francesco53]

Ciao Flash,
le colonne da U a Y sono giuste, e sono quelle che mi servono, le colonne da N a R come giustamente
hai detto è inutile scriverle e perdere decimi di secondi. Ho dovuto modificare la macro in quanto non
teneva conto dell'ultimo caso valido e se analizzato, cercando sulle nove successive scriveva anche dove
non c'erano dati. Adesso è tutto ok, pubblico modifica nel caso qualche utente possa essere interessato.

Codice: Seleziona tutto

Sub CreaTabelle()
    Columns("N:Y").ClearContents
    UR1 = Range("A" & Rows.Count).End(xlUp).Row
    PF = Cells(1, 27) 'Estrazione scelta
    CP = Cells(1, 28) 'Colpi di ricerca
    For RR1 = UR1 To 1 Step -1
        If Range("A" & RR1).Value = PF Then 'colonna con numero estrazione
        RigaU = RR1
        ValU = Range("B" & RR1).Value       'colonna con 1 estratto
        GoTo EsciRR1
        End If
    Next RR1
EsciRR1:
    For RR2 = 1 To RigaU ' - 1
      If Range("A" & RR2).Value = PF Then   'colonna con numero estrazione
      ValI = Range("B" & RR1).Value         'colonna con 1 estratto
            For NR = RR2 + 1 To RR2 + CP
    If NR = UR1 + 1 Then
    GoTo EsciRR2
    End If
                For NC = 2 To 6             'colonne archivio
                   ValX = Cells(NR, NC).Value - ValI
                        If ValX < 1 Then ValX = ValX + 90
                           Cells(NR, NC + 19).Value = ValX
                Next NC
            Next NR
        End If
    Next RR2
EsciRR2:
End Sub

Grazie
Francesco

[Flash30005]

Ma sbaglio o manca qualcosa?
Ora la macro scrive, la tabella che era nelle colonne N:R nelle colonne U:Y
e la tabella che occupava le colonne U:Y (con le formule)?

3) per evitare di avere un foglio pieno di formule come nelle colonne U:Y ho realizzato la macro.

(toglieva al numero estrazione in esame, il primo valore dell'ultima estrazione avente 1 nella colonna A: ValU)



Ciao

[Francesco53]

Ciao Flash,
la tabella con le formule, l'avevo inserita per far veder il risultato finale che cercavo.
3) per evitare di avere un foglio pieno di formule come nelle colonne U:Y ho realizzato la macro.
Nella macro da te postata, ho tolto solo la stampa della tabella 1 da H a L escludendo queste righe:

Codice: Seleziona tutto

ValN = Cells(NR, NC).Value - ValU
            If ValN < 1 Then ValN = ValN + 90

In quanto il risultato cercato lo elaborava ValX, che è la sottrazione tra i numeri usciti successivamente
all'estratto della estrazione in esame (1,2,..,9,U).
ValU continua ad esistere come puoi vedere nella macro corretta, ho solo evitato la scrittura della prima tabella,
conservando la seconda ed eliminando quella dell'esempio creato con le formule.
Funziona benissimo e ti ringrazio, avrei anche altro da chiedere ma non voglio occupare lo spazio a discapito di altri.
Grazie
Francesco

[Francesco53]

Questo è il file dopo la modifica:
http://www.mediafire.com/?rndq712p1143r1w
Francesco

[Flash30005]

Ecco! Adesso si! (hai i valori che evidenziavi con "Corretti" della ex tabella in U:Y)
la macro precedentemente postata invece forniva i valori della ex tabella N:R ed era dovuto ad un tuo errore durante la modifica della macro, infatti la riga

Codice: Seleziona tutto

      ValI = Range("B" & RR1).Value         'colonna con 1 estratto

è errata perché stai nel ciclo for next RR2 mentre "ValI" prende il valore di RR1 della routine precedente

Ciao