اذهب الي المحتوي
أوفيسنا

(معدل) إستخراج تواريخ الموظف حسب الإسم المختار


الردود الموصى بها

نرجو الالتزام بقواعد المشاركة

=======

سيتم تعديل العنوان للدلالة

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

جرب هذا الكود

ضعه في زر أمر


Sub Abu_Ahmed()

Dim cl As Range

T = 7

For Each cl In Range("C2:C" & [C1000].End(xlUp).Row)

If cl = "مرعى" Then

Cells(2, T) = cl.Offset(0, -1)

T = T + 1

End If

Next

End Sub

رابط هذا التعليق
شارك

الاخ رجب

بارك الله فيك

وكن ممكن شرح الكود

Sub ragb()

[G2:AZ2].ClearContents

LR = Cells(Rows.Count, 3).End(xlUp).Row

مامعنى رقم 3 هنا

For Each cl In Range("C2:C" & LR)

If cl.Value = [f2] Then

Cells(2, [iV2].End(xlToLeft).Column + 1).Value = cl.Offset(0, -1).Value

ما معنى Cells(2, [iV2].

ما معنى -1

ما معنى +1

End If

Next

End Sub

وماذ لو اردت استخراج البيانات بدايه من الخليه A28

رابط هذا التعليق
شارك

شكرا للأساتذه الكرام " عبد الله المجرب ، رجب جاويش "

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

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

عمل اضافة فى الكود الخاص بالبحث فى التاريخ.rar

رابط هذا التعليق
شارك

أخى ابراهيم

رقم 3 تعنى العمود الثالث

([Cells(2, [iV2

معنى ذلك الخلية الموجود فى الصف الثانى والعمود IV

Cells(2, [iV2].End(xlToLeft).Column + 1).Value = cl.Offset(0, -1).Value

معنى -1 فى الكود أى الخلية الموجود فى العمود السابق

معنى +1 لكى يتم تحديد أول خلية فارغة بعد آخر خليه بها بيانات

رابط هذا التعليق
شارك

الاخ رجب

بارك الله فيك

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

وماذ لو اردت استخراج البيانات بدايه من الخليه A28

وبالنسبه لرقم 3 فمن الملاحظ عن تغيره الى رقم1 ا الى رقم 2 لايحدث تغير فى استخراج النتائج البحث عن رقم 3

ولكن اذا تم تغيره الى رقم 4 يحدث الفروقات والاختلافات

رابط هذا التعليق
شارك

الاخ رجب

بارك الله فيك

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

على مافهمت من شرح ان رقم 3 هو عمود البحث

وماذ لو اردت استخراج البيانات بدايه من الخليه A28

وبالنسبه لرقم 3 فمن الملاحظ عن تغيره الى رقم1 ا الى رقم 2 لايحدث تغير فى استخراج النتائج البحث عن رقم 3

ولكن اذا تم تغيره الى رقم 4 يحدث الفروقات والاختلافات

رابط هذا التعليق
شارك

أخى ابراهيم

رقم 3 أو رقم 2 المهم هو رقم عمود به بيانات

أما استخراج البيانات بدايه من الخليه A28

تفضل ما تريد

اريد كود او دالة لتنفيذ طلبى.rar

رابط هذا التعليق
شارك

الاخ رجب بارك الله فيك

فما اريده هو

عندما يتم الضغط على زر بحث نجد ان الناتج يظهر بدايه من الخليه G2

وانا اريده ان يظهر بدايه من الخليه A28

رابط هذا التعليق
شارك

تمام اخ رجب بارك الله فيك

ولكن فى نفس المضوع

كيف يمكن جعل ستخراج البيانات ان تكون عموديه

بمعنى الرقم الاول يكون فى الخليه A28

القم الثانى يكون فى A29

وهكذا

رابط هذا التعليق
شارك

الاخ رجب بارك الله فيك

اكواد فى غايه البساطه

وسهله الفهم

بارك الله لك

الاخ رجب لقد رفعت على المنتدى طلب باسم

كود لاضافه سطر فارغ

ارجو المشاكه فى هذا اذا كان

لديك الوقت والمعرفه

بارك الله فيك

رابط هذا التعليق
شارك

  • 1 month later...

شكرا جزيلا يا استاذنا الفاضل / رجب جاويش والله مش عارف اشكر ازاى من كتر فرحتى بالكود لاننى حاولت كثيرا ولم اقدر على عمله وخصوصا كما عملته حضرتك بدون وسيط ( اى نشخ من شيت 1 ) وهذا ما اريدة فعلا

ولكن للعلم بالشى على حد معرفتى عند عمل زر تشغيل الكود فى اى شيت يتم العمل وجربت هذا على اكواد كثيره ولكن فى هذا الكود زر شيت 2 هو الذى يعمل وعند عمل زر فى شيت 1 وربطه بالكود لا يعمل

ارجو من حضرتك عمل زر الكود فى شيت 1 وتوضيح السبب

وايضا الشكر كل الشكر للمهندس / طارق محمود

رابط هذا التعليق
شارك

أخى الفاضل / مرعى السيد

فى الملف المرفق

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

جرب الملف وأى تعديل تريده أبلغنى

إستخراج تواريخ الموظف حسب الإسم المختار طلب تعديل.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information