Trova e sostituisci

[neverlandce]

Salve a tutti,
premesso chenon mi intendo di lotto,super8,10elotto ect ect., ma leggendo nel forum i vari post mi sono incuriosito.
Vengo al punto.
Ponendo che io abbia questi dati:
schema di riduzione
cella(a1j6) ma possono variare
1-2-3-4-5-6-7-8-9-10
1-2-3-4-11-12-13-14-15-16
1-2-3-4-14-15-16-17-18-19
ect ect
colonne da giocare (m2:v6) possono variare
vengono date dal risultato della formula
elenco (z26:ab26) possono variare ci sono: i numeri messi in gioco, e i progressivi in ordine crescente come richiesto dalla formula cerca.vert.

Per la ricerca ho usato la formula ;=SE(A2=1;CERCA.VERT(AB2;Z2:AA26;2;)) e mi fa la ricerca ma, se vado a variare la sequenza nello schema di riduzione sono costretto a modificare i riferimenti di ogni singola formula.

E' possibile con formula o macro variare i soli dati delle celle dello schema di riduzione e in automatico avere le colonne da giocare??
Ho allegato un file dove, sicuramente , risulta più chiaro ciò che cerco.
http://rapidshare.com/files/277239007/r ... i.xls.html

Gracie

[Flash30005]

Ciao

Dal tuo schema non si capisce bene quando si deve finire nel senso dopo

Codice: Seleziona tutto

1   2   3   4   20   21   22   23   24   25


Immagino che subentri la seconda quartina

Codice: Seleziona tutto

15   17   19   24   25   27   32   36   40   42


Che arriverà fino a

Codice: Seleziona tutto

15   17   19   24   46   50   51   52   55   56


a meno che non ricominci con

Codice: Seleziona tutto

15   17   19   24   59   60   62   63   2   3


e in questo caso quando finiamo?
Fino a completare tutte le combinazioni?
Ti posso dire che occorrono 10 cicli e che otterrai 400 colonne (poche confrontandole con il sistema integrale di 3.268.760 colonne)
comunque ti passo le macro che fanno quello che richiedi

Codice: Seleziona tutto

Sub SvilNever()
Worksheets("Neverlandce").Select
    Columns("C:L").Select
    Selection.ClearContents
    Range("A1").Select
col = 2
riga = 1
Canc = 0
URS = Worksheets("Neverlandce").Range("A" & Rows.Count).End(xlUp).Row
    For N = 1 To URS - 6 Step 4
     For Ns = N + 4 To URS Step 6
     If Ns + 5 > URS Then GoTo salta
                        Cells(riga, col + 1).Value = Range("A" & N)
                        Cells(riga, col + 2).Value = Range("A" & N + 1)
                        Cells(riga, col + 3).Value = Range("A" & N + 2)
                        Cells(riga, col + 4).Value = Range("A" & N + 3)
                        Cells(riga, col + 5).Value = Range("A" & Ns)
                        Cells(riga, col + 6).Value = Range("A" & Ns + 1)
                        Cells(riga, col + 7).Value = Range("A" & Ns + 2)
                        Cells(riga, col + 8).Value = Range("A" & Ns + 3)
                        Cells(riga, col + 9).Value = Range("A" & Ns + 4)
                        Cells(riga, col + 10).Value = Range("A" & Ns + 5)
                        riga = riga + 1
     Next Ns
salta:
    Next N
Call ColonneNulle
    Call DelDoppi
Range("A1").Select
MsgBox "Colonne Iniziali " & RigheC & " - Cancellate " & Canc & " - Rimaste " & RigheC - Canc
End Sub
Sub ColonneNulle()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Worksheets("Neverlandce").Select
RigheC = Worksheets("Neverlandce").Cells(Rows.Count, 3).End(xlUp).Row
For I1 = RigheC To 1 Step -1
ValRiga = ""
    For CC = 3 To 11
     Agg = Cells(I1, CC).Value
        For CC2 = CC + 1 To 12
     Agg2 = Cells(I1, CC2).Value
            If Agg = Agg2 Then
                Canc = Canc + 1
                Range("C" & I1 & ":L" & I1).Select
                Selection.Delete Shift:=xlUp
            End If
        Next CC2
    Next CC
Next I1
esci:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Range("B1").Select

End Sub

Sub DelDoppi()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Worksheets("Neverlandce").Select
Righe = Worksheets("Neverlandce").Cells(Rows.Count, 3).End(xlUp).Row
For I1 = 1 To Righe - 1
ValRiga = ""
    For CC = 3 To 7
     Agg = Cells(I1, CC).Value
     If Len(Agg) = 1 Then Agg = "0" & Cells(I1, CC).Value
        ValRiga = ValRiga & Agg
    Next CC
    If ValRiga = "" Then GoTo esci
    Righe2 = Worksheets("Neverlandce").Cells(Rows.Count, 3).End(xlUp).Row
    For i = Righe2 To I1 + 1 Step -1
            ValRiga2 = ""
        For CC2 = 3 To 7
     Agg2 = Cells(i, CC2).Value
     If Len(Agg2) = 1 Then Agg2 = "0" & Cells(i, CC2).Value
            ValRiga2 = ValRiga2 & Agg2
            If ValRiga2 = "" Then GoTo esci
            If ValRiga = ValRiga2 Then
            Canc = Canc + 1
                Range("C" & i & ":L" & i).Select
                Selection.Delete Shift:=xlUp
            End If

        Next CC2
    Next i
Next I1
esci:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Range("B1").Select
End Sub


Dovrai solo nominare un foglio con il tuo nick "Neverlandce" e inserire i tuoi numeri nella colonna A dalla riga 1 (A1:A25)
poi avvii la macro "SvilNever"

Fai sapere
Ciao


P.s. Per creare un ciclo, la cosa più semplice è ripeterlo sulla colonna A copiando A1:A25 e incollarlo in A26 e poi A51 per 10 cicli devi arrivare a A250 (chiaramente)

[neverlandce]

Ciao Flash,
ho visto la macro e penso di non aver capito bene se è adatta a quello che vorrei fare io.
Io non sono in grado di creare riduzioni, cicli, sfasamenti ect, ma sfruttando alcuni esempi da voi proposti, mi sono appassionato, nel vedere il funzionamento delle macro (tue) e formule (di antony) e ho anche cercanto di modificarle per capire meglio cosa accadeva.
Detto questo che vuole essere anche una scusante per me che ti porto via del tempo, la cosa che ti chiedevo, penso sia piu semplice, o forse non ho capito come sfruttare la tua macro.
Ti allego un file dove forse ho reso piu chiaro ciò che vorrei.
http://rapidshare.com/files/277582794/r ... i.xls.html

p.s. la cosa bella di questo forum e che comunque da la possibilità di apprendere un qualcosa in più a noi "ignoranti" e di questo io personalmente ve ne sono grato.
Grazie

[Flash30005]

prova a mettere da A2 verso il basso la tua seire di numeri che devi giocare

Codice: Seleziona tutto

2
3
5
13
15
17
19
etc


Il tuo schema che occupi l'area
da C1 a L55
in N1 inserisci questa formula

Codice: Seleziona tutto

=SCARTO($A$1;C1;0)

che copierai verso destra fino alla colonna W
e poi l'intera riga fino alla riga 55

Fai sapere
Ciao

P.s. se avessi capito subito che volevi una cosa così semplice non avrei fatto quella macro

[neverlandce]

Scusami Flash,
ma quando hai fatto quella macro ho subito capito che eri andato molto oltre (comqunue è ottima)
La formuila che mi hai dato fa al caso mio grazie mille.

[Flash30005]

Ora con più calma puoi impaginare meglio il foglio:
selezioni la riga 1 e aggiungi una riga (vuota), il tutto si sposterà più in basso
poi selezioni la cella A1 (solo cella A1) e la Elimini, ti chiederà di spostare le celle in alto e premi Ok
Ora hai tutto sulla riga 2 e puoi mettere le testate da C a L (cella unita) il testo "Schema di sviluppo" e da N a W "Sviluppo"
Ora e il tutto è più intuitivo

Ciao