Avrei bisogno di inserire come primo comando della mia macro una funzione che,
nel caso in cui in range A2 di Foglio21 è presente il numero 1 esegua la macro riportata sotto,
se c’è un numero diverso da 1 deve andare a foglio 14 senza eseguire la macro.
- Codice: Seleziona tutto
Application.ScreenUpdating = False
Sheets("Foglio21").Select
ActiveSheet.Unprotect
Range("Tabella1[[Colore]:[Prezzo]]").Select
Selection.Copy
Sheets("Foglio14").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:C2").Select
Sheets("Foglio21").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Foglio14").Select
Application.ScreenUpdating = True
End Sub
Grazie e di nuovo Buon Anno a tutti