Excel宏根据第一张工作表中的特定单元格值在其他工作表中添加单元格值

Question

Click here to see the picture

Hi, I need someone to help me doing this scenario on my Excel 2007 :)

So here is the scenario :

• I input QZ0821 in cell B3 (sheet1)
• I click the CommandButton1 activeX button. (sheet1)

After the commandButton1 is clicked ,

• Add text “ Ok ” automatically to cell C3 right next to the code ( QZ0821 ) on sheet2 that I've input previously on sheet1 as well as if I fill out cell B3 (sheet1) with another code or value.

So whenever I input another code , for example QZ0822 (sheet1), then after I click the button, it will automatically add “Ok” next to cell that contains QZ0822 (sheet2).

Is it possible for me to do that?

Answer 1

Somehting like this?

Sub lookup()
    Dim strSearch As String
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet

    Set wks1 = Sheets("Your Sheet 1") '<--- fill in your sheet name
    Set wks2 = Sheets("Your Sheet 2") '<--- fill in your sheet name

    strSearch = wks1.Range("B3").Value

    With wks2
        .Columns(2).Find(strSearch).Offset(0, 1).Value = "Ok"
    End With
End Sub