طارق مساد

<> ( معناها لا يساوي ) ترجع قيمة true or false

شكرا جزيلا

السيد ياسر المحترم: تحية طيبة وبعد اذا تكرمت كيف يمكنني ان اغير الكلمة REPORT لخلية مرجعية على سبيل المثال d3 في المعادلة ادناه مع الشكر

جزاك الله كل خير

السادة المحترمين: تحية طيبة وبعد: هل من الممكن عمل معادلة sumif حسب اللون مع الشكر.

لقد قمت بحل المشكلة وكانت مشكلة في معادلة do ----- loop وساتعلم منكم كل ما هو جديد ان شاء الله لكن الساعة لم تظهر! مبيعات المحطات 2.rar

احد اليوزر القسطل الباسوورد 862

السادة الكرام يوجد في الملف المرفق ملف يحتوي يوزر فورم للمستخدمين مع رقم سري لا يسمح لي الاكسل بالتعديل عند الدخول الى الصفحات ارجو مساعدتي في حل المشكلة ولكم جزيل الشكر Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show End Sub Dim b As Integer Dim c As Integer Private Sub CommandButton1_Click() b = 1 Dim Ws As Worksheet strpass = "Secret" Dim oWs As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "1" Then Ws.Visible = xlSheetVeryHidden Next Ws If ComboBox1.Value = "ÇáÞÓØá" And TextBox2.Value = "862" Then Worksheets("ÇáÞÓØá").Visible = xlSheetVisible Sheets("ÇáÞÓØá").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ" And TextBox2.Value = "911" Then Worksheets("ÇáÒÑÞÇÁ").Visible = xlSheetVisible Sheets("ÇáÒÑÞÇÁ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "'ØÈÑÈæÑ" And TextBox2.Value = "526" Then Worksheets("ØÈÑÈæÑ").Visible = xlSheetVisible Sheets("ØÈÑÈæÑ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "æÇÏí Ñã - ÇáÚÞÈÉ" And TextBox2.Value = 467 Then Worksheets("æÇÏí Ñã - ÇáÚÞÈÉ").Visible = xlSheetVisible Sheets("æÇÏí Ñã - ÇáÚÞÈÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÈíÇÏÑ" And TextBox2.Value = 149 Then Worksheets("ÇáÈíÇÏÑ").Visible = xlSheetVisible Sheets("ÇáÈíÇÏÑ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáãØÇÑ 1" And TextBox2.Value = 877 Then Worksheets("ÇáãØÇÑ 1").Visible = xlSheetVisible Sheets("ÇáãØÇÑ 1").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÚÞÈÉ ÇáÎáÝí" And TextBox2.Value = 477 Then Worksheets("ÇáÚÞÈÉ ÇáÎáÝí").Visible = xlSheetVisible Sheets("ÇáÚÞÈÉ ÇáÎáÝí").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáãÝÑÞ" And TextBox2.Value = 880 Then Worksheets("ÇáãÝÑÞ").Visible = xlSheetVisible Sheets("ÇáãÝÑÞ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÓÑæ" And TextBox2.Value = 520 Then Worksheets("ÇáÓÑæ").Visible = xlSheetVisible Sheets("ÇáÓÑæ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ" And 462 Then Worksheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Visible = xlSheetVisible Sheets("ÇáÔÑíÝ ÍÓíä - ÇáÚÞÈÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ãÇÏÈÇ" And TextBox2.Value = 357 Then Worksheets("ãÇÏÈÇ").Visible = xlSheetVisible Sheets("ãÇÏÈÇ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ãÇÑßÇ" And TextBox2.Value = 176 Then Worksheets("ãÇÑßÇ").Visible = xlSheetVisible Sheets("ãÇÑßÇ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÌæíÏÉ" And TextBox2.Value = 260 Then Worksheets("ÇáÌæíÏÉ").Visible = xlSheetVisible Sheets("ÇáÌæíÏÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "äÇÚæÑ" And TextBox2.Value = 425 Then Worksheets("äÇÚæÑ").Visible = xlSheetVisible Sheets("äÇÚæÑ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇÑÈÏ" And TextBox2.Value = 144 Then Worksheets("ÇÑÈÏ").Visible = xlSheetVisible Sheets("ÇÑÈÏ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÌÇãÚÉ ÇáÇÑÏäíÉ" And TextBox2.Value = 854 Then Worksheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Visible = xlSheetVisible Sheets("ÇáÌÇãÚÉ ÇáÇÑÏäíÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÚÞÈå ÇáÕäÇÚíå" And TextBox2.Value = 503 Then Worksheets("ÇáÚÞÈå ÇáÕäÇÚíå").Visible = xlSheetVisible Sheets("ÇáÚÞÈå ÇáÕäÇÚíå").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÓÑæ 2" And TextBox2.Value = 906 Then Worksheets("ÇáÓÑæ 2").Visible = xlSheetVisible Sheets("ÇáÓÑæ 2").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÌÇÈÑ" And TextBox2.Value = 691 Then Worksheets("ÌÇÈÑ").Visible = xlSheetVisible Sheets("ÌÇÈÑ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÞØÑÇäå" And TextBox2.Value = 509 Then Worksheets("ÇáÞØÑÇäå").Visible = xlSheetVisible Sheets("ÇáÞØÑÇäå").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÔíÏíÉ" And TextBox2.Value = 679 Then Worksheets("ÇáÔíÏíÉ").Visible = xlSheetVisible Sheets("ÇáÔíÏíÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇÑÈÏ - ÇáäÚíãÉ" And TextBox2.Value = 328 Then Worksheets("ÇÑÈÏ - ÇáäÚíãÉ").Visible = xlSheetVisible Sheets("ÇÑÈÏ - ÇáäÚíãÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ãÍØÉ ÇáãØÇÑ 2" And TextBox2.Value = 311 Then Worksheets("ãÍØÉ ÇáãØÇÑ 2").Visible = xlSheetVisible Sheets("ãÍØÉ ÇáãØÇÑ 2").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÌÑÝ ÇáÏÑÇæíÔ" And TextBox2.Value = 256 Then Worksheets("ÌÑÝ ÇáÏÑÇæíÔ").Visible = xlSheetVisible Sheets("ÌÑÝ ÇáÏÑÇæíÔ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÍÒÇã 1" And TextBox2.Value = 511 Then Worksheets("ÇáÍÒÇã 1").Visible = xlSheetVisible Sheets("ÇáÍÒÇã 1").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÌíÒÉ" And TextBox2.Value = 546 Then Worksheets("ÇáÌíÒÉ").Visible = xlSheetVisible Sheets("ÇáÌíÒÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÔãíÓÇäí" And TextBox2.Value = 568 Then Worksheets("ÇáÔãíÓÇäí").Visible = xlSheetVisible Sheets("ÇáÔãíÓÇäí").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÍÑíÉ" And TextBox2.Value = 247 Then Worksheets("ÇáÍÑíÉ").Visible = xlSheetVisible Sheets("ÇáÍÑíÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÔÇÑÚ ãßÉ" And TextBox2.Value = 803 Then Worksheets("ÔÇÑÚ ãßÉ").Visible = xlSheetVisible Sheets("ÔÇÑÚ ãßÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ" And TextBox2.Value = 838 Then Worksheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Visible = xlSheetVisible Sheets("ÔÇÑÚ ÚÈÏ Çááå ÛæÔÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÈÞÚÉ" And TextBox2.Value = 975 Then Worksheets("ÇáÈÞÚÉ").Visible = xlSheetVisible Sheets("ÇáÈÞÚÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí" And TextBox2.Value = 190 Then Worksheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Visible = xlSheetVisible Sheets("ÇáãÑßÒ ÇáËÞÇÝí Çáãáßí").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ãÇÑßÇ 2" And TextBox2.Value = 367 Then Worksheets("ãÇÑßÇ 2").Visible = xlSheetVisible Sheets("ãÇÑßÇ 2").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã" And TextBox2.Value = 631 Then Worksheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Visible = xlSheetVisible Sheets("ÇáØÝíáÉ - ÇáÈáÏ - Ñæíã").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÌÑÔ-ÈÇÈ ÚãÇä" And TextBox2.Value = 659 Then Worksheets("ÌÑÔ-ÈÇÈ ÚãÇä").Visible = xlSheetVisible Sheets("ÌÑÔ-ÈÇÈ ÚãÇä").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÒÑÞÇÁ-Îæ" And TextBox2.Value = 235 Then Worksheets("ÇáÒÑÞÇÁ-Îæ").Visible = xlSheetVisible Sheets("ÇáÒÑÞÇÁ-Îæ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3" And TextBox2.Value = 989 Then Worksheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Visible = xlSheetVisible Sheets("ÇÊæÓÊÑÇÏ ÇáÒÑÞÇÁ- ãÇÑßÇ 3").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÈáíáÇ" And TextBox2.Value = 153 Then Worksheets("ÈáíáÇ").Visible = xlSheetVisible Sheets("ÈáíáÇ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÕæíáÍ" And TextBox2.Value = 404 Then Worksheets("ÕæíáÍ").Visible = xlSheetVisible Sheets("ÕæíáÍ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáØÝíáÉ ÇáÚíÕ" And TextBox2.Value = 429 Then Worksheets("ÇáØÝíáÉ ÇáÚíÕ").Visible = xlSheetVisible Sheets("ÇáØÝíáÉ ÇáÚíÕ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇÑÈÏ.ÇáÍÕä" And TextBox2.Value = 688 Then Worksheets("ÇÑÈÏ.ÇáÍÕä").Visible = xlSheetVisible Sheets("ÇÑÈÏ.ÇáÍÕä").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáíÇÏæÏÉ" And TextBox2.Value = 922 Then Worksheets("ÇáíÇÏæÏÉ").Visible = xlSheetVisible Sheets("ÇáíÇÏæÏÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÍÒÇã 2" And TextBox2.Value = 378 Then Worksheets("ÇáÍÒÇã 2").Visible = xlSheetVisible Sheets("ÇáÍÒÇã 2").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáÍÑÉ" And TextBox2.Value = 857 Then Worksheets("ÇáÍÑÉ").Visible = xlSheetVisible Sheets("ÇáÍÑÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ãÑßÒ ÊæÒíÚ" And TextBox2.Value = 999 Then Worksheets("ãÑßÒ ÊæÒíÚ").Visible = xlSheetVisible Sheets("ãÑßÒ ÊæÒíÚ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÇáßÑß - ÇáËäíÉ" And TextBox2.Value = 666 Then Worksheets("ÇáßÑß - ÇáËäíÉ").Visible = xlSheetVisible Sheets("ÇáßÑß - ÇáËäíÉ").Select '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf ComboBox1.Value = "ÌãíÚ ÇáÕÝÍÇÊ" And TextBox2.Value = 39661822 Then For Each Ws In Worksheets Ws.Visible = True Ws.Visible = xlSheetVisible Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Else MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software" ActiveWorkbook.Close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End If 'MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "DVB Software" UserForm1.Hide Application.Visible = True End Sub Private Sub TextBox1_Change() End Sub Private Sub Frame1_Click() End Sub Private Sub Label1_Click() End Sub Private Sub l5_Click() End Sub Private Sub l6_Click() End Sub Private Sub UserForm_Activate() c = 0 For i = 1 To 10000000000# If c = 1 Then Exit Sub DoEvents l6.Left = l6.Left - 0.04 If l6.Left = -250 Then l6.Left = 210 End If Next i b = 0 Do If b = 1 Then Exit Sub l5.Caption = Time DoEvents Loop End Sub Private Sub UserForm_Initialize() Me.ComboBox1.List = Worksheets("ÇáãÍØÇÊ").Range("W3:W52").Value End Sub مبيعات المحطات 2.rar

للرفع

مبيعات المحطات 2.rar

السادة المحترمين في الملف المرفق ملف يحتوي العديد من الصفحات صفحة لكل مستخدم يدخل من خلال يوزر فورم ولكنني اجد مشكلة بان الشيت الذي ادخل عليه نت خلال الفورم لا يكون فعال اي لا استطيع ادخال البيانات عليه مثال مستخدم القسطل الباسوورد 862 ما هو الكود الناقص للعمل ارجو المساعدة في هذه المشكلة

ارجو المساعدة في تجميع القيم المفلترة بشرط المادة وحسب الملف المرفق وشكرا لمن يدلني على المعادلات المستخدمة في مثل هذه الحالة اجمالي طلبات المشترى المحلي.rar