alnoor_09 قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 السلام عليكم أخواني الكرام لدي ملفين DATA1 و DATA2 أريد في الملف DATA2 أن أستورد بيانات ل Name و ل Dep فقط من الملف DATA2 على أفتراض أني سوف أتعامل مع مئات الموظفين. أرجو المساعدة و لكم جزيل الشكر. DATA1.rar DATA2.rar
هادى محمد المامون سالم قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 بسم الله الرحمن الرحيم لاستيراد البيانات أستخدم الكود التالى Sub DOIT() Columns("A:B").Clear Dim i, cnt As Integer cnt = 1 For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER Sheets("Sheet1").Cells(cnt, "A") = Workbooks("Data1").Sheets("Sheet1").[A1] Sheets("Sheet1").Cells(cnt, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "A") Sheets("Sheet1").Cells(cnt + 1, "A") = Workbooks("Data1").Sheets("Sheet1").[B1] Sheets("Sheet1").Cells(cnt + 1, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "B") Sheets("Sheet1").Cells(cnt + 2, "A") = Workbooks("Data1").Sheets("Sheet1").[C1] Sheets("Sheet1").Cells(cnt + 2, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "C") cnt = cnt + 4 Next i End Sub مرفق الملفان بعد التعديل و اضافه مفتاح لاستيراد البيانات فى ملف Data2 و يجب فتح ملف Data1 و المجال مفتوح لاستيراد مئات البيانات السلام عليكم Import Data.rar
alnoor_09 قام بنشر أغسطس 12, 2009 الكاتب قام بنشر أغسطس 12, 2009 أشكرك أخي وبارك الله فيك على المساعدة لكن الملف لا يعمل معي. أي عندما أضغط على زر إيستيراد يظهر اللون الأصفر على هذا الكود: For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER لا أدري أين الخلل. أرجو المساعدة وشكراً.
هادى محمد المامون سالم قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 (معدل) بسم الله الرحمن الرحيم لقد جربت الكود مره اخرى و هو يعمل بشكل جيدوعليك العمل على الملفات التى قمت بارفاقهاو التاكد من فتح ملف Data1 اولا , و اذا تكرر الخطا قم باستبدال كلمهٌُER برقم اخر سطر تريد استيراد بياناته من ملف Data1 و ليكن 1000 مثلا السلام عليكم تم تعديل أغسطس 12, 2009 بواسطه هادى محمد المامون سالم
alnoor_09 قام بنشر أغسطس 12, 2009 الكاتب قام بنشر أغسطس 12, 2009 أشكرك أخي الكريم على سعة صدرك أعتقد بأن المشكلة تكمن بمكتبة الأكواد برفرنس. ربما يكون عندي نقص في تعريف بعض اللرفرنس بس ما هي لا أعرف. هل لك أن ترشدني الى تعريف ما هو مهم من الرفرنس ولك جزيل الشكر.
هادى محمد المامون سالم قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 بسم الله الرحمن الرحيم جرب الملفات على جهاز كمبيوتر مختلف و اذا جدثت مشكله استبدل سطر المشكله For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER بالسطر For i = 2 To 1000 السلام عليكم
alnoor_09 قام بنشر أغسطس 15, 2009 الكاتب قام بنشر أغسطس 15, 2009 أشكرك أخي على مساعدتك وبارك الله فيك.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.