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

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


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





مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل

السلام عليكم لدي هذا الكود يقوم بترحيل التواريخ الى صفحات الخاصة بالتورايخ مع العلم الكود لم يعد يعمل ..



10-05-2020 11:03 صباحا
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام   عليكم 
لدي  هذا  الكود   يقوم بترحيل  التواريخ  الى صفحات  الخاصة بالتورايخ  مع  العلم  الكود  لم  يعد  يعمل   كان  يعمل  في  السابق   يشتغل  الكود  دون  اي  اخطاء  ولكن  لا يرحل  اي  بيانات     لا ادري  ما  المشكلة   



Sub SplitMonths()
    Dim rData As Range
    Dim iX As Integer
 
    With Sheets("SHEET1")
        ''/// check if AutoFilter is on, if not swith on
        If Not .AutoFilterMode Then .Range("A1").AutoFilter
        ''/// add range to filter
        Set rData = .Cells(1).CurrentRegion
        On Error Resume Next
        For iX = 1 To 12
            rData.AutoFilter Field:=1, Operator:= _
                             xlFilterValues, Criteria2:=Array(1, iX & "/1/2020")
            '/// copy filtered data to destination sheet
            Sheets(MonthName(iX)).Cells.Clear
            .AutoFilter.Range.Copy Sheets(MonthName(iX)).Range("A1")
        Next iX
        .ShowAllData
        On Error GoTo 0
    End With
End Sub
 
 
  Month (1).xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(22.074) KB


10-05-2020 02:56 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
جرب هذه الاكواد

Sub FilterMonth()

Dim StartMonth  As String
Dim StartYear As String

Dim StartDate As Date
Dim EndDate As Date

Dim Criterea_1 As String
Dim Criterea_2 As String

On Error GoTo End_Me


StartMonth = SHEET1.Range("H2")
StartYear = SHEET1.Range("I2")

If StartMonth = "" Then
StartDate = DateSerial(StartYear, 1, 1)
EndDate = DateSerial(StartYear + 1, 1, 1)
Else
StartDate = DateSerial(StartYear, StartMonth, 1)
EndDate = DateSerial(StartYear, StartMonth + 1, 1) - 1
End If

Criterea_1 = ">=" & Format(StartDate, "mm/dd/yyyy")
Criterea_2 = "<=" & Format(EndDate, "mm/dd/yyyy")

SHEET1.Range("A3").AutoFilter Field:=1, Criteria1:=Criterea_1, _
Operator:=xlAnd, Criteria2:=Criterea_2

On Error GoTo 0
Exit Sub
End_Me:
MsgBox "There is no data"

End Sub
'++++++++++++++++++++++
Sub all_months()
Dim i%
  For i = 1 To 12
    Sheets("SHEET1").Range("H2") = i
    FilterMonth
'    Type Her your code to copy the data
  Next
End Sub
'+++++++++++++++++++++++++++++++++
Sub how_all()
If Sheets("SHEET1").AutoFilterMode Then
Sheets("SHEET1").Range("a3").AutoFilter
End If
End Sub
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
الملف مرفق
 
 
  Filter_by_Months.rar   تحميل rar مرات التحميل :(2)
الحجم :(28.174) KB


10-05-2020 04:40 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
بارك الله فيك أخي العزيز سليم ..أحسنت أحسن الله إليك

10-05-2020 04:52 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
استاد  سليم  بارك  الله فيك  على ردك وعطءك  المستمر  ولكن  يبدو انك اسات  الفهم   ليست  العملية بالفلترة لشهر  الية  عمل  الملف  هو   يتم  ترحيل  البيانات الت  تخص  شهر  5  الى الورقة  المسماة  MAY والبيانات  التي تخص شهر  6   ترحل  الى الورقة JUNE    كما   لو  بالامكان عدم  استبدال  الكود  الخاص  بي   لانه  سريع  وقصير  وفعال  اريد  ان  اعرف  اين  المشكلة التي تسببت بعدم  تشغيله 

10-05-2020 05:53 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
حاول إزالة جملة On Error Resume Next لتعرف أين الخطأ الذي يحدث معك وأين يحدث بالضبط وبدلاً من الهروب من الخطأ حاول معالجة الخطأ ومعرفة سبب الخطأ

10-05-2020 06:57 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
اخي  ياسر  لقد  قمت   بذلك  واعطاني  خطا  في  هذا  السطر
subs c r i p t ou  of range 
Sheets(MonthName(iX)).Cells.Clear
انا متاكد  من اسماء  الاشهر  صحيحة في   اوراق  العمل 
 والمشكلة  انه  يعمل  مع  احد  الاعضاء  في  احد   المنتديات  وقالي  لي  يعمل  معه  تمام   لم  اعد   استطيع  حل  هذا   اللغز 

10-05-2020 08:38 مساء
مشاهدة مشاركة منفردة [6]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2179
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif مشكلة كود ترحيل تواريخ كان يعمل اصبح لا يعمل
السلام عليكم ورحمة الله
اجعل اسماء الشيتات بالشهور باللغة العربية و سيعمل معك الكود بسهولة




الكلمات الدلالية
تواريخ ، ترحيل ، مشكلة ، يعمل ، اصبح ، يعمل ،


 










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

الساعة الآن 07:26 صباحا