ترحيل المبيعات والمشتريات

[محمد هشام.]

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

حاول تعديل الكود التالي بما يناسبك 

Sub test()
    Dim srcWS As Worksheet, dest As Worksheet
    Dim f As String, Lr As Long
    Dim a(1 To 1, 1 To 3) As Variant
    
    Set srcWS = Sheets("تسجيل")
    f = srcWS.Range("C8").Value
    
    On Error Resume Next
    Set dest = ThisWorkbook.Sheets(f)
    On Error GoTo 0
    If dest Is Nothing Then: MsgBox "ورقة العميل '" & f & "' غير موجودة", vbExclamation: Exit Sub
    
    If srcWS.Range("C7").Value = "اجل" Then
    
        a(1, 1) = Format(Date, "dd/mm/yyyy")              ' التاريخ
        a(1, 2) = srcWS.[C4].Value & " " & srcWS.[C5].Value  'الوصف مع الكود
        a(1, 3) = srcWS.[C6].Value                           'سعر البيع
        
        Lr = dest.Cells(dest.Rows.Count, "B").End(xlUp).Row + 1
        dest.Range(dest.Cells(Lr, "B"), dest.Cells(Lr, "D")).Value = a
        
        MsgBox "تم الترحيل بنجاح إلى ورقة العميل " & f, vbInformation
    End If
End Sub

 

[mahmoud nasr alhasany]

احسنت استاذنا الغالى /  محمد هشام

[أيهاب ممدوح]

الله يبارك في عمرك استاذ محمد

شكرا جزيلا لتعبك معايا

شكرا