Macro Concatena seleziona fino a prima cella vuota

[Omocaig]

Ciao a tutti, avrei bisogno di aiuto, come faccio a far si chela selezione si fermi alla prima cella vuota e non all'ultimo valore della colonna ?

Codice: Seleziona tutto

Sub concatena()

Dim i As Long
Dim ur As Long
Dim risultato As String
ur = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
    risultato = risultato & "','" & Range("a" & i).Value
Next i
ActiveCell.Value = risultato

End Sub

Grazie mille, G.

[wallace&gromit]

in questo caso non devi cercare l'ultima riga piena ma la prima riga vuota "prv"

Codice: Seleziona tutto

prv = Cells(1, 1).End(xlDown).Row
For i = 2 To prv


P.S. a scanso di problemi non ti converrebbe trasformare la macro in una user function dove inserisci tu il range?

Codice: Seleziona tutto

Function concatenaS(celle)
Dim risultato As String

For Each i In celle
    risultato = risultato & "','" & i.Value
Next i

risultato = Mid(risultato, 3)
concatenaS = risultato

End Function


ho tolto anche la virgola iniziale

PS2: i valori di i e ur (o prv nel mio caso) sono sempre interi, meglio definirli come integer e non long (non cambia nulla per una piccola macro come questa, però è più pulito)