Attribute VB_Name = "Modulo1"


Sub Import_run1()
' Import_run1 Macro
Application.ScreenUpdating = False
 ActiveSheet.Unprotect
    
 Range( _
        "DX6:DY7,DZ6:EA7,EB6:EC7,ED6:EE7,EF6:EG7,EH6:EI7,EJ6:EK7,EL6:EM7,EN6:EO7,EP6:EQ7,ER6:ES7,ET6:EU7" _
        ).Select
    Range("ET6").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.UnMerge
    
     '   Call InitWorkbook.InitWorkbook
    
    'On Error Resume Next
    'Sheets(ImportPage).Cells(RowStartImport - 2, ColumnStartImport).PasteSpecial

    'If Err Then
      '  MsgBox "Nothing to paste!"
      '  Err.Clear
    ' End If

   
  Dim BaseSheet As String
  BaseSheet = "BaseSheet"

 Dim origine As Worksheet
 Set origine = ActiveSheet
 
  'Sheets("Setup1").Select
    Sheets(BaseSheet).Visible = True
   



Sheets(BaseSheet).Range("G:H").ClearContents
'Columns("G:H").Select
    'Selection.Delete Shift:=xlToLeft
    On Error Resume Next
    Sheets(BaseSheet).Range("G1").PasteSpecial
    ' ActiveSheet.Paste
    
    'ActiveSheet.PasteSpecial Format:="Text Unicode", Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=True
        
      If Err Then
        MsgBox "Nothing to paste!"
        Err.Clear
     End If
    
    


Sheets(BaseSheet).Range("H4").Formula = "=(G4-1)*2"
Sheets(BaseSheet).Range("H4").Select


Dim run As Integer
Dim runimp As Integer
run = ActiveCell.Value
runimp = ActiveCell.Value
runimp = Worksheets(BaseSheet).Range("G4")

origine.Activate

 ActiveSheet.Range("dr8") = runimp
 
 
run = ActiveSheet.Range("dq8")


Sheets(BaseSheet).Select


'NAMING
       origine.Range("DX6").Offset(0, run).Value = (Sheets(BaseSheet).Range("G1").Value) & "_" & (Sheets(BaseSheet).Range("G2").Value) & "_" & (Sheets(BaseSheet).Range("G3").Value) & "_" & (Sheets(BaseSheet).Range("E4").Value) & "_" & (Sheets(BaseSheet).Range("G4").Value) & "_" & (Sheets(BaseSheet).Range("G5").Value)

' FZ, Aerobal, MB

 origine.Range("DX27:DY31").Offset(0, run).Value = (Sheets(BaseSheet).Range("B22:C26").Value)
 
' Set-up copy

origine.Range("DX37:DY66").Offset(0, run).Value = (Sheets(BaseSheet).Range("B32:C60").Value)
 
 
 'RHF
 
' origine.Range("DX43").Offset(0, run).Value = (Sheets(BaseSheet).Range("c20").Value)
 
'RHR
   'origine.Range("Dy43").Offset(0, run).Value = (Sheets(BaseSheet).Range("c35").Value)
      
 
'AERO TYPE F

    'origine.Range("DX39").Offset(0, run).Value = (Sheets(BaseSheet).Range("c36").Value) & " / " & (Sheets(BaseSheet).Range("c40").Value)
    
'AERO TYPE R
   ' origine.Range("Dy39").Offset(0, run).Value = (Sheets(BaseSheet).Range("c38").Value)
'AERO SETTING F
  '    origine.Range("Dx40").Offset(0, run).Value = (Sheets(BaseSheet).Range("c37").Value)
'AERO SETTING R
 'origine.Range("Dy40").Offset(0, run).Value = (Sheets(BaseSheet).Range("c39").Value)
'ARB TYPE F
 'origine.Range("Dx41").Offset(0, run).Value = (Sheets(BaseSheet).Range("c14").Value)
'ARB TYPE R
 'origine.Range("Dy41").Offset(0, run).Value = (Sheets(BaseSheet).Range("c28").Value)
 
'ARB GEO R
 'origine.Range("Dy48").Offset(0, run).Value = (Sheets(BaseSheet).Range("c29").Value)
'ARB SETTING F
     'origine.Range("Dx42").Offset(0, run).Value = (Sheets(BaseSheet).Range("c15").Value)
'ARB SETTING R
    '  origine.Range("Dy42").Offset(0, run).Value = (Sheets(BaseSheet).Range("c30").Value) & "/" & (Sheets(BaseSheet).Range("c29").Value)
'BUMP RUB TYPE F
   ' origine.Range("Dx46").Offset(0, run).Value = (Sheets(BaseSheet).Range("c9").Value)
'BUMP RUB TYPE R
  'origine.Range("Dy46").Offset(0, run).Value = (Sheets(BaseSheet).Range("c22").Value)
'BUMP RUB GAP F
     'origine.Range("Dx47").Offset(0, run).Value = (Sheets(BaseSheet).Range("c10").Value)
'BUMP RUB GAP R
     'origine.Range("Dy47").Offset(0, run).Value = (Sheets(BaseSheet).Range("c23").Value)
'SPRING F
     'origine.Range("Dx44").Offset(0, run).Value = (Sheets(BaseSheet).Range("c11").Value)
'SPRING R
     'origine.Range("Dy44").Offset(0, run).Value = (Sheets(BaseSheet).Range("c24").Value)
'SPRING PRELOAD F
     'origine.Range("Dx45").Offset(0, run).Value = (Sheets(BaseSheet).Range("c12").Value)
'SPRING PRELOAD R
    'origine.Range("Dy45").Offset(0, run).Value = (Sheets(BaseSheet).Range("c25").Value)
'DAMPER TYPE F
      
'DAMPER TYPE R
       
'DAMPER SETTING F
    ' origine.Range("Dx49").Offset(0, run).Value = (Sheets(BaseSheet).Range("c13").Value)
'DAMP SETTING LS R
    ' origine.Range("Dy49").Offset(0, run).Value = (Sheets(BaseSheet).Range("c26").Value) & " / " & (Sheets(BaseSheet).Range("c27").Value)
'DAMP SETTING HS R
    'origine.Range("Dy56").Offset(0, run).Value = (Sheets(BaseSheet).Range("c27").Value)
'CAMBER FL
     ' origine.Range("Dx53").Offset(0, run).Value = (Sheets(BaseSheet).Range("c16").Value)
'CAMBER FR
    ' origine.Range("Dy53").Offset(0, run).Value = (Sheets(BaseSheet).Range("c17").Value)
'CAMBER RL
   ' origine.Range("Dx54").Offset(0, run).Value = (Sheets(BaseSheet).Range("c31").Value)
'CAMBER RR
   '  origine.Range("Dy54").Offset(0, run).Value = (Sheets(BaseSheet).Range("c32").Value)
'TOE FL
     '   origine.Range("Dx55").Offset(0, run).Value = (Sheets(BaseSheet).Range("c18").Value)
'TOE FR
     '  origine.Range("Dy55").Offset(0, run).Value = (Sheets(BaseSheet).Range("c19").Value)
'TOE RL
    '       origine.Range("Dx56").Offset(0, run).Value = (Sheets(BaseSheet).Range("c33").Value)
'TOE RR
    '     origine.Range("Dy56").Offset(0, run).Value = (Sheets(BaseSheet).Range("c34").Value)
'BALLAST F
   '  origine.Range("DX58").Offset(0, run).Value = (Sheets(BaseSheet).Range("c44").Value) & "/" & (Sheets(BaseSheet).Range("c46").Value) & "/" & (Sheets(BaseSheet).Range("c48").Value) & "/" & (Sheets(BaseSheet).Range("c50").Value)
'BALLAST R
  '    'origine.Range("Dy61").Offset(0, run).Value = (Sheets(BaseSheet).Range("c46").Value)
'TOTAL WEIGHT
   '    origine.Range("DX59").Offset(0, run).Value = (Sheets(BaseSheet).Range("c41").Value)
'WEIGHT DIST
  '      origine.Range("Dy59").Offset(0, run).Value = (Sheets(BaseSheet).Range("c42").Value)
'DRIVER WEIGHT
  '      origine.Range("DX57").Offset(0, run).Value = (Sheets(BaseSheet).Range("c51").Value)
'CASTER F
  '      origine.Range("DX52").Offset(0, run).Value = (Sheets(BaseSheet).Range("c6").Value)
'CASTER R
   '     origine.Range("DY52").Offset(0, run).Value = (Sheets(BaseSheet).Range("C99").Value)
'ACKERMAN / STEER OPT
  '      origine.Range("DX50").Offset(0, run).Value = (Sheets(BaseSheet).Range("c7").Value) & " / " & (Sheets(BaseSheet).Range("c8").Value)
'REAR GEO
  '       origine.Range("Dy50").Offset(0, run).Value = (Sheets(BaseSheet).Range("c21").Value)
'DIFF RAMP
  '      origine.Range("DX60").Offset(0, run).Value = (Sheets(BaseSheet).Range("c58").Value)
'DIFF FACES
  '       origine.Range("DX61").Offset(0, run).Value = (Sheets(BaseSheet).Range("c59").Value)
'DIFF PRELOAD
  '      origine.Range("Dy61").Offset(0, run).Value = (Sheets(BaseSheet).Range("c60").Value)
'GEARS
  '       origine.Range("Dx62:dy67").Offset(0, run).Value = (Sheets(BaseSheet).Range("c52:c57").Value)
'SCZ TOT
  '      origine.Range("Dx27").Offset(0, run).Value = (Sheets(BaseSheet).Range("c67").Value)
'AB 120
  '      origine.Range("Dx28").Offset(0, run).Value = (Sheets(BaseSheet).Range("c62").Value)
'AB 180
  '      origine.Range("Dx29").Offset(0, run).Value = (Sheets(BaseSheet).Range("c66").Value)
'MB 120
  '      origine.Range("Dx30").Offset(0, run).Value = (Sheets(BaseSheet).Range("c61").Value)
'MB 180
  '      origine.Range("Dx31").Offset(0, run).Value = (Sheets(BaseSheet).Range("c65").Value)
'USOS 120
 '       origine.Range("Dx32").Offset(0, run).Value = (Sheets(BaseSheet).Range("c64").Value)
'USOS 180
 '       origine.Range("Dx33").Offset(0, run).Value = (Sheets(BaseSheet).Range("c68").Value)
'NAMING
'       origine.Range("DX6").Offset(0, run).Value = (Sheets(BaseSheet).Range("C1").Value) & "_" & (Sheets(BaseSheet).Range("C2").Value) & "_" & (Sheets(BaseSheet).Range("C3").Value) & "_" & (Sheets(BaseSheet).Range("A4").Value) & "_" & (Sheets(BaseSheet).Range("C4").Value) & "_" & (Sheets(BaseSheet).Range("C5").Value)


 Sheets(BaseSheet).Select
    ActiveWindow.SelectedSheets.Visible = False

origine.Activate
 
 Range( _
        "DX6:DY7,DZ6:EA7,EB6:EC7,ED6:EE7,EF6:EG7,EH6:EI7,EJ6:EK7,EL6:EM7,EN6:EO7,EP6:EQ7,ER6:ES7,ET6:EU7" _
        ).Select
    Range("ET6").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub