أب مارية

للرفع

السلام عليكم

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

سأحاول شرح المطلوب بإعطاء المثال التالي:

في الجدول نجد هناك بعض الاسماء المكررة في العمود "C" ومثال ذلك الاسم "toto" حيث يوجد في السطر "21" و"25" أي العملية رقم (12 و 16). 

نأتي إلى الفورم حيث عند كتابة اسم "toto" في التكست يوكس يظهر في الليست بوكس مكرر كما هو موجود في الجدول.

عند تحديد الاسم الثاني من الليست بوكس (الاسم الموجود في السطر 25 والذي يحمل رقم العملية 16) واجراء تعديل في التكست بوكس باللون الأصفر والبنفسجي هنا كل شيئ تمام. 

الآن وبعد الضغط على زر Enregistrer فإنه يقوم بترحيل التعديلات أسفل سطر "toto" الموجود في السطر 21 والذي يحمل رقم العملية 12 أي أنه يرحل إلى أول اسم موجود في الجدول وليس الاسم الثاني الذي تم تحديده.

ألمطلوب هنا هو كيفة ظبط الكود بحيث يقوم بترحيل التعديل إلى أسفل الاسم المختار بالضبط. 

Originale24.rar

للرفع

السلام عليكم 

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

مثال:

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

أرجو المساعدة ولكم مني جزيل الشكر.

Originale24.rar

السلام عليكم

بارك الله فيك أخي أبو سليمان

في انتظار الحل تقبل تحياتي.

السلام عليكم

أرجو من الاخوة المساعدة في ايجاد الخطأ في الكود التالي:

Private Sub CommandButton12_Click() 
If TextBox88.Value = 0 Then
Dim i As Integer
i = 9
While Feuil2.Cells(i, 3) <> TextBox88.Value
i = i + 1
Wend
If Feuil2.Cells(i, 3) = TextBox88.Value Then
    Feuil2.Cells(i, 3) = TextBox88
    Feuil2.Cells(i, 3).Offset(0, 8) = TextBox118
    Feuil2.Cells(i, 3).Offset(0, 10) = TextBox95
    Feuil2.Cells(i, 3).Offset(0, 11) = TextBox120
With Feuil1
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Vents")
TextBox120 = Format(Date, "dd/mm/yyyy")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = iRow - 9
ws.Cells(iRow, 2).Value = CDate(Me.TextBox120.Value)
ws.Cells(iRow, 3).Value = Me.TextBox89.Value
ws.Cells(iRow, 4).Value = Me.TextBox92.Value
ws.Cells(iRow, 5).Value = Me.TextBox96.Value
ws.Cells(iRow, 6).Value = Me.TextBox91.Value
ws.Cells(iRow, 7).Value = Me.TextBox97.Value
ws.Cells(iRow, 8).Value = Me.TextBox93.Value
ws.Cells(iRow, 10).Value = Me.TextBox98.Value
End With
Else
 While Feuil2.Cells(i, 3) <> TextBox88.Value
        i = i + 1
    Wend
    Cells(i + 1, 3).Select: Selection.EntireRow.Insert
    Cells(i, 11) = CDbl(Me.TextBox94) + CDbl(Me.TextBox118)
    Cells(i + 1, 14) = Me.TextBox120
    Cells(i + 1, 11) = Me.TextBox118
    Cells(i, 13) = CDbl(Me.TextBox95)    
Me.TextBox88.Value = ""
Me.TextBox89.Value = ""
Me.TextBox90.Value = ""
Me.TextBox94.Value = ""
Me.TextBox95.Value = ""
Me.TextBox118.Value = ""
Me.TextBox120.Value = ""
Me.TextBox92.Value = ""
Me.TextBox136.Value = ""
Me.TextBox91.Value = ""
Me.TextBox137.Value = ""
Me.TextBox93.Value = ""
Me.TextBox138.Value = ""
End If
End If
End Sub

للرفع

للرفع

السلام عليكم

هل يمكن ترحيل بيانات إلى سطرين مختلفين مع توفر شرط معين.

الشرح مفصل في الملف المرفق.

Originale23.rar

السلام عليكم

لدي فورم مدرج به تسع ComboBox كل واحد مخصص لجلب بينات معينة كما هو موضح في الكود

لكن المشكل الذي أواجهه هو عدم جلب البيانات في حالة ما إذا كانت مكررة.

أرجو من الاخوة المساعدة في جعل الكود يجلب جميع البيانات المتعلقة بالكومبو بوكس حتى ولو كانت مكررة.

أكيد أن أحد الأعضاء لديه الحل

هل المطلوب ثعب لهذه الدرجة؟؟؟؟

أين أنتم يا أحبائي

للرفع

السلام عليكم

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

Originale19V1.rar

اعتقد أن الحل موجود عند جل أساتذتنا فأرجو الافادة

للرفع

السلام عليكم

أنا في انتظار ردودكم يا أساتذتنا

Originale19.rar

للرفع

السلام عليكم

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

للرفع

للرفع

السلام عليكم

Originale19.rar

السلام عليكم

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

والمطلوب هو ترحيل البيانات الموجودة في جميع التكست بوكس باللون الاصفر إلى شيت Stocks استنادا الى الكومبو بوكس المقابل لها

Originale18.rar