مرحلة ادخال البيانات (طرح فكره وطلب مساعدة)

[Ahmed Mohamed Eg]

السادة الأعضاء / تحية طيبة وبعد

كثيرا ما يعاني البعض من كثرة الأصناف المطلوب ادخالها بأسرع وقت ممكن بشكل مستمر ، كل مرة بترتيب مختلف . منهم من يستخدم جهاز البار كود ، ومنهم من يستخدم القوائم المنسدلة لاختيار ما يريد ادخاله ، ومنهم من يستخدم أكواد مختصرة للبيانات المطلوب ادخالها ليتجنب الوقت والجهد فى البحث فى القوائم ، لكن الفكرة المطروحه الان هى عمل أزرار للادخال

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

أعتذر لو كانت الفكرة تم طرحها من قبل لكن لدي هدف فى المشاركة فى تطوير هذا الملف حتى يصل إلى شكل معين لعموم الفائدة 

مع جزيل الشكر 

مرحلة إدخال البيانات.xlsm

[سليم حاصبيا]

ريما افضل ان يكون الملف يهذا الشكل(دون اليوزر فورم)

الكود

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim my_rg As Range
Dim lrA%, lrB%
lrA = Sheets("2").Cells(Rows.Count, 1).End(3).Row + 1
lrB = Sheets("2").Cells(Rows.Count, 2).End(3).Row + 1
Set my_rg = Me.Range("b2:c2")
Application.EnableEvents = False
 If Not Intersect(Target, my_rg) Is Nothing And _
     Target.Cells.Count = 1 And Not IsEmpty(Target) Then
    If Target.Address = "$B$2" Then
        Sheets("2").Cells(lrA, 1) = Target
      Else
       Sheets("2").Cells(lrB, 2) = Target
    End If
  End If
  
 Application.EnableEvents = True

End Sub

الملف مرفق

 

مرحلة إدخال البيانات Salim.xlsm

[Ahmed Mohamed Eg]

أستاذي الفاضل / الاخ سليم 

شكرا جزيلا على اهتمامك الدائم 

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

بحيث اقوم بعمل كود لكل زرار عند الضغط عليه يقوم بادخال هذا الصنف فى آخر خلية بالعامود فارغة 

مع جزيل الشكر 

 

[سليم حاصبيا]

ارفع ملفاً نموذج مع قليل من الييانات (20   25 سطر)   دون زركشة او تنسيق الوان تبهر النظر

لمعرفة المطلوب بالضبط

[Ahmed Mohamed Eg]

مرحلة إدخال البيانات.xlsm

[Ali Mohamed Ali]

ممكن تجرب هذا

 

 

مرحلة إدخال البيانات.xlsm

[Ahmed Mohamed Eg]

شكرا جزيلا استاذى الفاضل / علي 

لقد استخدمت نفس الكود الذى ارسلته لى فى الشكل المطلوب جزاك الله خيرا

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

لدي سؤال هل اليوزر فورم له مساحة محدوده فى التصميم والاستخدام أم ممكن أن يكون به أيضا سكلور بار إذا حمل أكثر من مائة زرار مثلا 

 

 

مرحلة إدخال البيانات.xlsm

[Ali Mohamed Ali]

على حد علمى ممكن بس مش هيبقى منطقى أن تقوم بتصميم 100 زر مثلا بالتالى كبرت حجم الفورم وهيكون من الصعب التعامل معه