Condividi:        

Ciclo for each con range variabile

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

Ciclo for each con range variabile

Postdi Lyke73 » 20/11/14 19:48

Ciao a tutti, non riesco ad adattare questa macro che ho trovato in rete
Codice: Seleziona tutto
Sub consolida_valori()
Dim cell As Range
    For Each cell In [g2:g50]
    If cell.Value <> "X" Then
        cell = cell.Value2
    End If
    Next
End Sub

Vorrei che, come da titolo, la macro agisse su un range variabile della colonna G e non su un range fisso.
Grazie per l'aiuto.
excel 2007
Lyke73
Utente Junior
 
Post: 21
Iscritto il: 27/10/14 11:07

Sponsor
 

Re: Ciclo for each con range variabile

Postdi Zer0Kelvin » 20/11/14 20:17

Ciao.
Avresti dovuto specificare il criterio secondo cui deve variare il range.
Supponendo (!) che tu voglia comprendere le celle da G2 fino all'ultima cella che contiene valori in colonna G
Codice: Seleziona tutto
Sub consolida_valori()
Dim cell As Range
    For Each cell In Range("G2", Range("G" & Rows.Count).End(xlUp))
    If cell.Value <> "X" Then
        cell = cell.Value2
    End If
    Next
End Sub
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Ciclo for each con range variabile

Postdi Lyke73 » 20/11/14 23:12

Essendoci nella formula [g2:g50] ho dato per scontato che tutti sapessero come me che la colonna in questione è la G...abbi pazienza...
Provata e funzionante, grazie e buonanotte.
excel 2007
Lyke73
Utente Junior
 
Post: 21
Iscritto il: 27/10/14 11:07

Re: Ciclo for each con range variabile

Postdi Zer0Kelvin » 21/11/14 01:32

Che si trattasse della colonna G era chiaro, ma non è affatto scontato che tu volessi arrivare fino all' fino all'ultima cella che contiene valori.
Dopotutto, io non so quello che devi fare sul tuo foglio. ;)
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23


Torna a Applicazioni Office Windows


Topic correlati a "Ciclo for each con range variabile":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti