اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نقل بينانات من جدول إلى آخر بشروط معينة


m_127899

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

السلام عليكم

هل هناك طريقة غير الدالة الشرطية لنقل بيانات من جدول في الورقة الأولى تتغير بياناته يوميا إلى جدول آخر في الورقة الثانية

______________________________________.rar

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

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل أبو أسامة غفر الله ذنبك وأدخلك جنته

لو بزر أمر أفضل ( لتعديل البيانات أولا والتأكد منها ثم يتم ترحيلها )

بارك الله بك أستاذي

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

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل أبو أسامة غفر الله ذنبك وأدخلك جنته

كيف نعمل على تثبيت القيمة في الخلية ( ولا تمسح عند الإنتقال إلى الخلية التالية في اليوم التالي ) فيما لو إستخدمنا الدالة الشرطية

بارك الله بك أستاذي 

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

أستاذي الفاضل أبو أسامة السلام عليكم ورحمة الله وبركاته

سؤال آخر هل لو بدلنا العمود صف والصف عمود يكون أسهل التعامل مع الجدول كما في الملف المرفق

______________________________________.rar

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

السلام عليكم

للرفع

أستاذي الفاضل أبو أسامة السلام عليكم ورحمة الله وبركاته

(كيف نعمل على تثبيت القيمة في الخلية ( ولا تمسح عند الإنتقال إلى الخلية التالية في اليوم التالي ) فيما لو إستخدمنا الدالة الشرطية )

بارك الله بك أستاذي

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

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

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

أستاذي الفاضل

( كيف نعمل على تثبيت القيم في الخلايا ( ولا تمسح عند الإنتقال إلى الخلية التالية في اليوم التالي ) )

لا حظ أستاذي أنني غيرت التاريخ إلى ( 7/ 7 ) ولكن بيانات ( 6/6) مسحت تلقائي

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

السلام عليكم

اخي الكريم

هذه سوف تكون الخطوة التالية

ولكن سوف تكون العملية بواسطة كوود VB

و فكرتها كالتالي

عند اغلاف الملف سوف يطلب منك هل تريد تثبيت قيم اليوم الحالي

اذاكانت الإجابة لا سوف يتم حفظ الملف كماهو

و اذاكانت الإجابة نعم

سوف يبحث الكود عن التاريخ المطابق للتاريخ المسجل في صفحة 1 ويأخذ هذا السطر وينسخة نسخ خاص بالقيم فقط

وبذلك تختفي الدوال لهذا اليوم وتبقى الحروف فقط

اذا كان هذا ماتريد آمل الإجابة لكي يتم العمل على ذلك

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

أستاذي احمد يعقوب

نععععععععععععععععععععععععععععععععععععععععععععععععععععععععععععععععععععم هذا هو المطلوب بارك الله بك

تم تعديل بواسطه m_127899
رابط هذا التعليق
شارك

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

أستاذنا العزيز أحمد يعقوب أعزك الله وأكرمك ورفع شأنك :clapping:

هل هذا الكود فقط هو المستخدم

Sub ayay()

Sheets(2).Select
RR = ActiveSheet.UsedRange.Rows.Count
For R = 5 To RR
If Cells(R, 1).Value = Range("DAYTO").Value Then
For L = 2 To 101
Cells(R, L) = Cells(R, L).Text
Next L
GoTo 1
End If
Next R



1 End Sub
مع المعادلة
=IF($A193=DAYTO;INDEX(Case;MATCH(B$4;EmNam;0);1);"")

..... أم أنه هناك كودات محمية ومخفية ؟ !

الفكرة صحيحة 100% بارك الله بك وعوضك بالجنة عما بذلته من جهد أكرر شكري وامتناني لك أخي الفاضل جزاك الله كل خير

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

السلام عليكم

اخي تامر جمال

شكرا لك

اخي M127899

لا يوجد شيء مخفي

يوجد الكود التالي في THES WOORKBOK

Private Sub Workbook_BeforeClose(Cancel As Boolean)
QQ = MsgBox("هل تريد تثبيت قيم الغياب للتاريخ المحدد", vbYesNo, "سوف يتم اغلاق الملف")
If QQ = vbYes Then
Application.Run "ayay"
End If
    ActiveWorkbook.Save
        Application.Quit
End Sub

مع التحية و اتقدير

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

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