Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro Concatena seleziona fino a prima cella vuota

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Concatena seleziona fino a prima cella vuota

Postdi Omocaig » 01/12/17 00:12

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.
Xp + Office 2003 Ita
Omocaig
Utente Junior
 
Post: 80
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: Macro Concatena seleziona fino a prima cella vuota

Postdi wallace&gromit » 01/12/17 08:54

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)
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1756
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "Macro Concatena seleziona fino a prima cella vuota":


Chi c’è in linea

Visitano il forum: mirmidone21 e 19 ospiti