Salve a tutti.
Poiche'' il foglio che vado a caricare non ha dimensioni fisse, e devo caricare escudendio la prima riga, "mi metto al sicuro" scrivendo ListBox1.RowSource = "Bf0109!A2:CC2000". Cosi', pero', carico tantissime righe bianche ed appensatisco la gestione del controllo.
Allora ho scritto questa routine
Sheets("BF").Select
righe109 = Sheets("BF").Cells(Rows.Count, "A").End(xlUp).Row
col109 = Range("A2").CurrentRegion.Columns.Address
indirizzo = ""
duepunti = InStr(col109, ":")
col109b = Mid(col109, duepunti + 1, (Len(col109) - duepunti))
For X = 1 To Len(Trim(col109b))
If Mid(col109b, duepunti + X, 1) <> "$" Then
indirizzo = indirizzo + Mid(col109b, X, 1)
End If
Next
indirizzo = "A2:" & indirizzo
ListBox1.RowSource = "BF!" & indirizzo
La routine funziona, ma per poter imparare qualcosa di nuovo, non e' che c'e' un modo piu' immediato con istruzioni proprie di vba per avere lo stesso risultato in maniera "piu' elegante" ?
Grazie