Cambia tutti i "*11" in "*10" (ce ne sono 4, mi pare).
Poi cancella l' area creata precedentemente e riesegui la macro.
Ciao
Moderatori: Anthony47, Flash30005
Sub trasp()
DestA1 = "C5" '<<L' origine dove verra' creata la nuova tabella
Dim myVArr, I As Long, J As Long, K As Long, II As Long, JJ As Long
[A1] = Timer
Application.ScreenUpdating = False
LastJ = Cells(Rows.Count, "J").End(xlUp).Row
myVArr = Range("K4:BI4").Resize(LastJ - 3).Value
For I = LBound(myVArr, 1) To UBound(myVArr, 1)
For J = 1 To 10
Range(DestA1).Offset((I - 1) * 10, 5).Resize(10, 1) = myVArr(I, 1)
For K = 1 To 5
Range(DestA1).Offset((I - 1) * 10 + (J - 1), K - 1) = myVArr(I, (J - 1) * 5 + K + 1)
Next K
Next J
Next I
'
Application.ScreenUpdating = True
myRuote = Array("Bari", "Cagliari", "Firenze", "Genova", "Milano", "Napoli", "Palermo", "Roma", "Torino", "Venezia")
J = 0
Do
J = J + 1
If Range(DestA1).Offset((J - 1) * 10, 0) = "" Then Exit Do
Range(DestA1).Offset((J - 1) * 10, -1).Resize(10, 1) = Application.WorksheetFunction.Transpose(myRuote)
Loop
[a2] = Timer
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Formula per proporzionare un numero Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 43 ospiti