Leonardo Rojas Rapso

Sub Actualiza1() Dim Fila As Byte, Col As Byte, Dato With Spreadsheet2 For Col = 3 To 5 For Fila = 1 To 13 Dato = Worksheets("Hoja1").Cells(Fila, Col) .Cells(Fila, Col) = Dato Next Next End With With ChartSpace2: .Clear Set Cc = .Constants Set...