فورمة استدعاء وادخال وتعديل ونرحيلها الى عدة شيتات حسب الحالة

[ابوعبدالواجد]

السلام عليكم - حياكم الله 

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

ممكن عمل فورمة استدعاء وادخال البيانات وترحليها الى الشيتات حسب الحالة

جزيتم خيرا

عمل فورمة استدعاء وادخال للشيت السجل وشيت الاقساط.rar

[ابوعبدالواجد]

الفورمة بالادخال اسهل

من ادخالها مباشرة لطول الجدول

 

[ابوعبدالواجد]

السلام عليكم - حياكم لله

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

علماً أن رقم الدخول (123) 

ارجو التصحيح وجعلها تتلائم مع عملي في شيت السجل

 

فورمة ادخال.rar

[الجموعي]

54 دقائق مضت, ابوعبدالواجد said:

السلام عليكم - حياكم لله

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

علماً أن رقم الدخول (123) 

ارجو التصحيح وجعلها تتلائم مع عملي في شيت السجل

 

فورمة ادخال.rar

تفضل اخي

فورمة ادخال.rar

[ابوعبدالواجد]

السلام عليكم

يبارك فيك اخي

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

على المرفق المرفق

تعديل على الفورمة.rar

[ابولجين العزالي]

كود ادخال البيانات
Dim LRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ÇáÓÌá")
LRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    If Trim(Me.TxtBox1.Value) = "" Then
        Me.TxtBox1.SetFocus
        MsgBox ("ãä ÝÖáß ÃÏÎá ÇáßæÏ")
        Exit Sub
    End If
    If Trim(Me.TxtBox2.Value) = "" Then
        Me.TxtBox2.SetFocus
        MsgBox ("ãä ÝÖáß ÃÏÎá ÇáÇÓã")
        Exit Sub
    End If
ws.Cells(LRow, 1).Value = Me.TxtBox1.Value
ws.Cells(LRow, 2).Value = Me.TxtBox2.Value
ws.Cells(LRow, 3).Value = Me.TxtBox3.Value
ws.Cells(LRow, 4).Value = Me.TxtBox4.Value
ws.Cells(LRow, 5).Value = Me.TxtBox5.Value
ws.Cells(LRow, 6).Value = Me.TxtBox6.Value
ws.Cells(LRow, 7).Value = Me.TxtBox7.Value
ws.Cells(LRow, 8).Value = Me.TxtBox8.Value
ws.Cells(LRow, 9).Value = Me.TextBox1.Value
ws.Cells(LRow, 10).Value = Me.TextBox2.Value
Me.TxtBox1.Value = ""
Me.TxtBox2.Value = ""
Me.TxtBox3.Value = ""
Me.TxtBox4.Value = ""
Me.TxtBox5.Value = ""
Me.TxtBox6.Value = ""
Me.TxtBox7.Value = ""
Me.TxtBox8.Value = ""
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TxtBox1.SetFocus

[أبو حنــــين]

السلام عليكم

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

Dim LRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ورقة1")
LRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    If Trim(Me.TxtBox1.Value) = "" Or Trim(Me.TxtBox2.Value) = "" Then
    If Me.TxtBox1.Value = "" Then Me.TxtBox1.SetFocus Else Me.TxtBox2.SetFocus
        MsgBox "رجاءا أكمل البيانات", vbExclamation, "خطأ"
        Exit Sub
    End If
 With ws
.Cells(LRow, 9).Value = Me.TextBox1.Value
.Cells(LRow, 10).Value = Me.TextBox2.Value
    For i = 1 To 8
    .Cells(LRow, i).Value = Me.Controls("TxtBox" & i).Value
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.Controls("TxtBox" & i) = ""
    Next
    Me.TxtBox1.SetFocus
End With

 

تم تعديل أبريل 8, 2016 بواسطه أخوكم في الله

[ابوعبدالواجد]

السلام عليكم

لم يعمل الكود 

ارجو اصلاح الخلل على الملف التالي ( ليعمل على شيت السجل)

تعديل على الفورمة.rar