ملف جساباات

[أبو عرابى]

الاخوة والاخوات الكرام

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

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

ولكم الشكر والتحية

 

حسابات.rar

[خالد الرشيدى]

السلام عليكم

اخى الكريم - لست بحاجه ان يكون هناك صفحه ادخال لكل عميل - صفحه واحده كافيه - يحدد فيها اسم العميل في اى خانه ثم يتم كتابه البيانات ومن خلال الكود ترحل الى صفحه الكل - بالنسبه للحصول على كشف حساب عميل سواء يومى او خلال فتره - امر سهل ولكن يتطلب عند ادخال كل عمليه ان يكتب التاريخ الخاص بها

ان كان هذا الامر يناسبك - اعد رفع الملف بنموزج ادخال واحد لكل العملاء - مع وجود خانه للتاريخ واسم العميل - 

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

 

تم تعديل يونيو 3, 2017 بواسطه خالد الرشيدى

[أبو عرابى]

4 ساعات مضت, خالد الرشيدى said:

السلام عليكم

اخى الكريم - لست بحاجه ان يكون هناك صفحه ادخال لكل عميل - صفحه واحده كافيه - يحدد فيها اسم العميل في اى خانه ثم يتم كتابه البيانات ومن خلال الكود ترحل الى صفحه الكل - بالنسبه للحصول على كشف حساب عميل سواء يومى او خلال فتره - امر سهل ولكن يتطلب عند ادخال كل عمليه ان يكتب التاريخ الخاص بها

ان كان هذا الامر يناسبك - اعد رفع الملف بنموزج ادخال واحد لكل العملاء - مع وجود خانه للتاريخ واسم العميل - 

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

 

الاخ الكريم الاستاذ /خالد الرشيدى

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

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

 

حسابات 2.rar

[سليم حاصبيا]

بعد اذن الاخ خالد

جرب هذا الملف

 

 

حسابات 2 salim.rar

[أبو عرابى]

الاخ الكريم الاستاذ /سليم

الملف جميل ويرجى اخفاء الاعمدة ( F - G -H ) من شيت العملاء ومن صفحة العميل ايضا وكذلك حساب العميل حسب التاريخ وحساب الواصل والمتبقى ولكم جزيل الشكر

[سليم حاصبيا]

تم التعديل على الكود كما تريد

 

حسابات 3 salim.rar

[أبو عرابى]

الاخ الكريم الاستاذ /سليم

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

ولكم جزيل الشكر

[سليم حاصبيا]

الكود يقوم يحساب الواصل والمتبقى و ما عليك الا ان تضع ارقاماً في الصفحة الرئيسية

بالنسبة لحجم الخط اضف هذا السطر

Cells.Font.Size = 16: .Cells.Font.Bold = True.

الى الكود Give_data وذلك بعد هذا السطر

.Range("c5:o" & lrk + 1).Borders.LineStyle = xlContinuous

ليصبح الكود Give_data بهذا الشكل

Sub Give_data()
Dim lr, lrk As Integer
Dim k As Integer
Dim Nam As String
Dim my_sh As Worksheet
Dim c As Integer
lr = Main.Cells(Rows.Count, 2).End(3).Row

For k = 2 To Sheets.Count
    c = 5
    Nam = Sheets(k).Name
    Set my_sh = Sheets(k)
    my_sh.Range("b5:o500").ClearContents
    my_sh.Range("b5:o500").ClearFormats
    For i = 5 To lr
       If Main.Range("b" & i) = Nam Then
        my_sh.Range("c" & c).Resize(1, 13).Value = Main.Range("c" & i).Resize(1, 13).Value
        c = c + 1
        End If
  Next
  lrk = Sheets(k).Cells(Rows.Count, 3).End(3).Row
  With Sheets(k)
  .Columns("F:H").EntireColumn.Hidden = True
 .Range("b" & lrk + 1) = "المجاميع"
.Range("f" & lrk + 1).Formula = "=SUM(f5:f" & lrk & ")"
.Range("g" & lrk + 1).Formula = "=SUM(g5:g" & lrk & ")"
.Range("h" & lrk + 1).Formula = "=SUM(h5:h" & lrk & ")"
.Range("i" & lrk + 1).Formula = "=SUM(i5:i" & lrk & ")"
.Range("k" & lrk + 1).Formula = "=SUM(k5:k" & lrk & ")"
.Range("l" & lrk + 1).Formula = "=SUM(l5:l" & lrk & ")"
.Range("m" & lrk + 1).Formula = "=SUM(m5:m" & lrk & ")"
.Range("c" & lrk + 1 & ":o" & lrk + 1).Value = .Range("c" & lrk + 1 & ":o" & lrk + 1).Value
.Range("b" & lrk + 1 & ":o" & lrk + 1).Interior.ColorIndex = 6
.Range("c5:o" & lrk + 1).Borders.LineStyle = xlContinuous
.Cells.Font.Size = 16: .Cells.Font.Bold = True
End With
Next
End Sub

 

 

 

 

[أبو عرابى]

الاخ الكريم الاستاذ /سليم

بارك الله فيكم  

ولكم جزيل الشكر