كود لعمل وصل بمشتريات الزبون

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

السلام عليكم - بارك الله فيكم ورزقكم من فضله -

محتاج كود لعمل وصل بمشتريات الزبون 

وكما موضح بالملف المرفق شيت الوصل

واي اضافات ترونه مناسبة من حيث المضمون والشكل - مشكورين

عمل وصل بمشتريات العميل - كود.rar

[احمدزمان]

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

اكتب اسم العميل تظهر البيانات

اقتباس

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Dim RN1 As Range, RN2 As Range, RN3 As Range
Set RN1 = Sheets("ÇáÓÌá").Range("A3:J55555")
Set RN2 = Range("I2:I3")
Set RN3 = Range("A3:G27")
RN1.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False
End Sub

 

عمل وصل بمشتريات العميل - كود.rar