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

أبوحازم · مايو 24, 2015

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

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

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

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

ياسر خليل أبو البراء · مايو 25, 2015

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

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

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

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