mohamed anwer

السلام عليكم عندى جدول اعمال شحن (دليفيرى) يتم التسجيل فيه عن طريق يوزرفورم ومن ثم انشاء صفحه جديده بأسم العميل المرسل اليه (K)الذى تم ادخاله فى اليوزرفورم المطلوب جزاكم الله خيرا 1- عند انشاء الصفحه الجديده تكون بأسم العميل المرسل اليه (K) 2- انشاء لينك للرجوع فى الصفحه التى تم انشائها 3- انشاء لينك ارسال رساله عبر الواتس اب فى الصفحه التى تم انشائها ولكم جزيل الشكر Shipment Status.xlsm

عذرا تم تحميل ملف العمل يوجد 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 شكرا لمجهوداتكم ومساعدتكم وكل عام وانتم بخير البحث والاضافه و التعديل - Copy.xlsm

السلام علكيم رجاء احتاج كود يمكنى من تحديد البيانات وترحيلها بتحديد شرط معين (Part #1) من نطاق معين (U2:U1000) انا استخدمت كود بحث من خلال التكست بوكس واحتاج الى الفلتره احتاج ايضا كود عندما اكتب فى تكست بوكس رقم 1 على سبيل المثال يكون نفس القيمه فى التكست بوكس رقم 2 متشكر مقدما الكود المستخدم Private Sub CommandButton9()_Click Dim lr, p, x As Long Dim count As Integer lr = Sheet1.Cells(Rows.count, 3).End(xlUp).Row count = 0 p = 3 Sheet3.Range("a3:l1000").ClearContents For x = 2 To lr If TextBox21 = Sheet1.Cells(x, 3) Then Sheet3.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 + 1 count = count + 1 End If Next x End 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 تم عمل فلتره للعمود ترحيل.rar