ترحيل البيانات من صفحة الى اخرى

[husas707]

مساء الخير جميعا

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

وبارك الله فيكم وجزاكم خيرا

خلاصة السلة.xlsx

[lionheart]

In worksheet module, try the code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, sh As Worksheet, m As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 1 Then
        Set sh = ThisWorkbook.Worksheets(2)
        m = sh.Cells(31, 1).End(xlUp).Row + 1
        If m >= 31 Or (m = 2 And sh.Range("A2").Value <> Empty) Then MsgBox "No More Fields", vbExclamation: Exit Sub
        x = Application.Match(Target.Offset(, 1).Value, sh.Columns(1), 0)
        If Not IsError(x) Then MsgBox "Customer Already Exists", vbExclamation: Exit Sub
        sh.Cells(m, 1).Value = Target.Offset(, 1).Value
        Target.Select
    End If
End Sub

 

[husas707]

السلام عليكم اخي العزيز

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

وبارك الله فيك وفي جميع المتعاونين في هذة المنتدى الرائع

ترحيل السلة.xlsx

[lionheart]

I think this is a different request. Please post a new topic for the new question