MMElmasry قام بنشر فبراير 25, 2018 مشاركة قام بنشر فبراير 25, 2018 السلام عليكم ورحمة الله طالب مساعدة فى : 1- جلب بيانات صفوف من Sheet اسمه مدرج فى خليه شيت أخر وهذا الشرط الأول والبيانات يتم جلبها بناءً على شرط أخر وهو رقم الفاتورة ملحوظة : اسم الشيت و خلية الفاتورة قيمتهم متغيرة بتغير و اذدياد عدد الشيتات والفواتير صورة مدرجة لشرح المطلوب و ملف العمل ارجو المساعدة العاجلة وأكون شاكر Elmasry1.xlsm رابط هذا التعليق شارك More sharing options...
أبوأحـمـد قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 وعليكم السلام هذا الموضوع يمكن يفيدك 1 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 السلام عليكم و رحمة الله جرب المرفق Sub Import_Invoice() Dim FS As Worksheet, TS As Worksheet Dim FR, TR, Q1, Q2, Q3 Set TS = Sheets("Invoice1") Q1 = TS.Range("A9") Q2 = TS.Range("F4") TR = 15 Set FS = Sheets(Q1) For FR = 6 To 333 If FS.Cells(FR, 3) = Q2 Then TR = TR + 1 TS.Cells(TR, 1) = FS.Cells(FR, 2) TS.Cells(TR, 3) = FS.Cells(FR, 4) TS.Cells(TR, 4) = FS.Cells(FR, 5) TS.Cells(TR, 5) = FS.Cells(FR, 6) TS.Cells(TR, 6) = FS.Cells(FR, 4) End If Next MsgBox "ÇáÍãÏááå" & " " & Q1 & " " & Q2, , "Êã" End Sub AZ_المسري1.xls 1 رابط هذا التعليق شارك More sharing options...
MMElmasry قام بنشر فبراير 26, 2018 الكاتب مشاركة قام بنشر فبراير 26, 2018 وعليكم السلام كتر الف خيرك على تعبك ا/ احمد زمان و مساعدتك وكود جميل ومنظم التعديل اللى عملته بس TR = 14 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 آمين واياك تعديل ممتاز و في مكانه 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.