استدعاء فاتورة والتعديل عليها او حذفها

[ابوحمزه المصرى]

السلام عليكم ورحمة الله وبركاته 

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

 

كشف حساب جديد.rar

[ياسر خليل أبو البراء]

أخي الحبيب صلاح

يرجى مزيد من التوضيح

استدعاء البيانات يكون مرتبط بخلية محددة .. ما ه تلك الخلية المراد الاستدعاء على أساسها ؟؟

نقطة أخرى ما هي البيانات التي سيتم استدعائها ؟ يرجى ضرب مثال تطبيقي لأنك أكثر الناس دراية بالملف

[ابوحمزه المصرى]

شكرا على اهتمامك اخى الحبيب ياسر اليك مرفق ملف آخر به المطلوب اكثر وضوحا

كشف حساب جديد.rar

[ابوحمزه المصرى]

up

[ياسر خليل أبو البراء]

أخي الكريم صلاح المصري

إليك كود الاستدعاء ..يعتمد على فلترة البيانات ثم نسخ الخلايا الظاهرة في العمودين G و H

Sub MultipleFilter()
    Dim WS As Worksheet, SH As Worksheet, RngData As Range, RngCopy As Range
    Set WS = Sheets("Rawdata"): Set SH = Sheets("فاتورة بيع")
    Set RngData = WS.Range("A6:R" & WS.Cells(Rows.Count, 1).End(xlUp).Row)
    
    Application.ScreenUpdating = False
        With WS
            .AutoFilterMode = False
            With .Range("A5:R5")
                .AutoFilter Field:=2, Criteria1:=SH.Range("I4").Value
                .AutoFilter Field:=3, Criteria1:=SH.Range("I5").Value
                .AutoFilter Field:=4, Criteria1:=SH.Range("C5").Value
                .AutoFilter Field:=5, Criteria1:=SH.Range("B2").Value
            End With
            Set RngCopy = Intersect(.Columns("G:H"), RngData.SpecialCells(xlCellTypeVisible))
            RngCopy.Copy
            SH.Range("B8").PasteSpecial xlPasteValues
        End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[ابوحمزه المصرى]

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

تم تعديل أكتوبر 11, 2015 بواسطه صلاح المصرى

[ياسر خليل أبو البراء]

أخي الكريم صلاح

ألا يمكنك إفراد موضوع لكل طلب على حدا حتى يتنسى للجميع المشاركة فيه ..

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

تقبل تحياتي

[KHMB]

السلام عليكم ورحمة الله

اخونا ومشرفنا ومدير قسم عندنا استاذنا / ياسر الحبيب أبو البراء

اخي الفاضل العزيز أبو البراء ما أدري مالمقصود بطرح موضوع جديد ونحن أساسا في موضوع جديد دائما ألاحظهـا ان كنت تقصد رد جديد جميل لكن لازم توضح لأن البعض بل الكثير من أصحاب المواضيح والمعنيين وخاصه الجدد منهم يقوموا بطرح نفس الموضوح في موضوع جديد ولكن بالنقاط التي يريدوا ان يستفسروا عنها وهذا خطأ فادح في تشتيت المعلومات وفقدان جزء من المعلومة فلماذا لاتكون النقاط برد جديد في نفس الموضوع  وليس موضوع جديد وهذا موجود في سياسة المنتدى.وآسف علي اي تقصير في التعبير وسامحني فسماحتك وطيبتك وكريم اخلاقك كفيلين بالمسامحة.

 

[ياسر خليل أبو البراء]

أخي الحبيب أبا الحسن والحسين

الموضوع الواحد حينما يطول لا تجد إقبال عليه من جميع الأعضاء حيث أنهم يركنون لشخض واحد لتقديم المساعدة ..أما طرح موضوع جديد بالطلب الجديد وليس لنفس الطلب فيعد تنشيط للموضوع بحيث يساهم فيه كل الأعضاء الآخرين

فأقترح طرح موضوع جديد بعنوان مثلاً "التعديل على بيانات تم عمل استدعاء لها" على سبيل المثال والطلب هنا مختلف حيث أنه سيتم التعامل مع البيانات التي تمت عملية الاستدعاء لها ..

ولا أقصد بطرح موضوع جديد انتظار ردود جميلة أخرى ..

ونقطة أخرى في طرح موضوع جديد إثراء للمنتدى وعمليات البحث ، حيث أن كثرة الموضوعات مع الدقة في اختيار عنوان للموضوع تسهل عملية البحث وتفيد الآخرين فيما بعد

هذه مجرد وجهات نظر لا أكثر .. وأنا طوع أمركم فيما ترونه أصلح

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