Salve a tutti,

spero possiate aiutarmi con il mio quesito..

In una userform ho un pulsante e una listbox; se il pulsante viene cliccato, nella listbox, vengono visualizzate le prime sette colonne. Qui avrei la necessità di visualizzare la colonna numero 45.

Nella listbox dovranno uscire le colonne numero: 1,2,3,4,5,6,7 e 45.

Questa è la macro che utilizzo:

Private Sub CommandButton4_Click()
Dim wbFrom As Workbook, wbTo As Workbook, wkFrom As Worksheet
Dim Righe As Long, Colonne As Long, r As Long, C As Long, arrLstBox() As Variant
Dim Rng As Range
Set wbFrom = Workbooks("FileMaster.xlsx")
Set wbTo = ThisWorkbook
Set wkFrom = wbFrom.Sheets("Sheet1")
With wkFrom.Range("A5").CurrentRegion
  Righe = .Rows.Count - 1
  Colonne = .Columns.Count
  Set Rng = .Offset(1, 0).Resize(Righe, Colonne)
End With
Righe = wkFrom.Range("A5").CurrentRegion.Rows.Count - 1
Colonne = wkFrom.Range("A5").CurrentRegion.Columns.Count
Me.ListBox1.ColumnCount = 7
ReDim arrLstBox(1 To Righe, 1 To Colonne)
For r = 1 To Righe
  For C = 1 To Colonne
    arrLstBox(r, C) = wkFrom.Cells(r + 1, C)
  Next C
Next r
Me.ListBox1.List() = (arrLstBox)
End Sub

Grazie mille in anticipo per la disponibilità e buona continuazione