Cartelle

Salve,

cortesemente chiedo se si può fare questo lavoro
sul foglio sono state grigliate delle celle che
ognuna di esse formerebbe una cartella.
Poichè fare quanto sto per chiedere manualmente
comporterebbe di incorrere in errori difficili da
individuare chiedo l'aiuto vostro: come volete
in FORMULE o CODICE VBA.
Si tratta di riempire le celle delle cartelle con
numeri da 1 a 90 e che nelle celle assumano posizione
diverse uno dall'altro.
Cioè le cartelle saranno sempre riempite dai 90 numeri
solo che la posizione di essi deve essere diversa.
Per esempio il numero 1 (uno) nella prima cartella è
posizionato alla prima casella il numero uno nelle
altre 43 cartelle non avrà più quella posizione.
Si deve intendere RANDOM

Secondo punto: in rigo 2 da b2:as2 è elencato la numerazione
delle cartelle.
Dopo aver completato la compilazione delle cartelle
devo poter scegliere un certo numero di cartelle fino ad
un massimo di 12 cliccandoci sopra oppure in riga uno
B1:AS2 mettendo una x in corrispondenza del numero della
cartella si deve intendere scelta la cartella con la
x in rigo 1.

Terzo punto: in riga Q3:AB12 inserendo un numero
si deve colorare il numero delle cartelle scelte.

Credo di aver detto tutto.
Rimane da capire chi è il più coraggioso.

Grazie anticipato cmq.
Allego il file

ciao

la prima parte te lo gia' fatta riempire cartelle con valori da 1 a 90
no doppi

utilizzo della sub() che troverai nel file postato
ATTIVARE la prima cella della cartella che si vuole elaborare
lanciare la sub() con l'apposito tasto inserito

Sub Generatore_di_Numeri_Casuali()
Dim cc As Range, rr As Range
Dim r As Long, Co As Long, Rg As Long
Dim maxcol As Long, riga As Long, colonna As Long
Co = ActiveCell.Column
Rg = ActiveCell.Row
riga = Rg
colonna = Co
maxcol = Co + 9
Dim Vnumero As Variant
Valmax = 90
Application.ScreenUpdating = False
Range(Cells(riga, colonna), Cells(riga + 8, colonna + 9)).ClearContents
Randomize
For r = 1 To 90
10:
Vnumero = Int(Rnd() * Valmax + 1)
Set rr = Range(Cells(riga, colonna), Cells(riga + 8, colonna + 9))
Set cc = rr.Find(What:=Vnumero, After:=rr.Cells(1), LookAt:=xlWhole, SearchDirection:=xlPrevious)

If cc Is Nothing Then
Cells(Rg, Co) = Vnumero
Co = Co + 1
If Co > maxcol Then
Rg = Rg + 1
Co = maxcol - 9
End If
Else
GoTo 10
End If
Next
Application.ScreenUpdating = True
End Sub

riallego il tuo file
ps prova te a capire come fare per la seconda e terza domanda

Ciao locatevaresino
Solo per dirTi che 1 in AE9 è nella stessa posizione di AQ9
90 in L14 è nella stessa posizione AH14 + AS90
Pure altri...9,11,55,69,73

@gga46,
Rimane da capire ... perchè alleghi sempre degli .xlsb?

Ho questo codice sul Foglio2, sapete come posso fare per azzerare l'array?
Sarebbe giusto se nel frattempo che esegue l'array nei vari cicli For X, non inserisse i numeri già scritti sulla sinistra nella stessa posizione

Salve,

ho fatto compilare alla macro le
44 cartelle e come dice ABCD..ci
sono dei numeri che come posizione
sono ripetuti.

La domanda è se la macro controlla
le altre cartelle se lo stesso numero
è ripetuto nella stessa posizione?

A okkio ho visto che lo stesso numero
ripete la posizione.

Altro particolare è che
forse occorre diminuire il numero
delle cartelle per evitare se ci sono
doppioni di numero nella stessa posizione.

Nota se si va avanti i numeri
delle celle colorate in arancione
sono 12 (numeri da inserire ) portarli
fino a 20.

Extra ci saranno da inserire in rigo 3
(fra i 20) i numeri e capiterà di trovare
dei numeri uguali.
A seconda della quantità dello stesso
numero colorare=
se un numero =arancione;
se 2 numeri =azzurro;
se 3 numeri = verde
se 4 numeri = colore che ti piace ecc

Grazie

ciao gga46

nel file che ti allego troverai due soluzioni di sviluppo delle cartelline
la prima e' sempre quella che fa riferimento a random la seconda elabora sequenza non piu' random
fai delle prove e fai sapere
seconda sub()

Sub Genera_Tabelle_Random()
If Intersect(ActiveCell, _
Range("C6,N6,Y6,AJ6,C17,N17,Y17,AJ17,C28,N28,Y28,AJ28,C39,N39,Y39,AJ39,C50,N50,Y50,AJ50,C61,N61,Y61,AJ61,C72,N72,Y72,AJ72,C83,N83,Y83,AJ83,C94,N94,Y94,AJ94,C105,N105,Y105,AJ105,C116,N116,Y116,AJ116")) _
Is Nothing Then
MsgBox "Cella selezionata NON VALIDA" & Chr(10) & "Selezionare la prima cella di cartella"
Exit Sub
End If
''
Dim cc As Range, rr As Range
Dim i As Long, Co As Long, Rg As Long
Dim maxcol As Long, riga As Long, colonna As Long
Dim Salto As Long
Dim Vnum As Long
''
Co = ActiveCell.Column
Rg = ActiveCell.Row
riga = Rg
colonna = Co
maxcol = Co + 9
''
Application.ScreenUpdating = False
Randomize
Salto = Application.Choose(Int(Rnd() * 8 + 1), 1, 3, 5, 7, 11, 13, 17, 19)
10:
Vnum = Int(Rnd() * 90 + 1)
Set rr = Range("C6,N6,Y6,AJ6,C17,N17,Y17,AJ17,C28,N28,Y28,AJ28,C39,N39,Y39,AJ39,C50,N50,Y50,AJ50,C61,N61,Y61,AJ61,C72,N72,Y72,AJ72,C83,N83,Y83,AJ83,C94,N94,Y94,AJ94,C105,N105,Y105,AJ105,C116,N116,Y116,AJ116")
Set cc = rr.Find(What:=Vnum, After:=rr.Cells(1), LookAt:=xlWhole, SearchDirection:=xlPrevious)
If cc Is Nothing Then
GoTo 20
Else
GoTo 10
End If
20:
For i = 1 To 90
Cells(Rg, Co) = Vnum
Co = Co + 1
Vnum = Vnum + Salto
If Vnum > 90 Then Vnum = Vnum - 90
If Co > maxcol Then
Rg = Rg + 1
Co = maxcol - 9
End If
Next i
Application.ScreenUpdating = True
End Sub

preferisco
NUMERI CASUALI
cioè la prima macro

scusami abcd

non avevo letto la domanda, mi sfuggiva

uso xlsb perchè con i sovaccarichi dei dati
che inserisco formule e casinate varie il
file me lo mantiene leggero e cmq il codice
delle macro è cmq accettato.

ciao

ciao

penso che la seconda e' quella che ti serve in quanto stando alla tua riciesta

( Si tratta di riempire le celle delle cartelle con
numeri da 1 a 90 e che nelle celle assumano posizione
diverse uno dall'altro.
Cioè le cartelle saranno sempre riempite dai 90 numeri
solo che la posizione di essi deve essere diversa.
Per esempio il numero 1 (uno) nella prima cartella è
posizionato alla prima casella il numero uno nelle
altre 43 cartelle non avrà più quella posizione. )

facendo quattro calcoli cosi ad occhio esiste 1 probalita' su 400000 +o- forse piu'che lo stesso numero si trova nella medesima posizione di un'altra cartella

comunque vorrei vedere da parte tua l'evoluzione della richiesta 2 e 3

teoricamente patteggerei per numeri random
penso
che i numeri me li da a casaccio
mentre e penso
che adottando il metodo per cartelle
mi dia delle consecutività più lunghe
intendo esempio 1-2-3-4
che nella riga e nella colonna ci sia
qualche consecutività non c'è il problema.

Cerco di essere più chiaro
riguardo le cartelle
che non ci siano molte serie nella cartella
ancora un esempio:
1-2-3-4
23-24-25-26
66-67-68
inteso per riga e per colonna
ma se ciò difficilmente si verifica
va bene anche la generazione di numeri per
cartelle

specifico meglio
che la serie nella riga
1=2
2=x
3=3
4=x
5=4
6=x
7=x
8=5
9=x
10=x
considerando riga o colonna
la serie consecutiva c'è
con 2-3-4-5
cioè non è detto che la serie nella
riga o colonna deve rispettare
A-B-C-D

Genera_Tabelle_Random non và bene (in cartella8 manca 1)
Usandola una più volte, potrebbe mancare un numero oppure essere doppio.

In questo istante vedo cinque 5 in cartella4. In teoria con 90 numeri si potrebbe creare 90 righe random differanti (ex in foglio2 tramite formule)
Non sono in grado di modificare il codice sopra e sarà molto difficile che il VBA ci riesca. Rimango convinto che almeno il 50% delle righe le possa creare

ciao

ho terminato il tutto e mi sono accorto anch'io di quell'errore che si verifica con il salto 3 e 5
modifica ta la sub()

da cosi
Salto = Application.Choose(Int(Rnd() * 8 + 1), 1, 3, 5, 7, 11, 13, 17, 19)

a cosi
Salto = Application.Choose(Int(Rnd() * 6 + 1), 1, 7, 11, 13, 17, 19)

comunque io ho finito tutte le richieste fatte
con inserita una nuova sub() che fa questo lavoro
aspettando il file di gga46 per vedere come si e evoluto e a che punto e' arrivato per i punti 2 e 3

domani posto il mio finito

io ho lasciato tutte e due le sub() cosi uno utilizza o la prima o la seconda

Complimenti, a me risulta OK
Non capisco il perchè del 6 e neppure che il (3-5), erano pure loro numeri "primi"

Forse ho capito, 6 sono i numeri in salto, il resto no (legato ai numeri "primi")

Salve Locate,

ho letto l'ultimo post
e mi chiedi lumi sui punti 2 e 3
Credo di essermi perso...
Quindi tu aspetti notizie da me
ed io aspetto da voi....
cosa devo vedere?

siccome avrai fatto e rifatto il codice

sto notando che in alcune cartelle
manca il o più numeri,
non so se questo ti risulta

faccio una mia osservazione
sperando sia pertinente.
Invece di randomizzare cartella per
cartella se si può stabilire in avvio
di randomizzare 20 cartelle e che
man mano che si compila la cartella
si deve tenere conto dei dati immessi
nelle altre cartelle...

ciao gga46

guarda che io ti ho chiesto se stai procedendo con il file per tuo conto a verificare e colorare le varie cartelle che tu selezioni, e colorare i vari numeri che immetti in riga 3 da evidenziare in ogni cartella ??

per ABCDE (ciao) ho escluso i valori 3 e 5 perché fatte due considerazioni e visto che venivano immessi valori doppi
spiego il perché ammettiamo di iniziare con un valore 87 e salto=3 ora
scriviamo 87 il prossimo sara' 90 dopo avremmo 93 a questo punto tolgo da 93 90 perché il max e' 90 quindi abbiamo 3 ma se sommiamo 3 arriviamo a 87 e 90 seguito da 93 che a sua volta e' 3 ecc ecc
stessa stroria e' il 5

il 1, 7, 11, 13 ,17 ,19 non rientrano in queste casistiche
la funzione che da il valore salto non e' che la funzione SCEGLI() di excel

PS nel mio file finito ho messo anche la verifica dei numeri doppi oltre che alla ricerca delle 12 cartelle e colorare i numeri richiesti

a postarlo aspetto ancora un pochino in quanto vedo solamente da parte di ( gga46 ) delle richieste e non degli avanzamenti al lavoro in esso

Sto cercando di seguirvi,

se vi può essere utile le cartelle
si possono tagliare anche di una ventina
anche perchè nel mio progetto saranno considerate
massimo 4-5 cartelle ma non so se risolve
i numeri primi, 3 e 5.

Per quanto riguarda la riga 3 del foglio1
per taglire la testa al toro, perchè una cosa
che devo verificare, tabelle in mano,
prima erano di inserire 15 numeri poi ho fatto
richiesta di portarli a 20 portare i numeri
da inserire fino a 35 anche perchè non è detto che
se non vengono inseriti tutti non non concludo
niente. Di quelli che inserisco in riga 3 di
quelli ne devo tenere conto.

Locate non ti arrabbiare,
forse ho battuto la testa,

come faccio a scegliere le cartelle
esempio vorrei 3-6-8

poi inserendo i numeri in riga 3 non succede niente


non saprei devo scaricare un ltro file?

Ho quello con le due macro

???

@locatevaresino
Con il Tuo metodo, posso creare 90 righe random?

intendi 10 cartelle?

ogni cartella ha 9 righe

cioè 10 cartelle

possono anche bastare

Non avrei capito la domanda

ma me servono le cartelle

cartelle in cui i numeri siano presenti
da uno a 90 e che tra una cartella e l'altra
gli stessi numeri non abbiano la stessa posizione.

Mi permetto un suggerimento,
fuori dalla cartella a fianco e sotto a fine
potreste mettere dei numeri che al caso
condizionato servano di aiuto come sottrarre
quindi numeri >90 che pur presenti sul foglio
non facciano parte della cartella
Come supporto..
Prima di andare a letto qualche castroneria
la devo dire.
Non si sa mai...

ciao

come promesso prima di andare a letto metto in rete il file con tutte le sub() inserite, e il lavoro che fanno

PS

(Credo di aver detto tutto.
Rimane da capire chi è il più coraggioso. )

non sono un coraggioso, ma uno che con il COVID19 sta in casa e non avendo niente da fare mi sono divertito
anzi in questo periodo piu' le cose sono incasinate piu' mi diverto a trovare soluzioni

Salve e buona giornata

"restando a casa"
cosa che molta gente non vuol capire
pretendendo libertà e diritti,
la democrazia ci ha dato troppo alla testa,
...

Veniamo a noi ...

Di buon mattina, or ora, ho scaricato e
aperto il file.
Nel lungo andirivieni di messaggi
ti sarà sfuggito che avevo chiesto
di portare a 35 i numeri da inserire
nelle cartelle (se non ho numeri da inserire
tutto il lavoro che hai fatto rimarrebbe in
archivio,nel contempo ti chiedo qualora necessiti
di un ulteriore aumento (no paga ne pensione)
di numeri dove andare a mettere mano nella
macro.

Poiti dirò del "coraggioso"

Per i numeri da inserire
ho capito che è una formula
condizionale

no problem

sto verificando l'immissione dei dati
di rigo 3, mi colora dati fino ad un certo punto.

Non so andare avanti..

In formattzione condizionale ho corretto
AB l'ho portato AT

però come detto molti messaggi addietro
che vorrei
se un numero ARANCIONE
se due numeri uguali un altro colore
se tre numeri un altro colore diverso da uno e due
se quattro numeri ancora un colore diverso

Help me
🏁

allego di come lo sto impostando


ripeto ci sarebbe da rettificre
l'inserimento e la colorazione
dei numeri inseriti

ciao

le nodifiche da fare in questo caso sono tre
la prima prolungare l'inserimento dei valori portarlo a 35

sempre in confronta_e_colora()
aumentare il Range()
For Each Numeri In Range("G3:AO3")

la seconda indicizzare altre variabili per la formattazione condizionale alle cartelle in RegoleNonDoppi()

Dim F_C2 As String, F_C3 As String, F_C4 As String

la terza inserire le tre regole generate in ogni cartella
For Each cella In Range("C6,N6,Y6,AJ6,C17,N17,Y17,AJ17,C28,N28,Y28,AJ28,C39,N39,Y39,AJ39,C50,N50,Y50,AJ50,C61,N61,Y61,AJ61,C72,N72,Y72,AJ72,C83,N83,Y83,AJ83,C94,N94,Y94,AJ94,C105,N105,Y105,AJ105,C116,N116,Y116,AJ116")
Nrig = cella.Row
Ncol = cella.Column
daA = Cells(Nrig, Ncol).Address()
finoA = Cells(Nrig + 8, Ncol + 9).Address()
AA = Cells(Nrig, Ncol).Address(0, 0)
F_C2 = "=CONTA.SE(" & daA & ":" & finoA & ";" & AA & ")=2"
F_C3 = "=CONTA.SE(" & daA & ":" & finoA & ";" & AA & ")=3"
F_C4 = "=CONTA.SE(" & daA & ":" & finoA & ";" & AA & ")>=4"
Range(Cells(Nrig, Ncol), Cells(Nrig + 8, Ncol + 9)).Select
''' F_C2
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=F_C2
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255 '''rosso
.TintAndShade = 0
End With
'''F_C3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=F_C3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936 '''verde
.TintAndShade = 0
End With
'''F_C4
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=F_C4
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696 '' celeste
.TintAndShade = 0
End With
''''
Selection.FormatConditions(1).StopIfTrue = False
Next cella

PS per questo lavoro serve una discreta conoscenza di programmazione VBA
lavoro fatto in 10 minuti

riallego il file con variazioni
PS le cartelle da controllare possono essere -o+ di 12 anche se riceviamo un avvertimento alla riga 1

Salve,

in una cella B6 ho inserito
questa formula:

=SOMMA(--(MATR.PRODOTTO(CONTA.SE(C6:L6;$G$3:$AO$3);RIF.RIGA($A$1:$A$35)^2)>1))

me ne conta uno mentre ce ne sono diversi.

Da chiunque un aiuto per non disturbre
sempre la stessa persona(Locatevaresino)

Se non è quella corretta può essere cambita

Grzie

chiedo scusa per ulteriori fastidi

ma ora che ho il materiale in mano posso

capire cosa e come mi serve.

Prima cosa, cortesemente portare a 40
i numeri da inserire che colorano le cartelle
ne ho bisogno è l'anima del progetto;
poi nel precedente messaggio chiedevo
unaa correzione di formula ed è il caso
che specifico meglio ciò che vorrei:
puntualizzo: ad inizio colonna B6 ho
inserito tanti conta.se per contare quanti numeri
di riga 3 sono presenti nella riga 6 sempre
riferito alla cartella slo che vorrei sapere
quanti sono realmete i numeri nella riga 6
perchè quando conta un doppone me ne conta 2- 3 mentre
realmente nella riga ci sta un numero diverso

Le formule sono nelle colonne colorate in arancione
e di riga quelle colorate in verde chiaro.

Attenzione che se si usa il tasto verifica
i colori delle colonne e righe citate vengono cancellate
ma non importa, le ho colorate per individuare
il problema.
intanto allego il file