ممككن التعديل على الكود

[alma_fandi]

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

ممكن  حد يشوف وين الخطا بالكود

المطلوب يبحث عن الاسماء  يبن بتاريخين

عملت كومبوبوكس 3 بحتوي على الاجراءات

  M ( الاجراء)الاسماء  بالعمود 

(تاريخ المتابعة j)والتاريخ بالعمود

alma_atend.rar

[Ali Mohamed Ali]

وعليكم السلام

لو ممكن رفع الملف مرة اخرى فهناك مشكلة فى تحميله

بارك الله فيك

[alma_fandi]

alma_atend.rar

 

 

تم تعديل مايو 26, 2018 بواسطه alma_fandi

[alma_fandi]

Private Sub DTPicker2_CloseUp()
Me.ListBox1.Clear
Dim i As Long

For i = 2 To Sheet1.Range("j0000").End(xlUp).Offset(1, 0).Row
If Sheet1.Cells(i, "m").Value = Me.ComboBox1.Value And Sheet1.Cells(i, "j").Value >= _
Me.DTPicker1.Value And Sheet1.Cells(i, "a").Value <= Me.DTPicker2.Value Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For x = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, x) = Sheet1.Cells(i, x + 1).Value

Next x
End If
Next i
End Sub

هلاء هاد  الكود رفع ضغطي

حصلته من اليوتيوب  https://www.youtube.com/watch?v=kpZkxToQfrk

ما اشتغل   معي ( ممكن  المصدر تاع الكومبوكس خطا )

ممكن حد يشوف لى الموضوع ؟ 

 

 

تم تعديل مايو 26, 2018 بواسطه alma_fandi

[alma_fandi]

    او هاد الزد حصلته من المنتدى هاد

Private Sub ComboBox1_Change()
Dim MyValue
Dim ib As Boolean
Dim R As Integer, i As Integer, ii As Integer
Dim dt1 As Date, dt2 As Date
Dim LastRow As Integer

LastRow = Range("h65536").End(xlUp).Row
Me.ListFind.Clear


If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(Range("j2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)
If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(Range("j2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)
'-------------------------
With Range("A1")
    For R = 2 To LastRow
        Select Case .Cells(R, 3).Value2: Case dt1 To dt2
            If Len(Trim(Me.ComboBox1)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.ComboBox1) Else ib = True
            If ib Then
                Me.ListFind.AddItem
                For i = 1 To ContColmn
                    If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _
                    MyValue = .Cells(R, i).Value2
                    Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue
                Next
       
            End If
        End Select
    Next
End With
End Sub

هاد الكود انا حصلته من المنتدى   هون

عدلت عليه بس بدون فايدة

form2.xls

[Hamdi Edlbi-khalf]

Just now, alma_fandi said:

Private Sub DTPicker2_CloseUp() Me.ListBox1.Clear Dim i As Long For i = 2 To Sheet1.Range("j0000").End(xlUp).Offset(1, 0).Row If Sheet1.Cells(i, "m").Value = Me.ComboBox1.Value And Sheet1.Cells(i, "j").Value >= _ Me.DTPicker1.Value And Sheet1.Cells(i, "a").Value <= Me.DTPicker2.Value Then Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value For x = 1 To 6 Me.ListBox1.List(ListBox1.ListCount - 1, x) = Sheet1.Cells(i, x + 1).Value Next x End If Next i End Sub

مبدئياً الكود يحتوي تسميات غير موجودة في البرنامج

أعتقد أنه بحاجة إلى إعادة كتابة  .

[alma_fandi]

جربت كثير _____ البرنامج مو كوبي من النت  انا تابعت خطوة بخطوة  وعملت صفحة من البداية

7 hours ago, Khalf said:

مبدئياً الكود يحتوي تسميات غير موجودة في البرنامج

أعتقد أنه بحاجة إلى إعادة كتابة  .

 

مليت من البرنامج كله  الصراحة من  شهر وانا بفورمين

شفت  37  ساعه  يوتيوب

ودخلت 3 منتديات  و2  منتديات  اجنبية

الكل بدخل وبطلع 

رح احاول من جديد

اشكرك  جدا

 

 

 

[Hamdi Edlbi-khalf]

14 hours ago, alma_fandi said:

ن

شفت  37  ساعه  يوتيوب

ودخلت 3 منتديات  و2  منتديات  اجنبية

الكل بدخل وبطلع 

رح احاول من جديد

اشكرك  جدا

لا عليك فالطريق ليست قصيرة

و بالنسبة لي فبدايتي مع الإكسل المتقدم تعود الى سبعة أشهر خلت 

و لا مجال لذكر السبب الذي دفعني لذلك .

و قد شاهدت عشرات اليوتيوبات و تصفحت الكثير من المواقع .

هذه مشكلة التعليم الذاتي فالجهد المبذول و الوقت المصروف يفوق أضعافاً مضاعفة ما يمكن أن يبذل في أي معهد .

[alma_fandi]

9 hours ago, Khalf said:

لا عليك فالطريق ليست قصيرة 

و بالنسبة لي فبدايتي مع الإكسل المتقدم تعود الى سبعة أشهر خلت 

و لا مجال لذكر السبب الذي دفعني لذلك .

و قد شاهدت عشرات اليوتيوبات و تصفحت الكثير من المواقع .

هذه مشكلة التعليم الذاتي فالجهد المبذول و الوقت المصروف يفوق أضعافاً مضاعفة ما يمكن أن يبذل في أي معهد .

الفكرة صديقي
انا دخلت منتديات  اجنبية والصراحة شفت منهم الافضل من عنا

مشرف بيدخل بيحكيلك شو تعمل هون المشرف ما بعرف اسمه 

عنا احتكار للمعلومة

اذا انا مهتمة بموضوع  فلان  بشارك مو مهتمة بطلع  بعوني وبهرب

انا لما بنزل بوست وبحكي هاد فيديو لحدن عمله  ومو راضي يزبط معي

بكون عاطية  حلول بس مو عرفانة خطاي وين 

اشي بحزن انه  المنتديات الاجنبية افضل من  عنا وما في دين  بيجمعهم  ولا  لغة

بتشوف كل اللغات  بترد عليك

شوف كل مواضيعي هما اتنين  يلي  بحكو وانا بحكي لهم  شكرا

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

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

خليني اشتري برنامج  ع الفيجوال  بيسك ب100دولار  وريح راسي  

كل البرمجة اكواد معك كود بتشتغل ما معك بتضل  تطلب من هاد وهاد  وبتعاملو معك كانك من كفار  قريش

كانه حدن حاكيلهم انا سبب الانحباس الحراري

لو  المشرف حاب يعطيني بلوك مانى نددمانة

بالنهاية ما بشكر  الا

ali mohamed ali

ahmedkamelelsayed0

am3h80

بشكرك 

Khalf

 

حكيت كتير ....بعتذر عن اسلوبي

سلام