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

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

قام بنشر

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

=======

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

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

جرب هذا الكود

ضعه في زر أمر


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 يحدث الفروقات والاختلافات

قام بنشر

الأخ / ابراهيم أرجو توضيح ما تقصده بدقة داخل الملف

لأنه فى الملف المرفق العمود A خالى تماما من البيانات

قام بنشر

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

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

وسهله الفهم

بارك الله لك

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

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

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

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

بارك الله فيك

  • 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