ايت الحبيب قام بنشر نوفمبر 4, 2013 مشاركة قام بنشر نوفمبر 4, 2013 من فضلكم يا خبراء المنتدى ارغب في استيراد بيانات بواسطة كود عوض المعادلات من ملف Archeve الى ملف LISTES بشكل تلقائي كلما غيرت القسم بواسطة زر العداد الموجود في صفحة اللائحة ولكم مني جزيل الشكر 1 رابط هذا التعليق شارك More sharing options...
ايت الحبيب قام بنشر نوفمبر 4, 2013 الكاتب مشاركة قام بنشر نوفمبر 4, 2013 ارغب في كود يمكن من استيراد بيانات محددة من ملف ARCHIVE الى ورقة الائحة في ملف LISTES كلما غيرت القسم بزر العداد تتغير اللائحة حسب القسم ورقم التلميذ او رقم التسجيل وجزاك الله خيرا ALMO3IN.rar رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر نوفمبر 5, 2013 مشاركة قام بنشر نوفمبر 5, 2013 أخي ايت الحبيب لماذا لاتضع الملفين في ملف واحد حتي يسهل العمل رابط هذا التعليق شارك More sharing options...
ايت الحبيب قام بنشر نوفمبر 5, 2013 الكاتب مشاركة قام بنشر نوفمبر 5, 2013 اخي الحبيب لم اضع الملف في ملف واحد لان الملف الاساسي الذي اشتغل عليه كبير وعندي ملفات كثيرة متفرقة حتى اتمكن من فتحها بسهولة رابط هذا التعليق شارك More sharing options...
ايت الحبيب قام بنشر نوفمبر 5, 2013 الكاتب مشاركة قام بنشر نوفمبر 5, 2013 الاخوة الافاضل ارغب في استدعاء لوائح التلاميذ من ملف الارشيف ( ARCHIVE ) الى ملف (LISTES) وذلك كلما تغير اسم القسم بواسطة زر التغيير الموجود بصفحة ( اللائحة ) على نفس الملف دون فتح الملف الاول ولكم جزيل الثناء ALMO3IN.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 5, 2013 مشاركة قام بنشر نوفمبر 5, 2013 السلام عليكم اولا يجب عدم تكرار المواضيع ======================= بالنسبة للطلب يجب فتح الملف ARCHIVE ' عدد الاعمدة Private Const Cont As Integer = 7 Sub kh_Find() Dim sh As Worksheet Dim Ary() Dim Lr As Integer, R As Integer, RR As Integer Dim Txt As String Lr = Cells(Rows.Count, "E").End(xlUp).Row If Lr > 9 Then Range("E10:K" & Lr).ClearContents On Error GoTo 2 Set sh = Workbooks("ARCHIVE").Sheets("Feuil1") Txt = [H7] With sh Lr = .Cells(.Rows.Count, "A").End(xlUp).Row ReDim Ary(1 To Lr, 1 To Cont) For R = 2 To Lr If CStr(.Cells(R, "G")) = Txt Then RR = RR + 1 Ary(RR, 1) = RR Ary(RR, 2) = .Cells(R, "B").Value Ary(RR, 3) = .Cells(R, "C").Value & " " & .Cells(R, "D").Value Ary(RR, 4) = .Cells(R, "H").Value Ary(RR, 5) = .Cells(R, "K").Value Ary(RR, 6) = .Cells(R, "J").Value Ary(RR, 7) = .Cells(R, "I").Value End If Next End With If RR Then Range("E10").Resize(RR, Cont).Value = Ary 2: Set sh = Nothing Erase Ary End Sub شاهد المرفق 2003 ALMO3IN.rar 1 رابط هذا التعليق شارك More sharing options...
ايت الحبيب قام بنشر نوفمبر 6, 2013 الكاتب مشاركة قام بنشر نوفمبر 6, 2013 اشكرك اخي الكريم على اهتمامك ولكن بعد تحميل الملف وفتح الملفين معا اضغط على الزر الا انه لم يستورد شئ راجه اخي موقع الخطأ ولك مني جزيل الشكر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 6, 2013 مشاركة قام بنشر نوفمبر 6, 2013 اشكرك اخي الكريم على اهتمامك ولكن بعد تحميل الملف وفتح الملفين معا اضغط على الزر الا انه لم يستورد شئ راجه اخي موقع الخطأ ولك مني جزيل الشكر الكود يعمل تمام التمام تاكد انت من تفعيل الماكرو او من صحة اختياراتك للفصول الموجودة في الملف ARCHIVE تحياتي رابط هذا التعليق شارك More sharing options...
ايت الحبيب قام بنشر نوفمبر 6, 2013 الكاتب مشاركة قام بنشر نوفمبر 6, 2013 جربت كل شيء دون جدوى اخي الكريم ربما من الاوفيس الذي استعمله لانه 2003 رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر نوفمبر 6, 2013 مشاركة قام بنشر نوفمبر 6, 2013 أخي الحبيب الملف يعمل جيدا يجب أن يكون الملف archive مفتوح رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 6, 2013 مشاركة قام بنشر نوفمبر 6, 2013 جربت كل شيء دون جدوى اخي الكريم ربما من الاوفيس الذي استعمله لانه 2003 انا شغلته على اوفيس 2003 و2010 وهويعمل تمام لا ادري المشكلة عندك وقد جاءك تاكيد من الاخ dah_med رابط هذا التعليق شارك 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.