الترحيل من الفورم إلى ورقة العمل في نطاق محدد

[ابراهيم الابيض]

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

facture.rar

[طلعت محمد حسن]

السلام عليكم

اخي الكريم تم عمل كود الترحيل حسب فهمي لطلبك شاهد المرفق واخبرني عن رايك

facture.rar

[ابراهيم الابيض]

السلام عليكم

اخي الكريم تم عمل كود الترحيل حسب فهمي لطلبك شاهد المرفق واخبرني عن رايك

facture.rar

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

أود أن يتم الترحيل إلى نطاق معين (مدى معين)

تقبل مروري

 

ما نجحت العملية سيدي

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

facture.rar

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

أخي الكريم إبراهيم

يرجى اتباع التوجيهات ..راجع رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة

العنوان غير مناسب على الإطلاق

 

بالنسبة لحل الأخ الكريم طلعت محمد حسن فهو حل صحيح طبقاً للمرفق الذي تفضلت به

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

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

تقبل تحياتي

[ابراهيم الابيض]

أخي الكريم إبراهيم

يرجى اتباع التوجيهات ..راجع رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة

العنوان غير مناسب على الإطلاق

 

بالنسبة لحل الأخ الكريم طلعت محمد حسن فهو حل صحيح طبقاً للمرفق الذي تفضلت به

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

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

تقبل تحياتي

شكرا سيدي الكريم

أتمنى أن لا أكون محل إزعاج

تفضل المرفق وفيه الطلب ( الترحيل إلى المدى باللون الأخضر )

وآمل أن أكون عضوا بناء 

facture3.rar

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

جرب الكود بهذا الشكل

Private Sub CommandButton1_Click()
    DataEntry
End Sub

Private Sub CommandButton2_Click()
    End
End Sub

Private Sub UserForm_Activate()
    TextBox2.SetFocus
End Sub

Sub DataEntry()
    Dim TotalRows As Long
    Dim sh As Worksheet
    Set sh = ورقة1
    
    If TextBox2.Text = "" Then
        MsgBox ("الرجاء ادخال اسم المادة")
        Exit Sub
    ElseIf TextBox3.Text = "" Then
        MsgBox ("الرجاء ادخال الكمية")
        Exit Sub
    ElseIf TextBox8.Text = "" Then
        MsgBox ("الرجاء ادخال سعر المادة")
        Exit Sub
    End If
    
    With sh
        TotalRows = .Cells(31, "C").End(xlUp).Row
        If TotalRows < 15 Then
            TotalRows = 15
        Else
            TotalRows = TotalRows
        End If
        .Cells(TotalRows + 1, 3) = Me.TextBox2.Value
        .Cells(TotalRows + 1, 4) = Me.TextBox3.Value
        .Cells(TotalRows + 1, 5) = Me.TextBox8.Value
        .Cells(TotalRows + 1, 6) = Me.TextBox9.Value
    End With
    
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
    Me.TextBox8.Value = ""
    Me.TextBox9.Value = ""
    Me.TextBox2.SetFocus
End Sub