VBA Help - Copy data from One Sheet to Another as a Loop - Excel 2016

[Johnny Thunder]

Hello,


I am working on a project that will be looking at a datasource and trying to match up Model ID's onto another sheet in the same workbook and then copying over the Model Name if it finds the value. If not, it will look to the lastrow of the 2nd sheet and add the New Model ID and Model name.


Report Attributes:
Sheets("DataSource") - Table with Lookup values
Sheets("Manual Adjustment") - Sheet to search and add Model Name too if ID is matched


On Datasource sheet, the Id's start on "A11:A90" with some blanks in between - Will need to be dynamic enough to reset the last row of data
On Datasource sheet, the Model Names are in column "E11:E90"


On the Manual Adjustments sheet, the Model ID's to match to are on Column "A5:A400" - Will need to be dynamic enough to always search for the new lastrow if ID's are added
On the Manual Adjustments sheet, the Model Names that will be inserted by the code will need to be added to the Row of the matched ID and Column H.


Please let me know if the above is clear. Any help is appreciated.

 

[cerfani]

what part is giving you issue? have you started writing something?

 

[Johnny Thunder]

@cerfani

This is all I got

Option Explicit
Sub Move_Data()


Dim cell     As Range, Results As Range
Dim ws1     As Worksheet, ws2 As Worksheet


Set ws2 = Sheets("Datasource") 'DataSource
Set ws1 = Sheets("Manual Adjustment") 'Sheet to insert new values if found


LastRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row
Set Results = ws2.Range("A11:A" & LastRow & "")


For Each cell In Results


'Enter code to do the search and if the value is found enter the Model Name in Column H on ws1
'If Model ID is not found, then go to lastrow on sheet ws1 and add ID to column A and Model Name to Column H


'Loop


End Sub

 

[cerfani]

ok but your explanation is a little tough to follow...

You say you have 80 unique models with ID and name on a data sheet.

You also have a list of 396 model IDs that you want to retrieve the name for. If you do not find the ID in the list of 80 then you want to add the model ID to the list of 80 and to add the name.

Seems like you will have tons of duplicates and for IDs with no match on the data, how will you add it to the data list since you dont know the name? I have a feeling you meant something else but not sure.

 

[Johnny Thunder]

@cerfani .... Nothing to add?

ok but your explanation is a little tough to follow...

You say you have 80 unique models with ID and name on a data sheet.

You also have a list of 396 model IDs that you want to retrieve the name for. If you do not find the ID in the list of 80 then you want to add the model ID to the list of 80 and to add the name.

Seems like you will have tons of duplicates and for IDs with no match on the data, how will you add it to the data list since you dont know the name? I have a feeling you meant something else but not sure.

 

[cerfani]

did u even read my post? oh well, good luck