اضافة بيانات جديدة

[ابو عبدالرحمن البغدادي]

السلام عليكم

ممكن اضافة بيانات جديدة الى شيت (التخصص) كما مبين بالملف المرفق الموضح فيه البيانات الجديدة مع الاشارة بان البيانات موجودة في شيت البيانات الرئيسية

ولكم جزيل الشكر والاحترام والعرفان

السلام عليكم

 

اضافة بيانات جديدة.rar

[الـعيدروس]

جرب هذا الكود وشغله من ورقة التخصص

اتمني يكون مطلبك

Sub Rtrn_S()
Dim Ac, Rw, LR, r
Dim Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = ورقة1: Ac = "B1"
For r = 2 To Sh.Cells(Rows.Count, 7).End(xlUp).Row
LR = Cells(Rows.Count, 1).End(xlUp).Row + 1
 With My_Rn
     If Sh.Cells(r, 15) = Range(Ac) Then
        Rw = r
        Sh.Range(Sh.Cells(Rw, 1), Sh.Cells(Rw, 49)).SpecialCells(xlCellTypeVisible).Copy
        Cells(LR, 1).PasteSpecial xlPasteValues
     End If
 End With
Next

 

[ابو عبدالرحمن البغدادي]

السلام عليكم

جزيت خيرا

الله يرضى عليك - اكو مشاكل - يرجى اضافة الكود - ومشاهدة النتيجة

 

 

[الـعيدروس]

تفضل

اضافة بيانات جديدة1.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم

اسف على الازعاج

عندما اضغط على زر البحث (يقول : قد يكون الماكرو غير متوفر ) ولم احصل على نتيجة

ممكن ارشادي شنو السبب

حفظكم الله

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

أخي الكريم أبو عبد الرحمن البغدادي .. إعمل كليك يمين فوق زر الأمر .. إضغط فوق Rtrn_s واتبع مثلما في الصورة :

 

 

 

 

تم تعديل أكتوبر 12, 2015 بواسطه عبد العزيز البسكري

[ابو عبدالرحمن البغدادي]

السلام عليكم

نعم تبعت الخطوات - ظهرت استدعاء البيانات -ولكن كلما استدعيت بيانات جديدة تأتي بعد البيانات القديمة - المطلوب قائمة جديدة خالية من البيانات القديمة من اجل طباعة التخصص المطلوب ، النتيجة اذا استدعيت الاسلامية وبعدين استدعيت علوم - العلوم والاسلامية ايصيرون معاً 

لطفا حل المشكلة - جزيتم خيرا

[الـعيدروس]

تفضل اخي اضغط الزر الذي لديك في الورقه

اضافة بيانات جديدة2.rar

[ابو عبدالرحمن البغدادي]

تمام - احسنت - جزيت خيرا - عمل ممتاز