تطبيق معادلة على جميع الخلايا

[seddiki_adz]

اريد كيفية تطبيق المعادلة على الخلايا 

=SI(RECHERCHEV($K$2;servproftot;12;FAUX); "ق"&RECHERCHEV($K$2;servproftot;12;FAUX);"")

 

[ابو ايسل]

قوم بأزاله علامه $ اللي قبل و بعد حرف K 

[seddiki_adz]

2توزيع.xlsm

[أ / محمد صالح]

إن شاء الله يكون المطلوب

مع ملاحظة تغيير رقم العمود إلى معادلة حتى يتم سحب المعادلة أفقيا ورأسيا

بالتوفيق

جداول المدرسين.xlsm

[seddiki_adz]

شكرا اخي

هل يمكن تغيير كود بدلا من جلب مدرس واحد في القاعة جلب مدرسين

Private Sub cmdgardeetablisse_Click()
cmdgardeetablisse.Enabled = False
Worksheets("gradeeta").Range("c6: al45").ClearContents
'Worksheets("gradeeta").Range("n6: v45").ClearContents
'Worksheets("gradeeta").Range("y6: ag45").ClearContents
'Worksheets("gradeeta").Range("aj6: ar45").ClearContents
Worksheets("gradeeta").Cells(3, 4) = "ÇáÑÌÇÁ ÇáÇäÊÙÇÑ..."
For b = 3 To 38
For a = 4 To 80
For i = 7 To 47

'If b < 10 Then c = b
'If b > 9 And b < 19 Then c = b + 2
'If b > 18 And b < 28 Then c = b + 4
'If b > 27 Then c = b + 6
If Worksheets("list garde").Cells(a, i) = Worksheets("gradeeta").Cells(5, b) Then
     Worksheets("gradeeta").Cells(i - 1, b) = Worksheets("list garde").Cells(a, 2)
End If
Next i
Next a
Next b

Worksheets("gradeeta").Cells(3, 4) = ""
cmdgardeetablisse.Enabled = True
End Sub