Sono giuseppe e come potete immagginare ho un problema
ho creato questa macro
- Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Template").Select
Range("C10:G10").Select
ActiveCell.FormulaR1C1 = "='450110'!R[-8]C[-2]"
Range("C10:G10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("450110").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("A2:A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:I9").Select
With Selection.Font
.Name = "Verdana"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Verdana"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("A2:I9").Select
Selection.Copy
Sheets("Template").Select
Range("B17").Select
Selection.Insert Shift:=xlDown
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("450110").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Template").Select
Range("B17").Select
Application.CutCopyMode = False
Range("B19:J25").Select
Selection.Delete Shift:=xlUp
Range("B17:J18").Select
Selection.ClearContents
End Sub
avrei bisogno del vostro aiuto avrei bisogno che venga ripetuta per tutti i fogli sono circa 80
come posso fare?
grazie mille