مطلوب اكواد لواجهة اكسيل

[اشرف عطوة]

السلام علييكم 

قمت بتصميم واجهة لشيت اكسيل واتمنى مساعدتى فى وضع الاكواد المناسبة للتصميم 

بحيث عند كتابة الكود او اسم الموقع يتم استدعاء البيانات الي اليوزر فورم 

SEPTEMBER UPDATE TEST.xlsm

[أسامة البراوى]

السلام عليكم

قبل البدء انت محتاج تغير ال listbox اللى قدام الكود الى combobox  وليكن combobox2

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

Private Sub UserForm_Initialize()
    Dim LR As Long
    With Sheets("update 2022 September")
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        Me.ComboBox2.RowSource = "=$A$4:$A$" & LR
        Me.ComboBox1.RowSource = "=$C$4:$C$" & LR
    End With
End Sub

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

Private Sub ComboBox2_Change()
   ComboBox1.ListIndex = ComboBox2.ListIndex
        
    If ComboBox2.ListIndex <> -1 Then
        TextBox3.ControlSource = "=$H$" & ComboBox2.ListIndex + 4
    Else
        TextBox3.ControlSource = ""
        TextBox3.Text = ""
    End If
End Sub

وبكده التكست بوكس اصبحت مرتبطه بالخليه يعنى اي تغيير فيها ها يتحدث اتوماتيتك فى الخليه

* الجمله الشرطية للتأكد انك كتبت كود موجود داخل الليست , , والا يلغى ارتباط التكست بوكس بالخلية ثم يمسح محتوى التكست بوكس

* ال 4 دي بداية اول سطر بيانات فى الجدول

 

[اشرف عطوة]

اولا شكرا جزيلا لحضرتك 

ثانيا انا حطيت الكود لكن واضح انا عملت حاجة مش صح / اتطبق الشرط اللى حضرتك قولته لما بكتب اى قيمة فى كود الموقع بيشغل الخانة اللى تحته كانها لسيت انا اختار منها 

الفكرة اللى بدور عليها وبحاول اتعلمها اني اربط خانة كود الموقع وخانة اسم الموقع بالشيت ولما اكتب اى قيمة فيهم مساوية للشيت يتم تلقائي استدعاء باقى البيانات المرتبطة بالموقع او الكود اللى كتبته 

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

SEPTEMBER UPDATE TEST.xlsm

[أسامة البراوى]

السلام عليكم ..مرفق الملف بالأكواد

SEPTEMBER UPDATE TEST-o.xlsm

ملحوظة :

لو عايز المستخدم ليه صلاحيات التغيير ينستعمل الكود ده

 الفورم مرتبطه مباشرة بالخليه بمعنى ان اي تغيير اثناء عرض الفورم يتم تحديثه مباشرة
        Connect_With_Row (ComboBox1.ListIndex + 4)
        اما لو عايز له صلاحيات عرض فقط يبقى حط علامة  '  اول السطر السابق وشيلها  من السطر ده

  الفورم تعرض السطر فقط بمعنى ان اي تغيير اثناء عرض الفورم لا يتم تحديثه مباشرة يحتاج لكود اخر للتحديث
        'Show_Row (ComboBox1.ListIndex + 4)
        

[اشرف عطوة]

شكرا جزيلا لحضرتك  ..ربنا يباركلك ويجعل اليابسه فى ايدك خضراء  ..شكرا