أب مارية

للرفع

السلام عليكم أخي 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 كل واحد مخصص لجلب بينات معينة كما هو موضح في الكود لكن المشكل الذي أواجهه هو عدم جلب البيانات في حالة ما إذا كانت مكررة. أرجو من الاخوة المساعدة في جعل الكود يجلب جميع البيانات المتعلقة بالكومبو بوكس حتى ولو كانت مكررة. Private Sub UserForm_Initialize() Set ws = Sheets("Stocks") lrw = ws.Cells(Rows.Count, "B").End(xlUp).Row Ary = ws.Range("B12:B" & lrw).Value ListCmb "Boitie", "ComboBox7" ListCmb "Carte Mére", "ComboBox8" ListCmb "Processeur", "ComboBox9" ListCmb "Ventilateur", "ComboBox10" ListCmb "Disque Dur", "ComboBox11" ListCmb "Graveur", "ComboBox12" ListCmb "Ram", "ComboBox13" ListCmb "Carte graphique", "ComboBox14" ListCmb "Ecran", "ComboBox15" End Sub

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

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

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

للرفع

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

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

للرفع

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

السلام عليكم لدي زر لترحيل البيانات إلى ورقتين مختلفتين قمت بادراج الكود المتعلق بالورقة الاولى وعجزت عن ادراج كود للورقة الثانية أريد من الاخوة المساعدة في ادراج هذا الكود لترحيل الارصدة الموجودة بالتكست بوكس باللون الاصفر إلى شيت Stocks Originale19.rar

للرفع

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

للرفع

للرفع

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

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