Macro Riduzione prezzo in modo massivo

[Antonio Antonio]

Salve,

avrei un piccolo problema, nella colonna G ho una serie di prezzi e vorrei con una macro ridurli del 5 % in modo massivo. purtroppo non sono pratico in merito.

Vi ringrazio in anticipo per l'aiuto.

[albatros54Moderatore albatros54 Karma: 89 pts]

Ho simulato uno scenario, dove nella colonna A abbiamo i prezzi da ridurre del 5%, inserisci il codice postato nel modulo del foglio1(nel mio caso) è lo esegui, nella colonna B ti troverai il prezzo con lo sconto del 5%.

 

 

 

 

`Option Explicit

Sub sconto()
    Dim lastrow As Long, scto As Currency
    Dim rng As Range
    Dim cl As Range
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("a1:a" & lastrow)
    For Each cl In rng
        scto = cl - (cl * 0.05)
        cl.Offset(0, 1) = scto
    Next
End Sub`

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai! ( Charles Baudelaire )

[Antonio Antonio]

Grazie per la risposta, ma purtroppo credo che ci sia un errore nella trascrizione della macro.

 

Potresti controllare.

 

Grazie

[albatros54Moderatore albatros54 Karma: 89 pts]

Ho riscritto la macro nel post precedente,provala

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai! ( Charles Baudelaire )

[Autore]

Articoli