如何使用 vba 根据 Excel 中另一张纸上的列表更改单元格的值？

Question

Please bear with me. I want to write an if Statement in VBA that looks at a list of values on one sheet and if those values are on the second sheet, then change the cell's value on the second sheet using VBA and formula.

I'll try to show a sample of what I have.

Sheet1 Table:

Part # | Supplier

Y67 | SupplierY

X23 | SupplierX

Z11 | SupplierZ

Sheet2 Table:

Part # | Supplier | Quantity 1 | Quantity 2

Y799 | SupplierY | 644541 | 332154

X23 | SupplierX | 97845 | 399987

Z555 | SupplierZ | 4454512 | 2237419

Using these two table examples, I would like to know what VBA code I could write to be able to look at Sheet1 Table and see if any of those Part Numbers are found in Sheet2 Table. If they are found, then I would need the quantities changed using the formula =(Cell Value/ 1000 / 500) . In this example X23 part number is found in Sheet2 so the new quantities should be 0.196 and 0.800 .

I hope this is explained well enough. Thanks in advance!

Answer 1

sRow1 = 1  'Starting row of data on sheet 1
iRow1 = 0
sCol1 = 1  'The column your part numbers are in on sheet 1
sht1 = "Sheet1"  'Whatever the sheet name is

sRow2 = 1  'Starting row of data on sheet 2
sCol2 = 1  'The column your part numbers are in on sheet 2
sht2 = "Sheet2"  'Again, whatever the sheet name is

Do Until IsEmpty(Sheets(sht1).cells(sRow1+iRow1), sCol1))
    'Loop through all parts on first sheet

    iRow2 = 0
    Do Until IsEmpty(sheets(sht2).cells(sRow2+iRow2, sCol2)) 
        if sheets(sht2).cells(sRow2+iRow2, sCol2) = Sheets(sht1).cells(sRow1+iRow1, sCol1) and _ 
        sheets(sht2).cells(sRow2+iRow2, sCol2+1) = Sheets(sht1).cells(sRow1+iRow1, sCol1+1) then
           'We have a matching part number & supplier

            partQty1 = sheets(sht2).cells(sRow2+iRow2, sCol2+2)
            partQty2 = sheets(sht2).cells(sRow2+iRow2, sCol2+3)

            Sheets(sht1).cells(sRow1+iRow1, sCol1+2) = partQty1/1000/500
            Sheets(sht1).cells(sRow1+iRow1, sCol1+3) = partQty2/1000/500
            exit do  'Exits the do loop in second sheet
        end if
        iRow2 = iRow2 + 1
    Loop
    iRow1 = iRow1 + 1
Loop