پرسش عدم تغییر محتوی

[RezaKasra]

با سلام
سوالم رو اینطور شرح میدم.
فرض کنین یه شیت داریم. حاوی مبالغ حقوق 12 ماه سال. توی شیت قراره مالیات حقوق هر ماه حساب بشه. با این شرایط که از طریق combobox ماه انتخاب بشه و تو لیست محاسبه مالیات، توی ستون مبلغ حقوق (مثلاً فروردین) اگر ماه فروردین انتخاب شد حقوق مربوط به ماه فروردین توی سلول جایگزین بشه و اگر ماه تغییر کرد عدد درون سلول تغییر پیدا نکنه. مثلاً اگر در لیست حقوق، حقوق فروردین 1500 ریال هست و ما تو لیست مالیات ماه فروردین رو انتخاب کردیم عدد 1500 توی لیست و بخش فروردین توی سلول مربوط جایگزین بشه. حالا اگر ماه رو تغییر دادیم اما اون مبلغ 1500 حقوق فروردین تغییر نکنه و ثابت بمونه. برای ماه های بعدی هم همینطور. البته بدون اینکه پیغام خطایی رو نشون بده.
ممنون میشم کسی راهنمایی کنه.

[M_ExceL]

سلام،

Private Sub ComboBox1_Change()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = [b2:b13]
Set rng2 = [i1:t1]

For Each cel In rng1
    If cel = Me.ComboBox1.Value Then
        For Each cel2 In rng2.Cells
            If cel = cel2 Then
                cel2.Offset(2, 0).Value = cel.Offset(0, 1).Value
                Exit For
            End If
        Next
        Exit For
    End If
Next
End Sub