أرصدة العملاء والطباعة والانتقال لكشف الحساب

[أبوحازم]

 أرصدة العملاء في ورقة واحدة للطباعة

الشئ الثاني بمجرد النقر على زر دخول يظهر كشف حساب العميل كامل للتفصيل

المرفق يشرح نفسة الرجاء التعاون مع لان الامر المهم لي وشكرا 

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

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

الأخ الفاضل أبو حازم

إليك الملف التالي عله يفي بالغرض

ويرجى فيما بعد توضيح المطلوب في المشاركة نفسها مع التوضيح داخل الملف (زيادة الخير خيرين)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H3:H134")) Is Nothing Then
        If IsEmpty(Target.Offset(, -6)) Then
            Exit Sub
        Else
            Sheet2.Range("B1").Value = Target.Offset(, -6).Value
            Sheet2.Activate
        End If
        Cancel = True
    End If
End Sub

تقبل تحياتي

New Statement.rar

[أبوحازم]

حلو صراحه بدعت ياصاحبي بس إذا نقرت على بعض الخلايا يظهر لي رسالة أنظر للمرفق ياريت ما تظهر

بدون عنوان.rar

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

الأخ الفاضل أبو حازم

الملف يعمل بدون مشاكل ..راجع الملف مرة أخرى ..أنا متأكد أنه يعمل بشكل جيد ..

 

 

 

 

تم تعديل المشاركة السابقة (كنت بهزر معاك)

تقبل هزاري وتحياتي

[أبوحازم]

نعم صدقت بعدما حملتة مره أخرى شكرا أستاذي المحترم

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

أخي الكريم

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي