elsedik قام بنشر مارس 19, 2014 مشاركة قام بنشر مارس 19, 2014 عند الضعط استدعاء كيف يتم استدعاء البيانات من صفحة Data بناء على ما يتم اختيارة فى الخلايا C4,c5,14;I5 مرفق ملف استدعاء البيانات.rar رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر مارس 19, 2014 مشاركة قام بنشر مارس 19, 2014 تفضل استدعاء البيانات1.rar 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 19, 2014 مشاركة قام بنشر مارس 19, 2014 ما شاء الله اخي الكريم / ابو عيد مشاركاتك بالفعل جميلة تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر مارس 20, 2014 الكاتب مشاركة قام بنشر مارس 20, 2014 اخى الفاضل الكود مش شغال وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر مارس 20, 2014 مشاركة قام بنشر مارس 20, 2014 الكود يعمل عندي جيدا أعطني مثالا للبيانات التي تكتبها والتي لا يعمل معها الكود معك مثلا اسم العميل : ............ رقم الشيك : ........... من تاريخ : ............ غلى تاريخ ................... رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر مارس 21, 2014 الكاتب مشاركة قام بنشر مارس 21, 2014 كل البيانات لا يعمل معها الكود رابط هذا التعليق شارك More sharing options...
elsedik قام بنشر مارس 21, 2014 الكاتب مشاركة قام بنشر مارس 21, 2014 كيف يتم التعديل هذا الكود فى الحدث من تغير فى ورقة العمل الى الضغط على زر Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c4:c5,i4,i5")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target.Cells.Count > 1 Then Exit Sub If Target Is emptey Then Sheet2.Range("b8:i5000").ClearContents r = 8 For i = 5 To Sheet1.Range("b10000").End(xlUp).Row + 1 Application.ScreenUpdating = False If Sheet2.Range("c4").Value = "" Then GoTo a If Sheet2.Range("c4").Value = Sheet1.Cells(i, "e") Then a: If Sheet2.Range("c5").Value = "" Then GoTo a1 If Sheet2.Range("c5").Value = Sheet1.Cells(i, "g") Then a1: If Sheet2.Range("i5").Value = "" Then GoTo a2 If Sheet2.Range("i5").Value >= Sheet1.Cells(i, "h") Then a2: If Sheet2.Range("i4").Value = "" Then GoTo a3 If Sheet2.Range("i4").Value <= Sheet1.Cells(i, "h") Then a3: Sheet2.Cells(r, 2) = Sheet1.Cells(i, 3) For j = 3 To 9 Sheet2.Cells(r, j) = Sheet1.Cells(i, j + 2) Next j r = r + 1 End If End If End If End If Next i End If End If End Sub مرفق ملف تعديل كود.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 21, 2014 مشاركة قام بنشر مارس 21, 2014 أخى الفاضل / الصديق تم دمج الموضوعين ( استدعاء البيانات ) و ( تعديل كود ) لأنهما يحتويان على نفس السؤال مع تحياتى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مارس 21, 2014 مشاركة قام بنشر مارس 21, 2014 (معدل) اخى تم تعديل الكود وتم التجربة قبل الرفع لعله المطلوب استدعاء البيانات1.rar تم تعديل مارس 21, 2014 بواسطه سعد عابد 1 رابط هذا التعليق شارك More sharing options...
احمد محمد على قام بنشر مارس 21, 2014 مشاركة قام بنشر مارس 21, 2014 اخى سعد عابد جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مايو 10, 2014 مشاركة قام بنشر مايو 10, 2014 يبدولي انه لا يعمل الا مره وحده من اول ضغطة على استعداء وبعدها يتوقف رابط هذا التعليق شارك 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.