Post by MauroVorrei riuscire ad inserire in gruppi di celle uguali (dimensioni: 3 righe
per 5 colonne) una serie di numeri scelti casualmente in una serie da 1 a
600.
Posso estrarre i numeri a gruppi di 15 per tutta la serie, facendo in modo
che ciascun numero della serie sai estratto una sola volta.
Ma come fare per la formazione dei gruppi e la stampa di ciascun gruppo su
etichette?
É possibile ordinare in ordine crescente i numeri di ciascun gruppo?
Grazie per gli aiuti
Io sto applicando questa macro:
Sub Lotto1()
'
' Lotto1 Macro
' Macro registrata il 10/09/2006 da Mauro
'
' Scelta rapida da tastiera: CTRL+b
'
Dim scheda As Integer
Dim destinazione As Range
Set destinazione = Range("G2")
Range("C2:C3").Select
ActiveCell.FormulaR1C1 = "1"
Range("C2:C3").Select
Range("C3").Activate
ActiveCell.FormulaR1C1 = "2"
Range("C2:C3").Select
Selection.AutoFill Destination:=Range("C2:C601")
Range("C2:C571").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=CASUALE.TRA(1,10000)"
Selection.AutoFill Destination:=Range("B2:B601")
Range("B2:B601").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("B2").Select
Range("B2:C601").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'fine dell'estrazione casuale
'questo ciclo estrae 40 serie di numeri e li
trasporta in tabella
For scheda = 1 To 40
Range("C2:C16").Select
Selection.Copy
Cells(2, 6 + scheda).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("C2:C16").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Next scheda
' con le seguenti istruzioni ruoto la tabella per ottenere un eleco
utilizzabile per la stampa delle schede
Range("G4").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
Range("F21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
End Sub
Può essre migliorata, ma già mi va bene.
Quello che non riesco a fare e:
- ordinare ogni singola riga della seconda tabella per valori crescenti;
- comporre a video ciascuna scheda con i valori dei record della tabella
suddivisi in tre righe.
Si puo fare?
Grazie