Salve, il mio problema è questo:
dall'immagine d'esempio che ho allegato e che si trova anche all'indirizzo
http://img190.imageshack.us/img190/2699/esempioy.jpg
vedrete che ho diverse colonne ognuna delle quali con un gruppo di oggetti.
Spulciando in rete ho trovato una macro che fa al caso mio, solo che una volta modificata per le mie esigenze, ha funzionato con 4 colonne ma ora che ne ho aggiunta un'altra, mi continua ad andare in crash excel e mi compare la scritta Metodo "End" dell'oggetto Range non riuscito
Non sono più riuscito a risalire al creatore della macro,per cui ora chiedo aiuto a voi..
Quello che voglio io è che mi venga restituito nel foglio2 tutte le combinazioni possibili (si lo so che potrebbero essere decine e decine di migliaia a seconda del numero di oggetti...ma questo è quello che mi serve..purtroppo..)
La macro è la seguente:
Sub macro3()
Dim Ws1, Ws2 As Worksheet
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
UC = 4
UR = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
Ws2.Range("A1:" & "E" & UR2).ClearContents
For RR1 = 2 To UR
For RR2 = 2 To UR
For RR3 = 2 To UR
For RR4 = 2 To UR
For RR5 = 2 To UR
Titolo1 = Ws1.Cells(RR1, 1).Value
Titolo2 = Ws1.Cells(RR2, 2).Value
Titolo3 = Ws1.Cells(RR3, 3).Value
Titolo4 = Ws1.Cells(RR4, 4).Value
Titolo5 = Ws1.Cells(RR5, 5).Value
Ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Titolo1
Ws2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Titolo2
Ws2.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Titolo3
Ws2.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Value = Titolo4
Ws2.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = Titolo5
Next RR5
Next RR4
Next RR3
Next RR2
Next RR1
End Sub
Nella mia ignoranza... il valore UC è il numero massimo di oggetti che si possono combinare assieme?
Io comunque ho anche impostato a 5, ma il crash rimane.
Grazie in anticipo per chi si interesserà al mio problema!
Rispondi quotando