| | Post: 136 | Registrato il: 20/01/2020
| Età: 60 | Utente Junior | 2016 | | OFFLINE | |
|
  03/04/2020 10:48 | |
Ciao a Tutti,
Se possibile avrei bisogno di generare in un modo rapido gli ambi possibili del lotto perchè farlo trascinando per più celle è un pò macchinoso così potrò crearlo quando mi occorre.
Ho preparato file con elenco dei numeri sperando di trovare una soluzione un pò veloce.
Grazie come sempre |
|
| | Post: 2.623 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 03/04/2020 11:50 | |
Ciao
Sub Ambi()
Dim I As Integer: Dim J As Integer: Dim K As Integer
Set cella = Application.InputBox("Selezionare cella di partenza", , , , , , , 8)
If cella Is Nothing Then Exit Sub
r = cella.Row
c = cella.Column
For I = 1 To 90
For J = 1 + I To 90
If J = I Then GoTo skip:
Cells(r, c) = "'" & I & "-" & J
c = c + 1
skip:
Next J
Next I
End Sub Ovviamente occhio alla cella di inizio visto che le colonne sono circa 16mila
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 138 | Registrato il: 20/01/2020
| Età: 60 | Utente Junior | 2016 | | OFFLINE | |
|
| 03/04/2020 11:59 | |
Certo, Perfetto, Grazie ancora. |
|
|
|
|