VBA Creating an report on another tab

[steelguy]

Hi,
i ve got summary in the first image and want to transfer it as Value to another tab to keep records on.
1.First thing i dont know how to transfer values instead of copy cells.
2. Don`t know how to put "current date and time". Date and time should reflect time once button were pressed.
3. As well need to fill which user saved that report.

So at the end i should be like pressing button and saving as values all data on diff tab with keeping all previous savings.

i hope i could explain well.

 

[Fluff]

Hi & welcome to MrExcel.
Can you please post your code rather than an image. How to Post Your VBA Code

 

[steelguy]

Sub TransferData()

Dim iLastRow As Long

  With Sheets("2 History")
  
    iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    
     'User
     
   Range("C1").Copy .Cells(iLastRow, 2)    'Date
   
     'time
     
     Range("C2").Copy .Cells(iLastRow, 4)    'Job Ref
     Range("C3").Copy .Cells(iLastRow, 5)    'Adress
     Range("G2").Copy .Cells(iLastRow, 6)    'Total Weight
     Range("H2").Copy .Cells(iLastRow, 7)    'Steel Cost
     Range("I2").Copy .Cells(iLastRow, 8)    'Galvanise
     Range("K2").Copy .Cells(iLastRow, 9)    'Fabrication
     Range("J2").Copy .Cells(iLastRow, 10)    'Delivery
     Range("L2").Copy .Cells(iLastRow, 11)   'Summary
     
    MsgBox ("Order saved in History tab")
    
  End With
End Sub

 

[Fluff]

Thanks for that, how about

Sub TransferData()

Dim iLastRow As Long

  With Sheets("2 History")
  
    iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    
     
     .Cells(iLastRow, 1).Value = Environ("Username")       'User
     .Cells(iLastRow, 2).Value = Range("C1").Value    'Date
     .Cells(iLastRow, 3).Value = Time       'time
     
     
     .Cells(iLastRow, 4).Value = Range("C2").Value   'Job Ref
     .Cells(iLastRow, 5).Value Range("C3").Value     'Adress
     .Cells(iLastRow, 6).Value = Range("G2").Value   'Total Weight
     .Cells(iLastRow, 7).Value = Range("H2").Value    'Steel Cost
     Range("I2").Copy .Cells(iLastRow, 8)    'Galvanise
     Range("K2").Copy .Cells(iLastRow, 9)    'Fabrication
     Range("J2").Copy .Cells(iLastRow, 10)    'Delivery
     Range("L2").Copy .Cells(iLastRow, 11)   'Summary
     
    MsgBox ("Order saved in History tab")
    
  End With
End Sub

You just need to change the last 4 rows as shown above.

 

[steelguy]

Thanks for that, how about

Sub TransferData()

Dim iLastRow As Long

  With Sheets("2 History")
 
    iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
   
    
     .Cells(iLastRow, 1).Value = Environ("Username")       'User
     .Cells(iLastRow, 2).Value = Range("C1").Value    'Date
     .Cells(iLastRow, 3).Value = Time       'time
    
    
     .Cells(iLastRow, 4).Value = Range("C2").Value   'Job Ref
     .Cells(iLastRow, 5).Value Range("C3").Value     'Adress
     .Cells(iLastRow, 6).Value = Range("G2").Value   'Total Weight
     .Cells(iLastRow, 7).Value = Range("H2").Value    'Steel Cost
     Range("I2").Copy .Cells(iLastRow, 8)    'Galvanise
     Range("K2").Copy .Cells(iLastRow, 9)    'Fabrication
     Range("J2").Copy .Cells(iLastRow, 10)    'Delivery
     Range("L2").Copy .Cells(iLastRow, 11)   'Summary
    
    MsgBox ("Order saved in History tab")
   
  End With
End Sub

You just need to change the last 4 rows as shown above.

Perfect, Thank you vm!

 

[Fluff]

You're welcome & thanks for the feedback.