أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

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




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل علي كود ترحيل بين تاريخين بشرط

السلام عليكم اتمني تعديل الكود التالي وهو لترحيل بيانات بين تاريخين بشرط حيث انه يعمل ولكن بصورة غير صحيحة عند اختلاف ال ..



07-01-2019 11:03 صباحا
yousef_kaf
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1908
المشاركات : 90
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 2-9-1989
يتابعهم : 9
يتابعونه : 2
قوة السمعة : 118
الاعجاب : 46
 offline 

السلام عليكم
اتمني تعديل الكود التالي وهو لترحيل بيانات بين تاريخين بشرط
حيث انه يعمل ولكن بصورة غير صحيحة عند اختلاف التواريخ
 
 
 
  سيارات الاخيرررة.rar   تحميل rar مرات التحميل :(4)
الحجم :(45.487) KB







07-01-2019 11:52 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 850
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 44
قوة السمعة : 3872
الاعجاب : 1288
 offline 
look/images/icons/i1.gif تعديل علي كود ترحيل بين تاريخين بشرط
 
 
  Search Between Two Dates.rar   تحميل rar مرات التحميل :(10)
الحجم :(34.504) KB


أثارت هذه المشاركة إعجاب: yousef_kaf،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


07-01-2019 12:11 مساء
مشاهدة مشاركة منفردة [2]
ابوالمجد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2018
رقم العضوية : 10538
المشاركات : 31
الجنس : ذكر
تاريخ الميلاد : 21-9-1974
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 110
الاعجاب : 45
 offline 
look/images/icons/i1.gif تعديل علي كود ترحيل بين تاريخين بشرط
جرب الكود بالشكل ده
Private Sub CommandButton2_Click()
Dim LastR As Long
Dim SText As String
Dim StDate As Date
Dim EndDate As Date
Dim LastR1 As Long
Dim LastR2 As Long
'''''''''''''''''''''''
If Sheets("Re_expences").Range("e2") = "" Or Sheets("Re_expences").Range("b1") = "" Or Sheets("Re_expences").Range("b2") = "" Then
MsgBox "un complete data"
Exit Sub: End If
''''''''''''''''''''''''
Sheets("Re_expences").Rows("8:1000").Delete
'''''''''''''''''''''''
LastR2 = Sheets("expences").Cells(Rows.Count, "b").End(xlUp).Row + 1
If Application.WorksheetFunction.CountIf(Sheets("expences").Range("b3:b" & LastR2), Sheets("Re_expences").Range("e2")) > 0 Then
''''''''''''''''''''''''
Application.ScreenUpdating = False
'''''''''''''''''''''''''''''''''''
SText = Sheets("Re_expences").Range("e2")
StDate = Sheets("Re_expences").Range("b1")
EndDate = Sheets("Re_expences").Range("b2")
Sheets("expences").Activate
LastR1 = Sheets("expences").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("expences").Range("A3:e" & LastR1).AutoFilter Field:=2, Criteria1:=SText
Sheets("expences").Range("A3:e" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "mm/dd/yy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(EndDate, "mm/dd/yy")
Sheets("expences").Range("A4:e" & LastR1 + 5).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Re_expences").Activate
Sheets("Re_expences").Range("A8").PasteSpecial
[C6] = Evaluate("Sum(C8:C1000)")
Sheets("expences").Range("A3:e3").AutoFilter
Sheets("Re_expences").Range("A8").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = True
MsgBox "DONE"
Else
MsgBox "NO DATA"
Application.ScreenUpdating = True
Exit Sub
End If

End Sub

أثارت هذه المشاركة إعجاب: yousef_kaf، YasserKhalil،




07-01-2019 01:24 مساء
مشاهدة مشاركة منفردة [3]
yousef_kaf
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1908
المشاركات : 90
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 2-9-1989
يتابعهم : 9
يتابعونه : 2
قوة السمعة : 118
الاعجاب : 46
 offline 
look/images/icons/i1.gif تعديل علي كود ترحيل بين تاريخين بشرط
الاخوة الكرام
شكرا من الاعماق للحلول المتنوعة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل وفصل الناجحين والراسبين بالمعادلات أحمد يوسف
23 805 Eslam Abdullah
تعديل كود ترحيل اعمدة معينة بناءا على شرط بين تاريخين أحمد يوسف
10 367 YasserKhalil
ترحيل مده بين تاريخين بشكل رمز E ahmed moh
46 2515 YasserKhalil

الكلمات الدلالية
تعديل ، ترحيل ، تاريخين ، بشرط ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 05:45 مساء

أعلن هنا
أعلن هنا
أعلن هنا