Condividi:        

[Excel]Incrementare numeri in un 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

[Excel]Incrementare numeri in un range variabile

Postdi SebNan » 28/11/14 16:22

Ciao a tutti,
ho un file excel con n righe ed n colonne dove nella colonna F ho una serie di numeri (es. 5) ed ho bisogno di aggiungere +1 a tutti i numeri della colonna F(5+1=6), ho provato con il ciclo for next di seguito riportato, ma non voglio impostare non un range predefinito (in questo caso F3:F100) ma il ciclo deve continuare fino a che non trova righe vuote (quindi il range potrebbe essere F3:F10 oppure F3:F1000) come posso fare

Grazie e buona giornata
Codice: Seleziona tutto
'Dim sheet As Worksheet
'Dim source As Range
'Set sheet = ActiveSheet
'Set sorgente = sheet.Range("F3:F100")
'Set destinazione = sheet.Range("G3:G100")

   ' Fai partire la i dalla riga in cui ci sono i valori che vuoi usare
'For I = 3 To sorgente.Rows.Count
'destinazione.Cells(I, 1) = sorgente.Cells(I, 1) + 1
'Next I
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Sponsor
 

Re: [Excel]Incrementare numeri in un range variabile

Postdi ricky53 » 29/11/14 18:40

Ciao,
prova con
Codice: Seleziona tutto
    UR = Range("F" & Rows.Count).End(xlUp).Row
    For I = 3 To UR
         . . .


Il tuo codice non mi torna leggi i valori in "F" e li scrivi in "G".
Inoltre utilizzi in modo improprio gli intervalli "sorgente" e "destinazione"

io avrei scritto il codice in questo modo
Codice: Seleziona tutto
    UR = Range("F" & Rows.Count).End(xlUp).Row
    For I = 3 To UR
        Cells(I, "G") = Cells(I, "F") + 1' <<===== VIENE aggiornata la colonna "G"
    Next I


Rimane sempre da vedere se si deve aggiornare la colonna "G" oppure la colonna "F"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel]Incrementare numeri in un range variabile

Postdi SebNan » 02/12/14 15:41

ok, grazie funziona perfettamente
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Re: [Excel]Incrementare numeri in un range variabile

Postdi ricky53 » 02/12/14 15:53

Ciao,
Bene.
Buon proseguimento e ... alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel]Incrementare numeri in un range variabile

Postdi scossa » 03/12/14 09:01

Io eviterei del tutto il ciclo For....:

Codice: Seleziona tutto
Sub Adda()
  Dim nLR As Long, sAdd As String
 
  nLR = Cells(Rows.Count, "F").End(xlUp).Row
  sAdd = Range("F3:F" & nLR).Address
  Range("G3:G" & nLR).Value = Evaluate(sAdd & "+1")

End Sub
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona


Torna a Applicazioni Office Windows


Topic correlati a "[Excel]Incrementare numeri in un range variabile":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti