ترحيل وبحث

[طائع]

السادة أساتذتى واخوانى لدى ملف اريد به ترحيل جدول الى صفحة اخرى 

المطلوب بالمرفق

Book2.rar

[طائع]

للرفع

[مجدى يونس]

الاخ طائع

انظر الرابط التالى

اخر الصفحة ترحيل ناجح وراسب

 

 

[طائع]

شكرا على اهتمامك استاذى 

اريد من حضرتك الحل بالآكواد حيث أننى اريد كتابة البيانات للحالة وترحيلها مع امكانية مسح البيانات لإدخال بيانات أخرى 

[طلعت محمد حسن]

اخي الكريم يجب ان تكون المعلومات غير مبعثرة في الفاتورة حتى يتم ترحيلها كصف واحد في صحفة كل الحالة

[طائع]

لم أفهم  الرجاء التوضيح

[طلعت محمد حسن]

عند كتابة الفاتورة تكون كل الخلايا متسلسلة اي لا يوجد فرغات بداخل الفاتورة حتى اخر صنف مباع ربما يكون صنف واحد او اثنان والمستلزمات تكون بجانب الاصناف

[طائع]

أتقصد هكذا

ترحيل وبحث.rar

[طلعت محمد حسن]

المشكلة بالمسح اخي الكريم انة يمسح المعادلات

[طائع]

انظر الى هذا الكود  

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

[طلعت محمد حسن]

شاهد المرفق اخي الكريم واذا كان مناسب سوف ننتقل للمطلوب الثاني

ترحيل وبحث.rar

[طائع]

من فضلك جرب واملأ جميع صفوف الأدوية والمستلزمات 

تجد أنه يرحل صف واحد فقط وأيضا يرحل معه أسماء أعمدة الجدول

[طلعت محمد حسن]

تعرف وين المشكلة عندك اخي الكريم انك في كل مرة يجب ان تملئ العامود A بالاسم فقط 

ترحيل وبحث.rar

[طائع]

وضحت المشكلة وفهمت ولكن هل من حل للتغلب على تكرار اسم الحالة أمام كل صف من صفوف الجدول

 

تم تعديل نوفمبر 27, 2016 بواسطه طائع

[طلعت محمد حسن]

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

[طائع]

نعم هذا صحيح 

أكمل على بركة الله الطلب الثانى

أرجو أن يكون البحث بمعيارين 

الحالة 

التاريخ

[طائع]

وياللروعة لو كان بحث بفورم يتم طباعته

[طلعت محمد حسن]

احكي من اول بدك فورم على العموم شاهد هذا البحث بكتابة اول حرف من الاسم المراد البحث عنة ولا تكمل الاسم ارجوك لاني ابحث عن حل هذه المشكلة هههههههه

تعديل نسخة من ترحيل وبحث.rar

[جلال الجمال_ابو أدهم]

طلعت محمد حسن

اخى تحياتى و جزاك الله خيرا
اعتقد ان هناك خطأ عند الفلترة بحساسية الاحرف 
ارجو ارفاق كود خفيف و سريع من البحث و الفلترة بحساسية الاحرف 
يعرض فقط فلترة للاسم فى Search Box و تكون النتيجة لعدد كبير من الصفوف

[طلعت محمد حسن]

هذا ما اعمل علية استاذ جلال ويا ريت تشارك اذا امكن بالموضوع اقبل تتحياتي واحترامي لشخصك الكريم

[جلال الجمال_ابو أدهم]

طلعت محمد حسن

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

اكواد و فورم منفصله_قائمه منسدله و التصفيه و فلترة البيانات

تم تعديل نوفمبر 27, 2016 بواسطه جلال الجمال_ابو أدهم

[طلعت محمد حسن]

اخي الكريم شاهد المرفق

تعديل 3نسخة من ترحيل وبحث.rar

[طائع]

ما الفرق بين هذه المشاركة والمشاركة السابقة عنها

اريد فورم بحث متعدد المعايير

تم تعديل نوفمبر 27, 2016 بواسطه طائع

[طلعت محمد حسن]

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

اقبل تحياتي واحترامي

[طائع]

اخى واستاذى طلعت أشكرك شكر المتعلم لمعلمه على سعة صدرك وارجو الا أكون متعلم أثقل الحمل على معلمه 

لكى كل تحياتى واشكرك