تعديل على كود جلب المعلومات من صفحة اخرى ×

[الرســـــمي]

السلام عليكم 

ارجو النظر الى المرفق اذا امكن عمل تعديل تهائي على الملف حيث اني في المرحلة الاخيرة

السلام عليكم
1 اذا امكن عمل كود في حال تم ادخال اي بيانات في العامود 10A تظهر البيانات في الصف المقابل لة
مثلا لو تم ادخال بيانات في الخلية A10 تظهر البيانات في B10 و C10 و D10

2
ازالة زر المايكرو وجعل البيانات تاتي بشكل اتوماتيكي بدون الظغط على الزر في حال وضع اي بيانات في خلية جلب المعلومات

 

 

شكرا لكم يا اخوان ورزقكم الله من واسع فضلة

test.rar

[الرســـــمي]

اي مساعدة ياشباب  

 

شكرا 

[ياسر خليل أبو البراء]

يرجى رفع الملف مرة أخرى ..

[الرســـــمي]

 

تم الرفع شكرا

 

 

test (1).rar

تم تعديل يناير 26, 2017 بواسطه الرســـــمي

[على حسن]

هل تريد نسخ للعمو a فى العمودين b ,c,d فقط

ام طابك شئ اخر

[الرســـــمي]

نعم

 

اي بيايانات في اي خلية في كل العامود A  تجلب البيانات في الاعمدة b ,c,d   المقابلها و ايضا اذا امكن في حال ظغط رقم غير موجود تنمسح البيانات

 

ايضا ازالة زر المايكرو وجعل البيانات تاتي بشكل مباشر بدون الظغط على اي زر

 

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

 

تم تعديل يناير 26, 2017 بواسطه الرســـــمي

[محمود_الشريف]

أخى الكريم 

لآن الملف لا يفتح معى

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A3:A200").Copy
Range("B3:D200").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

وتقبل منى وافر الاحترام والتقدير

 

[الرســـــمي]

لم يعمل الكود

 

ارجو جزيت خيرا ان تنظر الى الملف مرة اخرى  المرفق اسفل هذا الرد

1- عند اي كتابة اي بيايانات في اي خلية في كل العامود A  تجلب البيانات في الاعمدة b ,c,d   المقابلها و ايضا اذا امكن في حال ظغط رقم غير موجود تنمسح البيانات

 

2- ازالة زر المايكرو وجعل البيانات تاتي بشكل مباشر بدون الظغط على اي زر

 

test (1).rar

[محمود_الشريف]

أخى الكريم الكود يعمل بشكل ممتاز

وبالمرفقات الملف

 

 

تم اضافة الكود وحذف الزر.rar

[الرســـــمي]

 

اعتذر اخي الكريم لكن ليس هذا ما اقصدة  واعتقد اني ما وفقت بالشرح ,الذي اقصدة هو 

1- عند اي كتابة اي بيانات في اي خلية في كل العامود A  تجلب البيانات من الاعمدة b ,c,d من الصفحة DATA الى الصفحة الرئيسية  b ,c,d 

 

مثال 

اذا وضعت اي رقم في الصفحة "الرئيسية"  خلية "A10" يستورد البيانات من ورقة عمل "DATA"   الى  ورقة عمل"الرئيسية" B10,C10,D10

 

يوجد  مثال واضح في المرفق

جزاك الله خير وجعل علمك نافع للمسلمين

 

 

Test (2).rar

[ياسر خليل أبو البراء]

جرب الكود في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Column = 1 Then
        Dim sh As Worksheet, Found
        Set sh = Sheets("DATA")
        
        Application.ScreenUpdating = False
        Application.EnableEvents = False
            On Error GoTo Skipper
            Found = Application.Match(Target.Value, sh.Columns(1), 0)
            Target.Resize(1, 4).Value = sh.Cells(Found, 1).Resize(1, 4).Value
Skipper:
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

 

[الرســـــمي]

يا شيخ روح الله يوفقك ويسهل امرك انت ومحمود شكرالكم جميعا كذا تمام