كود لاستيراد بيانات من ملف اكسيل الى آخر بشروط

[ايت الحبيب]

من فضلكم يا خبراء المنتدى ارغب في استيراد بيانات بواسطة كود عوض المعادلات من ملف Archeve الى ملف LISTES بشكل تلقائي كلما غيرت القسم بواسطة زر العداد

الموجود في صفحة اللائحة ولكم مني جزيل الشكر

[ايت الحبيب]

   ارغب في كود يمكن من استيراد بيانات محددة من ملف ARCHIVE الى ورقة الائحة في ملف LISTES كلما غيرت القسم بزر العداد

تتغير اللائحة حسب القسم ورقم التلميذ او رقم التسجيل

وجزاك الله خيرا

ALMO3IN.rar

[dah_med]

أخي ايت الحبيب

لماذا لاتضع الملفين في ملف واحد حتي يسهل العمل

[ايت الحبيب]

اخي الحبيب لم اضع الملف في ملف واحد لان الملف الاساسي الذي اشتغل عليه كبير وعندي ملفات كثيرة متفرقة حتى اتمكن من فتحها بسهولة

[ايت الحبيب]

الاخوة الافاضل ارغب في استدعاء لوائح التلاميذ من ملف الارشيف ( ARCHIVE ) الى ملف 

(LISTES) وذلك كلما تغير اسم القسم بواسطة زر التغيير الموجود بصفحة ( اللائحة ) على نفس الملف

دون فتح الملف الاول 

ولكم جزيل الثناء

ALMO3IN.rar

[عبدالله باقشير]

السلام عليكم

 

اولا يجب عدم تكرار المواضيع

=======================

بالنسبة للطلب يجب فتح الملف 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

[ايت الحبيب]

اشكرك اخي الكريم على اهتمامك ولكن بعد تحميل الملف وفتح الملفين معا اضغط على الزر الا انه لم يستورد شئ راجه اخي موقع الخطأ ولك مني جزيل الشكر

[عبدالله باقشير]

اشكرك اخي الكريم على اهتمامك ولكن بعد تحميل الملف وفتح الملفين معا اضغط على الزر الا انه لم يستورد شئ راجه اخي موقع الخطأ ولك مني جزيل الشكر

 

الكود يعمل تمام التمام

تاكد انت من تفعيل الماكرو

او من صحة اختياراتك للفصول الموجودة في الملف ARCHIVE

 

تحياتي

[ايت الحبيب]

جربت كل شيء دون جدوى اخي الكريم ربما من الاوفيس الذي استعمله لانه 2003

[dah_med]

أخي الحبيب

الملف يعمل جيدا

يجب أن يكون الملف archive مفتوح

[عبدالله باقشير]

جربت كل شيء دون جدوى اخي الكريم ربما من الاوفيس الذي استعمله لانه 2003

انا شغلته على اوفيس 2003 و2010

وهويعمل تمام

لا ادري المشكلة عندك

وقد جاءك تاكيد من الاخ dah_med