mohamed anwer
-
Posts
7 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه mohamed anwer
-
-
عذرا
تم تحميل ملف العمل
يوجد 3 صفحات
1-تحتوى على بيانات مالكين الوحدات السكنيه
2-عقد ايجار
3-تقرير شهرى
الجزء المطلوب فى فريم (البحث) هو ان احدد البيانات من الصفحه رقم 1 وترحيلها الى اللصفحه رقم 3 بشرطين
1-كتابه القسم المطلوب (C2:c1000) فى التكست بوكس 56 كما هو موضح بالصوره
2-تحديد part1 او part2 فى المدى (U2:u1000) فى الصفحه رقم 1 من خلال optionbutton او لو اقتراح افضلعلما بأن التكست بوكس 56 مشترك فى ثلاث عمليات1-البحث واظهار النتيجه ف اليست بوكس
2-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 8
3-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 9
واريد ايضا عند الكتابه فى التكست بوكس 40 المشار اليه يظهر فى التكست بوكس 2
شكرا لمجهوداتكم ومساعدتكم وكل عام وانتم بخير
-
السلام علكيم
رجاء احتاج كود يمكنى من تحديد البيانات وترحيلها بتحديد شرط معين (Part #1) من نطاق معين (U2:U1000)
انا استخدمت كود بحث من خلال التكست بوكس واحتاج الى الفلتره
احتاج ايضا كود عندما اكتب فى تكست بوكس رقم 1 على سبيل المثال يكون نفس القيمه فى التكست بوكس رقم 2
متشكر مقدما
الكود المستخدم
Private Sub CommandButton9()_ClickDim lr, p, x As LongDim count As Integerlr = Sheet1.Cells(Rows.count, 3).End(xlUp).Rowcount = 0p = 3Sheet3.Range("a3:l1000").ClearContentsFor x = 2 To lrIf TextBox21 = Sheet1.Cells(x, 3) ThenSheet3.Cells(p, 1) = Sheet1.Cells(x, 3)Sheet3.Cells(p, 2) = Sheet1.Cells(x, 4)Sheet3.Cells(p, 3) = Sheet1.Cells(x, 5)Sheet3.Cells(p, 4) = Sheet1.Cells(x, 6)Sheet3.Cells(p, 5) = Sheet1.Cells(x, 7)Sheet3.Cells(p, 6) = Sheet1.Cells(x, 8 )Sheet3.Cells(p, 7) = Sheet1.Cells(x, 9)Sheet3.Cells(p, 8 ) = Sheet1.Cells(x, 12)Sheet3.Cells(p, 9) = Sheet1.Cells(x, 14)Sheet3.Cells(p, 10) = Sheet1.Cells(x, 15)Sheet3.Cells(p, 11) = Sheet1.Cells(x, 16)Sheet3.Cells(p, 12) = Sheet1.Cells(x, 18)p = p + 1count = count + 1End IfNext xEnd Subتم تحميل ملف العمل والاكواد
يوجد 3 صفحات
1-تحتوى على بيانات مالكين الوحدات السكنيه
2-عقد ايجار
3-تقرير شهرى من خلال
الجزء المطلوب فى فريم (البحث) هو ان احدد البيانات من الصفحه رقم 1 وترحيلها الى اللصفحه رقم 3 بشرطين
1-كتابه القسم المطلوب فى التكست بوكس 56 كما هو موضح بالصوره
2-تحديد part1 او part2 فى المدى (U2:u1000) فى الصفحه رقم 1 من خلال optionbutton او لو اقتراح افضل
علما بأن التكست بوكس 56 مشترك فى ثلاث عمليات
1-البحث واظهار النتيجه ف اليست بوكس
2-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 8
3-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 9
واريد ايضا عند الكتابه فى التكست بوكس 40 المشار اليه يظهر فى التكست بوكس 2
شكرا لمجهوداتكم ومساعدتكم وكل عام وانتم بخير
-
السلام عليكم
stuts اريد كود ترحيل بيانات متفرقه من شيت
والتى تم تحديدها باللون الاصفر Report يتم تحديدها عن طريق فلتره البيانات بحيث يتم تحديد بعض الاعمده ليتم ترحيلها كما هو موضح فى شيت
بعدد 25 صف ف اول ورقه واذا كانت اكثر من ذلك يتم ترحيل كل 25 فى ورقه
K6 تم عمل فلتره للعمود
اليوزرفورم وانشاء صفحه جديده بأسم العميل
في منتدى الاكسيل Excel
قام بنشر · تم تعديل بواسطه mohamed anwer
السلام عليكم
عندى جدول اعمال شحن (دليفيرى) يتم التسجيل فيه عن طريق يوزرفورم ومن ثم انشاء صفحه جديده بأسم العميل المرسل اليه (K)الذى تم ادخاله فى اليوزرفورم
المطلوب جزاكم الله خيرا
1- عند انشاء الصفحه الجديده تكون بأسم العميل المرسل اليه (K)
2- انشاء لينك للرجوع فى الصفحه التى تم انشائها
3- انشاء لينك ارسال رساله عبر الواتس اب فى الصفحه التى تم انشائها
ولكم جزيل الشكر
Shipment Status.xlsm