Tarekchahine قام بنشر فبراير 17, 2022 مشاركة قام بنشر فبراير 17, 2022 هكذا AAAAA.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر فبراير 18, 2022 أفضل إجابة مشاركة قام بنشر فبراير 18, 2022 There are not enought details but try the following code study it well and change it to suit your needs Option Explicit Private Sub ComboBox1_Change() Dim ws As Worksheet, i As Integer, m As Long, r As Long, k As Long For i = 2 To 5 Set ws = ThisWorkbook.Worksheets(i) With ws m = .Cells(Rows.Count, "D").End(xlUp).Row If m <= 1 Then GoTo NXT For r = 2 To m If .Cells(r, "D").Value = ComboBox1.Value Then With Me.ListBox1 If k = 0 Then .ColumnCount = 3 .AddItem .List(k, 0) = ws.Cells(r, 1).Value .List(k, 1) = ws.Cells(r, 2).Value .List(k, 2) = ws.Cells(r, 6).Value k = k + 1 End With End If Next r NXT: End With Next i End Sub 1 1 رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 18, 2022 الكاتب مشاركة قام بنشر فبراير 18, 2022 استاذ شكرا علي المجهودك بس المشكله اذا كانت شيت اكسيل نشطه مبيعات او مشتريات يعمل الكود علي نفس الصفحه لو سمحت انا اريد يعمل علي صفحات المبيعات و المشتريات و المرتجع رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 18, 2022 مشاركة قام بنشر فبراير 18, 2022 Change the variable i to determine the worksheets index number to suit your needs رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 18, 2022 الكاتب مشاركة قام بنشر فبراير 18, 2022 هكذا استاذ m = .Cells(Rows.Count, "D").End(xlUp).Row+1 لو سمحت استاذ ممكن اضافة عند تغيير اسم يتم مسح معلومات الليست بوكس رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 18, 2022 الكاتب مشاركة قام بنشر فبراير 18, 2022 Application.ScreenUpdating = False ListBox1.RowSource = Empty ListBox1.Clear تم الحل بفضلكم شكرا lionheart رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 Before the loop in the code use this line Me.ListBox1.Clear 1 رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 شكرا استاذ .. لو سمحت عندي سؤال لازم يكون كشف الحساب دائن ومدين من المبيعات و المشتريات و المرتجع المبيعات و المشتريات في الليست بوكس ؟ رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 Not clear for me. I will leave this question for those who are specialist in accounting رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 اوكي استاذ ممكن نعمل تعديل بسط اذا سمحت رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 I can't help you anymore as there are no clear steps But generally you can use IF statement and the property NAME to refer to sepcific worksheet If worksheets(i).Name = "NAMEOFSHEET" Then 'Do Something Else 'Do Another Thing End If 1 رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 هذا جزء مع الكود رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 I just gave you some instructions. Now you have the main code, study it well then try to implement your needs in the code رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 نعم انت علي حق استاذ شكرا الك علي المساعد بس صدقني لو عندي خلفيه عن البرمجه كنت عملت كود خبرتي صغير شكرا رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 learning is a continuous process and we were not born know anything. Try and you will be able to do it yourself 1 رابط هذا التعليق شارك More sharing options...
Tarekchahine قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 ممكن شرح كود كيف يعمل (( حتي اقد اوصل الا حل )) رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 20, 2022 مشاركة قام بنشر فبراير 20, 2022 I will leave the explanation of the code to someone who can understand vba codes as I will not be able to explain in Arabic 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان