إبراهيم ابوليله

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

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل لدى ليست بوكس بها حوالى اكثر من 30سطر ولدى عدد 11 تيكست بوكس اريد عند تحديد بعض السطور فى الليست بوكس وعند الضغط على زر نقل يتم نقل بيانات الليست المحدده الى التيكست بوكس .............................................................. مثال توضيحى نفترض اننى قمت بتحديد السطر السطور الاتيه السطر رقم 4-5-10-15-20-25-30 اريد نقل هذه السطور الى التيكست دون وجود فراغات بالتيكست تقبلو تحياتى TRS LIST.rar

اخى محمد اين المرفق

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

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

اخى ياسر اليك الملف sort sheets.rar

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

اخى محمد ممكن التوضيح اكثر لاننى بصراحه مش فاهم حاجه خالص ياريت لو تضلاب لنا ميثال لما تريده تقبل تحياتى

اخى جعفر اشكرك على الكود الجميل ده الكود يفى بالغرض تماما بارك الله فيك

انت تأمر ياعم ياسر

اخى محمد لديلك فى الملف المرفق عدد يوزر فورم اى يوزر فيه تريد ترحيل بيانات الصف المختار في الليست الموجوده به تقبل تحياتى اخى محمد على العموم جرب وضع هذه الكود داخل الفورم Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Dim rng As Range, LR As Long Dim x x = Application.InputBox("Please enter a Quntity", , , , , , , 1) If x = False Then Exit Sub Else LR = Sheets("invoice").Cells(Rows.Count, "E").End(xlUp).Row + 1 Set rng = Sheets("invoice").Cells(LR, 4) If ListBox1.Value <> "" Then rng.Value = ListBox1.Value rng.Offset(0, 1).Value = ListBox1.List(ListBox1.ListIndex, 1) rng.Offset(0, 4).Value = ListBox1.List(ListBox1.ListIndex, 2) rng.Offset(0, 2).Value = x End If End If End If End Sub تقبل تحياتى

اخى محمد يرجى وضع مرفق للعمل عليه وذلك تيسرا على الاخوه الاعضاء فى مساعدتك على العموم ضع هذه الاكواد داخل الفورم لعلها تكون ماتريد Private Sub UserForm_Activate() With Me.ListBox1 .AddItem "ابراهيم" .AddItem "محمد" .AddItem "ابراهيم" .AddItem "ابوليله" End With End Sub Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then MsgBox "h" TextBox1.Value = ListBox1.Column(0) End If End Sub تقبل تحياتى

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

الاخوه الافاضل السلام عليكم ورحمة الله وبركات اريد كود يقوم بترتيب الشيتات كما فى المرفق SORT.rar

اخى بن علية ليك وحشه منور المنتدى تقبل تحياتى

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

اخى ياسر مشكورا على الاهتمام والتوضيح بصراحه انا بدأت اقتنع بان كثره المشاركات تفيد الاعضاء اكثر من طرح الموضوع وشرحه لانك دائما ما تلاقى استفسارات قد تكون غائبه عن بالك فتدركها وحينما يجاب عليها تضاف الى معلوماتنا ولذلك لدى سؤالين الاول فى السطر If Dn.Offset(, -1).Value = Txt هل المتغير txt هو عباره عن البارامتر الاول الثانى انت قولت فى الشرح انه يمكن الاستغناء عن السطور الثلاثه If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty ونستبدلها بسطر واحد Dic(Dn.Value) = Empty صح ولا ايه ولكن لما انا حزفت السطرين دول If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then لقيت ان الكوموبوكس 2 بعد ما اختار فاتوره بيع من الكوموبوكس1 يتم احضار جميع الاسماء فى الكوموبوكس 2 ياريت لو توضح ما تقصده بكلامك عن حزف السطرين وهل اذا حزفناهم فعلا سوف يؤثر فى الكود ام لا تقبل تحياتى

اخى ياسر معلش هتتعب معانا شويه انت عارف ان ال مخاخ مش زى بعضها انا بس كنت عايز اعرف Obj.Clear الكود ازاى عرف ان obj دى تبقى هيا الكومو هل تم التعرف عليها من UserForm_Initialize ولا الموضوع جه ازاى كمان فيه حاجه تانيه احنا عرفنا Col As Integer بس انت جيت فى السطر ده Set Rng = .Range(.Cells(4, Col), .Cells(Rows.Count, Col).End(xlUp)) عرفنا ان رقم 4 و عباره عن الصف الرابع فى شيت اليوميه ولكن انا مش عارف Col اصبح يمثل انهى عمود فى شيت اليوميه لاننى اعرف انه فى الغالب يكتب السطر بالشكل الاتى ده لو افترضنا اننا عايزين نشير الى العمود الاول Set Rng = .Range(.Cells(4, 1), .Cells(Rows.Count, 1).End(xlUp)) ارجو التوضيح تقبل تحياتى

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

ياعم ياسر كمل جميلك ياراجل للاخر وقولنا ايه نظام الكود ده كمان Sub cValues(Txt As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With WS Set Rng = .Range(.Cells(4, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub Private Sub ComboBox1_Click() Call cValues(ComboBox1.Value, ComboBox2, 2) End Sub معلش متقلين عليك بس احنا متأكدين ان صلب اكتر من حديد عز والدخيله تقبل تحياتى

يابشا اشرح فكره استخدام CreateObject تقبل تحياتى

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

اخى خالد حل رائع ومشكور على مجهودك الجبار تقبل تحياتى

طب انت ايه رأيك يقى ان انا مش هضيف رقم 1 ده خالص لا على المصفوفه ولا داخل الحلق التكراريه Sub mokhtest() Dim arr arr = Array("A", "B", "C", "D") ReDim Preserve arr(1 To 4) As Variant For i = LBound(arr) To UBound(arr) Cells(3, i).Value = arr(i) Next End Sub تقبل تحياتى