Ciao per farlo hai bisogno di un foglio di appoggio dove scrivere il nome del foglio e la percentuale da applicare, ma al solito non indichi se è una percentale di sconto oppure un incremento prezzo.
comunque ho messo il risultato del calcolo in una nuova colonna poi sta a te decidere se scalarla oppure incrementare, basta aggiungerla o toglierla alla colonna "D"
questa la macro
Sub sconti()
Dim r, c, x, y, d, fg, sh1 As Worksheet
Set sh1 = Worksheets("Sconti")
sh1.Activate
For x = 4 To sh1.Cells(Rows.Count, 1).End(xlUp).Row
fg = sh1.Cells(x, 1)
d = sh1.Cells(x, 2) / 100
With Sheets(fg)
For y = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(y, 6) = .Cells(y, 4) * d
Next y
End With
Next x
End Sub ti allego anche il file, come vedi nel foglio "Sconti" ci sono tutti i clienti se sono di più li aggiungi.
poi di fianco al cliente inserisci lo sconto da effettuare e poi premi "Aggiorna", e ti aggiornerà tutti i clienti
logico che se non inserisci un valore il risultato sarà 0zero, dove inserirai il valore quel cliente sarà calcolato.
ma una cosa importante, tutti i fogli dei clienti devono avere la stessa impostazione, cioè incominciare dalla riga 7 ed i prezzi in colonna "D".
il cliente "Verbania" ho dovuto aggiornarlo, non corrispondevano le righe.
Ciao By Sal (8-D
[Modificato da by sal 03/07/2022 11:40]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui