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

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




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





ضبط كود جلب البيانات بشرط وبين تاريخين فى ليست بوكس-وحل ظهور رسالة الخطأ

السلام عليكم اساتذتى الأحباء ارجو مساعدتى فى ضبط هذا الكود بعدم ظهور رسالة الخطا ولكم منى جزيل الشكر [code]PGJyIC8+DQo8Y ..



01-11-2018 07:45 مساء
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 288
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 155
 offline 

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


Private Sub CommandButton1_Click()
 Dim tarih1, tarih2 As Date: Dim ara As Range, LastRow As Long
    Dim s1 As Worksheet
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set s1 = Worksheets("P-1")
    If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "You need to add the beginning and end dates", vbCritical, ""
    Exit Sub
    End If
    If ComboBox1.Value = "" Then
    MsgBox "Please choose a product from drop-down list", vbDefaultButton1, ""
    Exit Sub
    End If
    
    Call uzat
    tarih1 = VBA.Format(TextBox1.Value, "dd.mm.yyyy")
    tarih2 = VBA.Format(TextBox2.Value, "dd.mm.yyyy")
   
    ListBox1.Clear
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "30;70;140;30;80;65;80;65;60"
    
    LastRow = s1.Range("B" & Rows.Count).End(xlUp).Row
    For Each ara In s1.Range("B2:B" & LastRow)
   If CLng(CDate(ara.Value)) >= CLng(CDate(tarih1)) And _
    CLng(CDate(ara.Value)) <= CLng(CDate(tarih2)) And _
    CStr(ara.Offset(0, 1).Value) = CStr(ComboBox1.Text) Then
ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 1) = VBA.Format(ara, "dd.mm.yyyy")
            ListBox1.List(ListBox1.ListCount - 1, 0) = ara.Offset(0, -1)
            ListBox1.List(ListBox1.ListCount - 1, 2) = ara.Offset(0, 1)
            ListBox1.List(ListBox1.ListCount - 1, 3) = ara.Offset(0, 2)
            ListBox1.List(ListBox1.ListCount - 1, 4) = ara.Offset(0, 3)
            ListBox1.List(ListBox1.ListCount - 1, 5) = VBA.Format(ara.Offset(0, 4), "#,##.00")
            ListBox1.List(ListBox1.ListCount - 1, 6) = ara.Offset(0, 5)
            ListBox1.List(ListBox1.ListCount - 1, 7) = VBA.Format(ara.Offset(0, 6), "#,##.00")
            ListBox1.List(ListBox1.ListCount - 1, 8) = ara.Offset(0, 7)
            
        End If
 Next ara
 
 
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
 Application.EnableEvents = True
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox1 = Empty: TextBox2 = Empty: ComboBox1 = Empty: ListBox1.Clear
UserForm1.Height = 107
End Sub

Sub uzat()
Dim x, d, yuk, mak As Integer
For x = 1 To 20
DoEvents
If E = 0 Then
d = d + 10
yuk = 242
End If
UserForm1.Height = yuk + d
Next
End Sub
Private Sub CommandButton4_Click()
Dim sat As Long, sut As Integer, s2 As Worksheet
Sheets("P-2").Range("A:H").ClearContents
    If ListBox1.ListCount = 0 Then
     MsgBox "There Aren't Data", vbExclamation, ""
     Exit Sub
    End If
    Set s2 = Sheets("P-2")
    sat = ListBox1.ListCount
    sut = ListBox1.ColumnCount
    s2.Range(s2.Cells(1, 1), s2.Cells(sat, sut)) = ListBox1.List
    MsgBox "Data Were Copied."
 End Sub

Private Sub Date1_Click()
Call SF_DatePick.DatePickinCtl(Me.TextBox1)
End Sub
Private Sub Date2_Click()
Call SF_DatePick.DatePickinCtl(Me.TextBox2)
End Sub

Private Sub Label7_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim x, a, b As Long, c As Variant
Application.ScreenUpdating = False
'Unique Records
For x = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C2:C" & x), Cells(x, 3)) = 1 Then
ComboBox1.AddItem Cells(x, 3).Value
End If
Next
'Alphabetic Order
For a = 0 To ComboBox1.ListCount - 1
  For b = a To ComboBox1.ListCount - 1
        If ComboBox1.List(b) < ComboBox1.List(a) Then
c = ComboBox1.List(a)
    ComboBox1.List(a) = ComboBox1.List(b)
    ComboBox1.List(b) = c
       End If
  Next
  Next
         
UserForm1.Height = 107
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
    UserForm1.Left = 100
    UserForm1.Top = 20
End Sub

\"icon\" filtering_between_two_dates_userform.rar
 
 
  filtering_between_two_dates_userform.rar   تحميل rar مرات التحميل :(0)
الحجم :(98.303) KB







01-11-2018 09:28 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 614
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2966
الاعجاب : 952
 offline 
look/images/icons/i1.gif ضبط كود جلب البيانات بشرط وبين تاريخين فى ليست بوكس-وحل ظهور رسالة الخطأ
تفضل لقد تم الحل من قبل استاذنا الكبير سليم له منا كل المحبة والإحترام وجزاه الله عنا كل خير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  filteringby_user.rar   تحميل rar مرات التحميل :(5)
الحجم :(101.695) KB


أثارت هذه المشاركة إعجاب: أحمد يوسف، YasserKhalil،


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


01-11-2018 09:34 مساء
مشاهدة مشاركة منفردة [2]
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 288
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 155
 offline 
look/images/icons/i1.gif ضبط كود جلب البيانات بشرط وبين تاريخين فى ليست بوكس-وحل ظهور رسالة الخطأ
أحسنت استاذ علي بارك الله فيك وجزاك الله كل خير وزادك الله من فضله وكل الشكر والمحبة موصولة لأستاذنا الكبير سليم جزاه الله كل خير على ما يقدمه من مساعدات جليلة بارك الله فيه






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود جلب البيانات بين تاريخين وبشرط أحمد يوسف
5 77 أحمد يوسف
كود لجلب البيانات من ملفين للثالث بشرطين أو ثلاثة samycalls2020
18 664 YasserKhalil

الكلمات الدلالية
البيانات ، بشرط ، وبين ، تاريخين ، ليست ، بوكس-وحل ، ظهور ، رسالة ، الخطأ ،


 







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



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

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