Condividi:        

Excel un aiuto per macro

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 un aiuto per macro

Postdi Francesco53 » 02/04/14 21:06

Un saluto a tutto il Forum, non riesco a realizzare quanto vi espongo,
inserirò due semplici immagini esplicative di quanto cerco di realizzare,
questo è il primo caso:
Immagine
questo è il secondo caso:
Immagine
e questa è la macro che ho realizzato:
Codice: Seleziona tutto
Sub Progress()
For M = 2 To Range("C" & Rows.Count).End(xlUp).Row
         conta = conta + 1
         mese1 = Month(Cells(M, 3).Value)
         mese2 = Month(Cells(M + 1, 3).Value)
            If mese1 = mese2 Then Cells(M, 2) = conta
           
            If mese1 <> mese2 Then
                Cells(M, 2) = "U.G.M."
                conta = 0
            End If
Next M
End Sub

La macro dovrebbe scrivermi la progressione sino alla ultima del mese, nel qual caso dovrà scrivere"U.G.M."
mentre negli altri casi dovrebbe proseguire con il naturale incremento.
Spero sia tutto chiaro, ringrazio chi mi può modificare o fare la macro in modo corretto.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Excel un aiuto per macro

Postdi Anthony47 » 02/04/14 23:55

Basterebbe modificare il calcolo di mese2 (come nel codice seguente), ma e' meglio se modifichi anche la struttura dell' If; cioe':
Codice: Seleziona tutto
Sub Progress()
For M = 2 To Range("C" & Rows.Count).End(xlUp).Row
    conta = conta + 1
    mese1 = Month(Cells(M, 3).Value)
    If Cells(M + 1, 3).Value <> "" Then mese2 = Month(Cells(M + 1, 3).Value)
    If mese1 = mese2 Then
        Cells(M, 2) = conta
    Else
        Cells(M, 2) = "U.G.M."
        conta = 0
    End If
Next M
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel un aiuto per macro

Postdi ricky53 » 03/04/14 00:19

Ciao,
prova con questa macro
Codice: Seleziona tutto
Sub Progress()
    Dim conta As Integer
    Conta = 0
    For M = 2 To Range("C" & Rows.Count).End(xlUp).Row
        conta = conta + 1
        mese1 = Month(Cells(M, 3))
        If Cells(M + 1, 3) <> "" Then
            mese2 = Month(Cells(M + 1, 3))
        End If
        If mese1 = mese2 Then
            Cells(M, 2) = conta
        Else
            Cells(M, 2) = "U.G.M."
            conta = 0
        End If
    Next M
End Sub


E' la tua alla quale ho apportato delle modifiche


'.....................................................................
EDIT:
non ho visto che Anthony aveva già risposto.
SCUSATEMI

Rivedendo il codice ... abbiamo apportato le stesse modifiche ... significa qualcosa?
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 un aiuto per macro

Postdi Francesco53 » 03/04/14 09:14

Buongiorno, ringrazio entrambi per la risposta.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "Excel un aiuto per macro":


Chi c’è in linea

Visitano il forum: Nessuno e 30 ospiti