Ciao a tutti,
Ho creato col registratore una macro per archiviare i dati presenti nell’intervallo A8:E8 nelle righe sottostanti, ma non conoscendo il VBA non sono capace di modificarla in modo che faccia questa operazione:
Avrei bisogno che la cella C8 funzioni da “campo obbligatorio”, nel senso che qualora non contenesse valori, la macro non deve trascrivere nessun dato dell’intervallo A8:E8 (Questo controllo sulla cella C8 mi serve in quanto da essa dipende il corretto funzionamento di alcune formule).
Grazie in anticipo
Rows("11:11").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A8:E8").Select
Selection.Copy
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("12:12").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A11:E11").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("B8:E8").Select
Selection.ClearContents
Range("B8").Select
End Sub