Complimenti Tanimon per l'ottimo lavoro, con conoscevo la possibilità del multicolumn, mi sono permesso di fare qualche modifica al codice per inserire i dati direttamente nelle varie celle del foglio1
Private Sub ComboBox1_Click()
Dim ur As Long
ur = Sheets("Foglio1").Range("a" & Rows.Count).End(xlUp).Row + 1
Dim area As Range
Set area = Range("a" & ur)
For i = 0 To 6
area = area & ComboBox1.Column(i) & " "
Next
area.TextToColumns Destination:=area, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1)), TrailingMinusNumbers:=True
Range("a3").Activate
End Sub[Modificato da patel45 13/08/2017 06:23]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta