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

[m_127899]

السلام عليكم

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

______________________________________.rar

[ابو اسامة العينبوسي]

السلام عليكم

هل الترحيل يتم بصوره الية بمجرد فتح الملف في اليوم التالى ؟

ام بزر امر ؟

[m_127899]

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

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

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

[m_127899]

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

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

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

[m_127899]

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

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

______________________________________.rar

[m_127899]

السلام عليكم

للرفع

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

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

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

[m_127899]

للرفع

[m_127899]

للرفع :') :') :')

[m_127899]

Help me ... Please

Aidez-moi ... S'il vous plaît

मेरी मदद करो ... कृपया

Yardım et bana ... Lütfen

[احمدزمان]

اخي الفاضل

السلام عليكم

شاهد المرفق

هل هذا المطلوب

__________.rar

[m_127899]

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

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

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

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

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

[احمدزمان]

السلام عليكم

اخي الكريم

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

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

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

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

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

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

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

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

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

[aymanbadr90]

بارك الله فيكم

[m_127899]

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

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

تم تعديل يوليو 6, 2009 بواسطه m_127899

[m_127899]

:signthankspin:

[احمدزمان]

السلام عليكم

سبحان الذي علمنا

سبحان الذي فهمنا

______________________________________.rar

[Tamer Gamal]

ايه الحلاوة دى

رااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااائع

:fff:

[m_127899]

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

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

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

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

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

[m_127899]

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

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