Buon pomeriggio,
ho un piccolo problemino che probabilmente è già stato affrontato ma non riesco a trovare nulla di simile.
Ho registrato una macro con inserimento automatico di determinate righe, il problema è che non mi inserisce le righe dal punto che determino, ma sembre dalla stessa riga... come posso risolvere la cosa??
Spero di essermi spiegata :(
Sub Macro7()
'
' Macro7 Macro
'
'
Range("A29:S29").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("A30").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("A31").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=6
Range("G28").Select
Selection.AutoFill Destination:=Range("G28:G34"), Type:=xlFillDefault
Range("G28:G34").Select
Range("J28").Select
Selection.AutoFill Destination:=Range("J28:J34"), Type:=xlFillDefault
Range("J28:J34").Select
Range("M28").Select
Selection.AutoFill Destination:=Range("M28:M34"), Type:=xlFillDefault
Range("M28:M34").Select
Range("Q28").Select
Selection.AutoFill Destination:=Range("Q28:Q34"), Type:=xlFillDefault
Range("Q28:Q34").Select
Range("A29:S29,A31:S31,A33:S33").Select
Range("A33").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub