ابوعبدالواجد قام بنشر مايو 10, 2017 مشاركة قام بنشر مايو 10, 2017 السلام عليكم - بارك الله فيكم ورزقكم من فضله - محتاج كود لعمل وصل بمشتريات الزبون وكما موضح بالملف المرفق شيت الوصل واي اضافات ترونه مناسبة من حيث المضمون والشكل - مشكورين عمل وصل بمشتريات العميل - كود.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 11, 2017 مشاركة قام بنشر مايو 11, 2017 و عليكم السلام و رحمة الله وبركاته اكتب اسم العميل تظهر البيانات اقتباس 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.