طلب مساعدة - منتدى المحاسبين المصريين

12-31-2011, 02:28 PM

nourfarsi

مشارك

تاريخ التسجيل: Jan 2007

العمر: 47

المشاركات: 45

طلب مساعدة

ممكن احد يشرح لى الكود التالى .. هوا كود استدعاء بيانات مش شيت بالاكسيل الى شيت اخر بناء على شروط معينة

Sub استدعاء()
On Error Resume Next
If [B4] = "" And [C4] = "" And [E4] = "" Then
MsgBox "يجب اختيار الحساب بدلالة رقم القيد او اسم الحساب", vbInformation + vbMsgBoxRight, "تنبيه"
Else
[B9:H200].ClearContents
[B6] = "" & [K1]
Application.ScreenUpdating = False
For x = 1 To Sheets.Count
MySheets = Sheets(x).Name
If Sheets(x).Name = "القيود" Then Exit For
For R = 3 To Sheets(MySheets).[A1500].End(xlUp).Row
If (Sheets(MySheets).Cells(R, 4) = [B4] Or Sheets(MySheets).Cells(R, 6) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 7) >= [G4] And Sheets(MySheets).Cells(R, 7) <= [H4]) Then
With Sheets("القيود").[B200].End(xlUp)
.Offset(1, 0) = Sheets(MySheets).Cells(R, 1)
.Offset(1, 1) = Sheets(MySheets).Cells(R, 2)
.Offset(1, 2) = Sheets(MySheets).Cells(R, 3)
.Offset(1, 3) = Sheets(MySheets).Cells(R, 4)
.Offset(1, 4) = Sheets(MySheets).Cells(R, 5)
.Offset(1, 5) = Sheets(MySheets).Cells(R, 6)
.Offset(1, 6) = Sheets(MySheets).Cells(R, 7)
End With
End If
Next R
Next x
Application.ScreenUpdating = True
MsgBox "!تم استخراج الكشف المطلوب", vbInformation + vbMsgBoxRight, "تم الاستخراج"
[B4:E4].ClearContents
End If
End Sub

12-31-2011, 02:31 PM

nourfarsi

مشارك

تاريخ التسجيل: Jan 2007

العمر: 47

المشاركات: 45

مشاركة: طلب مساعدة

الكود بداخل ملف الاكسيل وارجو شرحه لي لانه هام جدا وماقدرت افهمه .,..

الملفات المرفقة

تجميع بيانات من جميع الصفحات.xls‏ (92.5 كيلوبايت, المشاهدات 69)

« الموضوع السابق | الموضوع التالي »

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة لا تستطيع الرد على المواضيع لا تستطيع إرفاق ملفات لا تستطيع تعديل مشاركاتك BB code is متاحة الابتسامات متاحة كود [IMG] متاحة كود HTML متاحة قوانين المنتدى

الانتقال السريع

الساعة الآن 11:41 PM