Visual Basic 6 - LOOP VB in Excel

Per RAND:

Cosa vuol dire: "una un ciclo annidato x la posizione" ??

Bobss1

P.S.: scusa per l'ignoranza in materia, ma sto iniziando ora ad assaporare V.B.

vUoL DiRe 2 FoR aSSiEmE TiPo

dim I, J as integer

For I=0 to n
For J=0 to n
  'da qua vai alla posizione che vuoi usando I e J
next I
next J

alla lunga non conviene. se bisogna calcolare su due ok ma a lavorare con 4 o più diventa pesantino...

hai provato ad usare un loop con il comando range("q5".offset(x,y)?

Ciao.. sei poi riuscito a risolvere il problema?



ma la macro precisamente cosa deve fare?
che a me sembra che faccia una trasposizione di valori.. tra l'altro copia quelli in Q3 in Q5
per cui dopo 2 cicli prende quelli che hai incolato prima.. se lo cicli per 750 RIGHE

cmq una versione grezza del codice può essere (sempre che abbia capito bene cosa debba fare la macro)

Sub combinazioni()
'
' combinazioni Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Range("B5".Select
For i = 1 To 750
'copio da b3
ActiveCell.Range("A1:F1".Select
Selection.Copy
'incollo in i2
ActiveCell.Offset(-1, 7).Range("A1:F1".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


'copio da q3
ActiveCell.Offset(1, 8).Range("A1:F1".Select
Selection.Copy
'incollo in q5
ActiveCell.Offset(2, 0).Range("A1".Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'vado alla riga successiva
ActiveCell.Offset(-1, -15).Range("A1".Select
Next i

End Sub

Anche se dubito fortemente che volevi questo risultato

Ciao CESARE