elsedik قام بنشر مارس 19, 2014 قام بنشر مارس 19, 2014 عند الضعط استدعاء كيف يتم استدعاء البيانات من صفحة Data بناء على ما يتم اختيارة فى الخلايا C4,c5,14;I5 مرفق ملف استدعاء البيانات.rar
حمادة عمر قام بنشر مارس 19, 2014 قام بنشر مارس 19, 2014 ما شاء الله اخي الكريم / ابو عيد مشاركاتك بالفعل جميلة تقبل خالص تحياتي
elsedik قام بنشر مارس 20, 2014 الكاتب قام بنشر مارس 20, 2014 اخى الفاضل الكود مش شغال وجزاك الله كل خير
أبوعيد قام بنشر مارس 20, 2014 قام بنشر مارس 20, 2014 الكود يعمل عندي جيدا أعطني مثالا للبيانات التي تكتبها والتي لا يعمل معها الكود معك مثلا اسم العميل : ............ رقم الشيك : ........... من تاريخ : ............ غلى تاريخ ...................
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
رجب جاويش قام بنشر مارس 21, 2014 قام بنشر مارس 21, 2014 أخى الفاضل / الصديق تم دمج الموضوعين ( استدعاء البيانات ) و ( تعديل كود ) لأنهما يحتويان على نفس السؤال مع تحياتى
saad abed قام بنشر مارس 21, 2014 قام بنشر مارس 21, 2014 (معدل) اخى تم تعديل الكود وتم التجربة قبل الرفع لعله المطلوب استدعاء البيانات1.rar تم تعديل مارس 21, 2014 بواسطه سعد عابد 1
ا بو سليمان قام بنشر مايو 10, 2014 قام بنشر مايو 10, 2014 يبدولي انه لا يعمل الا مره وحده من اول ضغطة على استعداء وبعدها يتوقف
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.