طائع قام بنشر نوفمبر 26, 2016 مشاركة قام بنشر نوفمبر 26, 2016 السادة أساتذتى واخوانى لدى ملف اريد به ترحيل جدول الى صفحة اخرى المطلوب بالمرفق Book2.rar رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 للرفع رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 الاخ طائع انظر الرابط التالى اخر الصفحة ترحيل ناجح وراسب رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 شكرا على اهتمامك استاذى اريد من حضرتك الحل بالآكواد حيث أننى اريد كتابة البيانات للحالة وترحيلها مع امكانية مسح البيانات لإدخال بيانات أخرى رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 اخي الكريم يجب ان تكون المعلومات غير مبعثرة في الفاتورة حتى يتم ترحيلها كصف واحد في صحفة كل الحالة رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 لم أفهم الرجاء التوضيح رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 عند كتابة الفاتورة تكون كل الخلايا متسلسلة اي لا يوجد فرغات بداخل الفاتورة حتى اخر صنف مباع ربما يكون صنف واحد او اثنان والمستلزمات تكون بجانب الاصناف رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 أتقصد هكذا ترحيل وبحث.rar رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 المشكلة بالمسح اخي الكريم انة يمسح المعادلات رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 انظر الى هذا الكود Sub ترحيل_بيانات() LR = [C8].End(xlDown).Row If LR > 28 Then MsgBox "لا يوجد أصناف ، لن يتم أي ترحيل": Exit Sub dt = [b8]: clnt = [D6]: inv_N = [I5] If dt < 36666 Then MsgBox "التاريخ خطأ ، لن يتم أي ترحيل": Exit Sub If Len(clnt) < 2 Then MsgBox "لا يوجد عميل ، لن يتم أي ترحيل": Exit Sub If inv_N < 1 Then MsgBox "لا يوجد رقم فاتورة ، لن يتم أي ترحيل": Exit Sub For R = 9 To LR With Sheet2 nR = .[B9999].End(xlUp).Row + 1 If nR < 9 Then nR = 9 .Cells(nR, 9) = Cells(R, 10) .Cells(nR, 1) = dt .Cells(nR, 2) = clnt .Cells(nR, 3) = Cells(R, 3) .Cells(nR, 4) = Cells(R, 4) .Cells(nR, 5) = Cells(R, 5) .Cells(nR, 6) = Cells(R, 6) .Cells(nR, 7) = inv_N End With Next R a = MsgBox("هل تريد مسح بيانات الفاتورة؟", vbYesNo + vbQuestion, "مسح بيانات") If a = vbYes Then Range("C9:D" & LR).ClearContents: Range("F9:F" & LR).ClearContents [I5] = inv_N + 1 End Sub Sub recall() 'On Error Resume Next With Sheet2 .[P9:P9999].ClearContents R = .[O9999].End(xlUp).Row .Range("H7:O" & R).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.[P7:Q7], Unique:=True R = .[P10000].End(xlUp).Row Names("Inv_N").RefersToR1C1 = "=المحل!R9C16:R" & R & "C16" Names("Clnt_N").RefersToR1C1 = "=المحل!R9C17:R" & R & "C17" UserForm1.ListBox1.RowSource = "Inv_N" UserForm1.ListBox2.RowSource = "Clnt_N" End W رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 شاهد المرفق اخي الكريم واذا كان مناسب سوف ننتقل للمطلوب الثاني ترحيل وبحث.rar رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 من فضلك جرب واملأ جميع صفوف الأدوية والمستلزمات تجد أنه يرحل صف واحد فقط وأيضا يرحل معه أسماء أعمدة الجدول رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 تعرف وين المشكلة عندك اخي الكريم انك في كل مرة يجب ان تملئ العامود A بالاسم فقط ترحيل وبحث.rar رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 (معدل) وضحت المشكلة وفهمت ولكن هل من حل للتغلب على تكرار اسم الحالة أمام كل صف من صفوف الجدول تم تعديل نوفمبر 27, 2016 بواسطه طائع رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 الحل ان نستثنى من عملية النسخ وانت تريد الاستعلام بعد ذالك عن طريق الاسم هكذا فهمت منك رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 نعم هذا صحيح أكمل على بركة الله الطلب الثانى أرجو أن يكون البحث بمعيارين الحالة التاريخ رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 وياللروعة لو كان بحث بفورم يتم طباعته رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 احكي من اول بدك فورم على العموم شاهد هذا البحث بكتابة اول حرف من الاسم المراد البحث عنة ولا تكمل الاسم ارجوك لاني ابحث عن حل هذه المشكلة هههههههه تعديل نسخة من ترحيل وبحث.rar 2 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 طلعت محمد حسن اخى تحياتى و جزاك الله خيرا اعتقد ان هناك خطأ عند الفلترة بحساسية الاحرف ارجو ارفاق كود خفيف و سريع من البحث و الفلترة بحساسية الاحرف يعرض فقط فلترة للاسم فى Search Box و تكون النتيجة لعدد كبير من الصفوف رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 هذا ما اعمل علية استاذ جلال ويا ريت تشارك اذا امكن بالموضوع اقبل تتحياتي واحترامي لشخصك الكريم رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 (معدل) طلعت محمد حسن للاسف عندى مشكلة فى الاوفيس او win و مش عارف اشارك بحاجه تحياتى و طالع المرفق ان كان يفيد اكواد و فورم منفصله_قائمه منسدله و التصفيه و فلترة البيانات تم تعديل نوفمبر 27, 2016 بواسطه جلال الجمال_ابو أدهم رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 27, 2016 مشاركة قام بنشر نوفمبر 27, 2016 اخي الكريم شاهد المرفق تعديل 3نسخة من ترحيل وبحث.rar 1 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 27, 2016 الكاتب مشاركة قام بنشر نوفمبر 27, 2016 (معدل) ما الفرق بين هذه المشاركة والمشاركة السابقة عنها اريد فورم بحث متعدد المعايير تم تعديل نوفمبر 27, 2016 بواسطه طائع رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 28, 2016 مشاركة قام بنشر نوفمبر 28, 2016 اخي طائع تم الاجابة عن طلبك بملف اعتقد لا يوجد اي تعليق علية واذا اردت طلب ثاني انزلة بشكل مستقل عن هذا الموضوع بالشرح وتحديد المطلوب اقبل تحياتي واحترامي 1 رابط هذا التعليق شارك More sharing options...
طائع قام بنشر نوفمبر 29, 2016 الكاتب مشاركة قام بنشر نوفمبر 29, 2016 اخى واستاذى طلعت أشكرك شكر المتعلم لمعلمه على سعة صدرك وارجو الا أكون متعلم أثقل الحمل على معلمه لكى كل تحياتى واشكرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.