@Bgf1102
hai letto il mio post del 23/02/10 ore 03:29
e scaricato il file allegato? (chissà se ancora disponibile)
Vorrei sapere se l'hai provato
Ciao
Moderatori: Anthony47, Flash30005
Francesco53 ha scritto:digitando nella cella B3 anzichè un ambo, un solo numero di mia scelta, e mi ricerchi come fà per gli ambi più frequenti, le successive n estrazioni.
...e, giocare le terzine distanza 30 appartenenti ai relativi numeri da Voi selezionati...


Sub Memo()
'
Dim I As Integer: Dim F As Integer: Dim C As Integer
Sheets("Spia").Select
For C = Range("Z12") To 1 Step -1
Sheets("Spia").Select
I = 6
F = Range("DE1").Value
Range("CX" & I & ":DC" & F).Select
Selection.Copy
Sheets("Dati").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C" & I & ":H" & F + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next C
Sheets("Spia").Select
End SubTorna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 39 ospiti