Using One sheet as a fill in table to populate data in Sheet 2 using A1 as Reference

Goeie naand SteynfaardtD,

I may have an easier solution for you, if you don't mind employing a third hidden Sheet, if that is o.k. with you?

Regards.

Slaap jy al, SteynfaardtD?,

Since your Data Headers are the same for the two sheets, and Columns B and C are Hidden, We can do it quick with the Code below.

Option Explicit
Sub Submit()

 Application.ScreenUpdating = False
 
 'You may want to change the Range to suit
    Sheet2.Range("A2:V101").Formula = "=IF(Sheet1!A6<>"""",Sheet1!A6,"""")"
    Sheet2.Range("A2:V101").Value = Sheet2.Range("A2:V101").Value
    
  Application.ScreenUpdating = True
     
End Sub

Check out the attached sample Workbook.

Lekker slaap!

Please also attach your "Maintenance Progress Update" Workbook as well.
Should your Site ID Dropdown not refer to the above Workbook, instead of Sheet 2 of the Template Workbook?
The Retrieve Data Button looks at the "Maintenance Progress Update" Workbook, am I correct?

Lets say my template file is my only file.. I need to get whatever i retrieved and changed on sheet one to be submitted to sheet 2.

The statement above is somewhat contradictory as it will remove all your formulae on Sheet2. Without the other Workbook, I shall unfortunately not be able to further assist you. There is also no indication on Sheet1 of how the Cells are populated.

Edit: I notice that you have code to populate Sheet 1 from values in Sheet 2. Then you want to Populate Sheet 2 with the Values from Sheet 1.

To me, it does not make sense.

My Main goal for this workbook is productive maintenance. So on each site visit the previous detail is important.

I've used

Sheet2.Range("D2").Value = Sheet1.Range("C8").Value to get data from sheet1 to sheet 2

. This works only to specified cells,

All i need is a formula to first look for the site ID in sheet 2 before submitting the data.

I have a master list of 11300 site and that is why I need to get a way to have a single input page that will populate my full list on daily basis.
The reason for retrieving data before submit is to keep previous data and just add on to it like +1 or change values ext

Please Use attached file for sample. there will be no Formulas on sheet 2 or one. I have a different macro that pulls data from other workbooks if index in not met.

All i Need is a formula to take my Site ID in sheet1 as reference for vlookup to sheet to, Basically reverse the normal Vlookup Formula

Originally Posted by SteynfaardtD

My Main goal for this workbook is productive maintenance. So on each site visit the previous detail is important.

I've used

Sheet2.Range("D2").Value = Sheet1.Range("C8").Value to get data from sheet1 to sheet 2. This works only to specified cells,

All i need is a formula to first look for the site ID in sheet 2 before submitting the data.

I have a master list of 11300 site and that is why I need to get a way to have a single input page that will populate my full list on daily basis.
The reason for retrieving data before submit is to keep previous data and just add on to it like +1 or change values ext

Please Use attached file for sample. there will be no Formulas on sheet 2 or one. I have a different macro that pulls data from other workbooks if index in not met.

All i Need is a formula to take my Site ID in sheet1 as reference for vlookup to sheet to, Basically reverse the normal Vlookup Formula

I Use this to get my data from Sheet 2

Sub Retrieve_Data()

Application.ScreenUpdating = False
 
    Worksheets("Sheet1").Cells(6, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 2, 0)
    
    Worksheets("Sheet1").Cells(7, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 3, 0)
    
    Worksheets("Sheet1").Cells(8, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 4, 0)
    
    Worksheets("Sheet1").Cells(9, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 11, 0)
    
    Worksheets("Sheet1").Cells(10, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 9, 0)
    
    Worksheets("Sheet1").Cells(14, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 16, 0)
    
    Worksheets("Sheet1").Cells(15, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 17, 0)
    
    Worksheets("Sheet1").Cells(16, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 18, 0)
    
    Worksheets("Sheet1").Cells(17, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 19, 0)
    
    Worksheets("Sheet1").Cells(18, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 20, 0)
    
    Worksheets("Sheet1").Cells(19, 3).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 21, 0)
    
    Worksheets("Sheet1").Cells(8, 5).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 5, 0)
    
    Worksheets("Sheet1").Cells(9, 5).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 7, 0)
    
    Worksheets("Sheet1").Cells(10, 5).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 8, 0)
    
    Worksheets("Sheet1").Cells(14, 5).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 14, 0)
    
    Worksheets("Sheet1").Cells(15, 5).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 15, 0)
    
    Worksheets("Sheet1").Cells(22, 2).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 22, 0)
    
    Worksheets("Sheet1").Cells(8, 7).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 6, 0)
    
    Worksheets("Sheet1").Cells(9, 7).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 12, 0)
    
    Worksheets("Sheet1").Cells(10, 7).Value = Application.WorksheetFunction.VLookup( _
    Worksheets("Sheet1").Cells(5, 3).Value, Worksheets("Sheet2").Range("Sheet2!A:V"), 13, 0)
    
 Application.ScreenUpdating = True

End Sub

Unfortunately i can not share that file, All I need is the formulas to submit one cell to another.

Without that file, I am afraid nobody would be able to assist. Create a Backup File of that Workbook, and replace all confidential info with any Bla-Bla, and attached it here. Once we have resolved your issue, you can replace the Bla-Bla from your Backup File.

Attach a sample workbook (not a picture or pasted copy).
Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Guys I have managed to fiqure out how to do what I wanted to do..... I am soooooo Super hyped about it..

I used the following to determine where to place data

Sub Submit_data()

 Application.ScreenUpdating = False

    Dim i As Integer
    
    i = WorksheetFunction.Match(Worksheets("Sheet1").Cells(5, 3), Worksheets("Sheet2").Range("A:A"), 0)
    
    Sheet2.Cells(i, 4).Value = Sheet1.Cells(8, 3).Value
 
 Application.ScreenUpdating = True
 
End Sub