سوال خیلی مهم

**M_ExceL** · 2020/09/11, 01:45

با سلام،
از کد ذیل استفاده کنید :

کد:

Sub M_ExceL()
Dim b_value As Range
alfa_value = Sheets(1).Cells(2, 3).Value
For Sheet_B = 2 To Worksheets.Count
    Set b_value = Sheets(Sheet_B).Range("b2")
    betta_value = Sheets(Sheet_B).Cells(5, 4).Value
    If alfa_value = b_value.Value Then
        Sheets(1).Cells(4, 3).Value = betta_value
        b_value.Interior.ColorIndex = 3
        MsgBox "sheet name : " + Sheets(Sheet_B).Name + vbNewLine + _
        "betta value : " + Str(b_value.Value)
        Exit For
    End If
Next
End Sub