Copying from worksheet to worksheet

millenniumbuddy · August 23rd, 2010, 01:23 AM

Hello everyone. Im very new into this excel vba programming. I have two sheets namely sheet1 and sheet2 which contains details of items. Sheet 1 contains old data and Sheet2 contains updated data. All items are given a unique itemcode. I would like to copy the updated data of each and every item from sheet2 to sheet1. For example

Sheet1 -
Itemcode Name Status
item0001 Adapter Working
item0002 Monitor Working
item0003 Adapter Repair
item0004 Adapter Working
item0005 Adapter Working

Sheet2 -
Itemcode Name Status
item0001 Adapter Working
item0002 Monitor Repair
item0003 Adapter Scrap

I want to update the status of Items(around 3000 items) in sheet1. I want excel to search for itemcodes in sheet1 that is in sheet2 and update their status. Urgent Please help. This is for my project purpose. Thankyou All.

Shasur · August 23rd, 2010, 03:08 AM

Hi

Here is a hint:

Code:

Sub Find_Replace_Example()
Dim oCell As Range
Dim oColBMatch As Range
 
For Each oCell In Worksheets(1).Range("A1:A3000")
    
    sText = oCell.Value
    
    If Len(sText) <> 0 Then
    
    
    Set oColBMatch = Worksheets(2).Range("A:A").Find(What:=sText, Lookat:=xlWhole)
    If Not oColBMatch Is Nothing Then
        oCell.Offset(0, 2).Value = Worksheets(2).Cells(oColBMatch.Row, 3).Value
    End If
Next oCell
End Sub

Cheers
Shasur

millenniumbuddy · August 23rd, 2010, 07:13 AM

Thanks a lot Shasur for supporting me. I still have an issue with that code. I dont get any errors but sheet1 still isnt updated the data(status) is as it is.

Sub FindReplace1()
Dim oCell As Range
Dim oColBMatch As Range

For Each oCell In Worksheets(1).Range("A2:A3000")

sText = oCell.Value

If Len(sText) <> 0 Then

Set oColBMatch = Worksheets(2).Range("A2:A3000").Find(What:=sText, Lookat:=xlWhole)
If Not oColBMatch Is Nothing Then
oCell.Offset(0, 2).Value = Worksheets(2).Cells(oColBMatch.Row, 3).Value
End If
End If
Next oCell

End Sub

Sheet1
Itemcode Name Status
item0001 Adapter Working
item0002 Monitor Working
item0003 Adapter Repair
item0004 Adapter Working
item0005 Adapter Working

Sheet2
Itemcode Name Status
item0001 Adapter Working
item0002 Monitor Repair
item0003 Adapter Scrap

Shasur · August 23rd, 2010, 08:05 AM

Hi

The code takes value from Sheet 1 and searches in Sheet 2. If you find something in Sheet 2 it copies it

If you have different order you can try the following

Sub FindReplace1()
Dim oCell As Range
Dim oColBMatch As Range

For Each oCell In Worksheets("Sheet1").Range("A2:A3000")

sText = oCell.Value

If Len(sText) <> 0 Then

Set oColBMatch = Worksheets("Sheet2").Range("A2:A3000").Find(What:= sText, Lookat:=xlPart)
If Not oColBMatch Is Nothing Then
oCell.Offset(0, 2).Value = Worksheets(2).Cells(oColBMatch.Row, 3).Value
End If
End If
Next oCell

End Sub

Cheers
Shasur

millenniumbuddy · August 23rd, 2010, 10:01 AM

Great! Now that worked. Thanks a lot

Shasur · August 24th, 2010, 01:38 AM

Glad to hear that.

Happy coding :)

Cheers
Shasur