طلب إضافة كومبوبكس لتعديل على البيانات من خلال كومبوبكس

[محمد عبدالسلام]

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

 المرجو  مساعدتي في كود لتعديل في شيت 1 عمود B اريد عمل الكومبوبكس في يوزر فورم  لتعديل في شيت 1 من خلال الكومبوبكس عمل زر امر لما اقوم بتحديد سطر من الليست بوكس واختار نقدي من الكومبوبكس  وضغط على زر يتم تعديل من نقدي الااجل اوالعكس

من لجل الانقدي

فاتورة1(1).xlsm

[الـعيدروس]

السلام عليكم

تفضل بعد اختيار نوع الفاتورة من ComboBox

انقر دبل كليك على النتيجة في ListBox

 

فاتورة3 .xlsm

تم تعديل أكتوبر 27, 2019 بواسطه الـعيدروس

[محمد عبدالسلام]

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

لما اقوم بي اضافة اسم في ComboBox2  واختيار نوع الفاتورة من ComboBox1 وانقر دبل كليك على النتيجة في ListBox

يظهر لي هذا الخطأ

2009.xlsm

 

2009.xlsm

 

تم تعديل أكتوبر 27, 2019 بواسطه محمد عبدالسلام

[الـعيدروس]

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

شاهد التعديل فقط على اي حدث تستدعي فيه الـ ListBox

 

2009.xlsm

تم تعديل أكتوبر 27, 2019 بواسطه الـعيدروس

[محمد عبدالسلام]

رائع يا اخي جزاك الله خيرا الله يحفظك

اسف اخي على طلباتي الكترا

اريد الما اكتب حرف فيComboBox1 تاتم الفلترة علىالااسم كمتال حرف س يتم فلترة على حرف س 

[الـعيدروس]

السلام عليكم

جرب المرفق هل هذا ماتريد

2009 2.xlsm

[محمد عبدالسلام]

اخي الكريم جزاك الله خير على الاهتمام بالموضوع واسالوا الله لك الفردوس الاعلى

اخي لقد واجهتني مشكلة أخرى يوجد في الملف الااصلي لدي كود يقوم بي اخفاء اسماء الشيتات ولقد قومت بي اضافة الكود في الملف

عندما اقوم بظهارالفورم من شيت 1واقوم بي البحت من خلال.TextBox1.يتم البحت بشكل طبيعي وعندما يتم اظهار الفورم من شيت اخر بمجرد اكتب حرف في TextBox1 تختافي البيانات من الليست بوكس

2009 2(3).xlsm

 

تم تعديل أكتوبر 27, 2019 بواسطه محمد عبدالسلام

[الـعيدروس]

جربت من عندي لامشكلة

احتمال في اشكاليه في ملفك الاصلي 

لمدى البحث او ماشابه عموما حسب ضني

استبدل هذا الكود بالموجود في ملفك الاصلي

Public Sub Fltr()
Dim Sh As Worksheet
    With My_Rnge
        Set Sh = Sheets("Sheet1")
        For Each R In Sh.Range("a4:a" & Split(Sh.UsedRange.Address, "$")(4))
            If R <> "" Then
             If My_Rnge Is Nothing Then
                Set My_Rnge = R
                Else
                Set My_Rnge = Union(My_Rnge, R)
             End If
            End If
        Next
    End With
    Filtr_My ""
End Sub

 

[محمد عبدالسلام]

المشكلة لما تكون  اسماء الشيتات مختافية وعندما يتم اظهار الفورم من شيت اخر الى شيت1

شاهد الفيديو

اخي الكريم لقد تم تعديل رابط الفيديو

https://youtu.be/ASVtR4tIIgc

تم تعديل أكتوبر 27, 2019 بواسطه محمد عبدالسلام

[الـعيدروس]

روابط اليوتيوب يظهر الفيديو خاص غير متاح

[محمد عبدالسلام]

اخي الكريم لقد تم تعديل رابط الفيديو

https://youtu.be/ASVtR4tIIgc

[حسين مامون]

بعد اذن استاد الـعيدروس 

قم بتعديل الكود في حدث textbox1

Private Sub TextBox1_Change()
On Error GoTo 1
Dim ws As Worksheet: Set ws = Sheets("sheet1")

Dim x, c
Application.ScreenUpdating = False
ListBox1.Clear
For Each x In ws.Range("a4:a100000")
c = InStr(x, TextBox1.Value)
If c > 0 Then
ListBox1.AddItem x
With Me.ListBox1
    .ColumnCount = 2
    .List(i, 0) = x
    .List(i, 1) = x.Offset(0, 1)
    .List(i, 3) = x.Offset(0, 1).Address
    i = i + 1
End With
End If
Next x
Application.ScreenUpdating = True
1: End Sub

 

[محمد عبدالسلام]

جزاكم الله خير واسالوا الله لكم الفردوس الاعلى

مازالت المشكلة قائمة عند البحت من تكست بوكس لما تكون  اسماء الشيتات مختافية ويتم اظهار الفورم  من شيت  invoice

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

 

 

 

 

 

[الـعيدروس]

السلام عليكم

جرب هذا التعديل 

 

2009(3).xlsm

[حسين مامون]

اخي الكريم

 ربما تنفذ الكود من شيت اخر غير ش1يسبب هذا

 غير كلمة select ب activateوجرل

ان لم ينجح هذا امسح هذا السطر  وجرب

جرب هذا العمل ان اعجبك نستمر في الباقي ان شاء الله

ولكن هناك تغيير في شكل الفورم  واضافات اخرى ستكتشفها ان شاء الله

 

back.rar

[محمد عبدالسلام]

اخي الكريم

رائع والله اخي حسين مامون عمل رائع جدا جزاك الله خيرا زادك الله علما وخلقا ورفعه

back.rar

 

 

back.rar

تم تعديل أكتوبر 29, 2019 بواسطه محمد عبدالسلام

[حسين مامون]

نعم يمكن هي اشارة فقط لو اتفتحت اكثر من ملف ليتعامل مع هذا المسمى "فاتورة"

احذف الاجزاء المحاطة بالاحمر لو اردة ولكن لا ادري ما سبب رغبتك في حذف هذا الجزء

تم تعديل نوفمبر 1, 2019 بواسطه حسين مامون

[محمد عبدالسلام]

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

اخي الحبيب حسين مامون سبب رغبتي في حدف هدا الجزء لي اني قومت بئدماج معه اكواد اخرا

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

وعندنفر على زر لطباعة واخفاء صفوف الفارغة وعمل نسخة احطياطية اخرا  يظهر لي خطاء في هدا الجزء

جزاك آلله خيرا  اخي العزيز