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

 اخي لقد أعطاني هذا الخطأ

 جزاك الله خيرا اخي الكريم

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

 

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

وفيت المطلوب استاذنا الافاضل

بارك الله فيك اخي الكريم جزاك الله خيرا

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

لكن اخي هده طريقة في الموضوع لا تناسب طلبي اوملف العمل الخاص لدي

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

Private Sub TextFind_Change()

Dim MyValue

Dim MyAr() As String

Dim R As Integer, i As Integer, ii As Integer

Dim MyColmnFind As Integer, LastRow As Integer



MyColmnFind = Me.ComboFind.ListIndex + 1

If MyColmnFind = 0 Then Exit Sub

If MyColmnFind = 3 Then Me.TextFind = ""

Me.ListFind.Clear

With Rng.Worksheet

LastRow = .Range("A65536").End(xlUp).Row

End With

Colmn = ""

With Rng

For R = 2 To LastRow

If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then

Colmn = Colmn & R & " "

ii = ii + 1

ReDim Preserve MyAr(1 To ContColmn, 1 To ii)

For i = 1 To ContColmn

MyValue = .Cells(R, i).Value2

MyAr(i, ii) = MyValue

Next

End If

Next



End With

If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0

End Sub

Private Sub UserForm_Activate()

Set Rng = Sheet2.Range("A1").Resize(1, 2)

With Me.ComboFind

.Column = Rng.Value

.ListIndex = 1

.Style = 2

End With

R = Range("D62").End(xlUp).Row

Label15.Caption = 60 - R

TextFind_Change

End Sub

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

 انا اسف جدا اخي على طالبتي ان كانت غير وضيحة

نعم اخي انه نفس الموضوع ولكن كنت اعتقد ان طلبي غير واضح وانا احتاج مساعده ضروري في هدا الموضوع لان هذه الطريقه تناسب عملي

 السلام عليكم

اخي جزاك الله خيرا على الاهتمام بالموضوع وتقديم المساعدة لي اسال الله العظيم ان يمن عليك بالصحه والعافيه اخي هذه الطريقه رائعه جدا لكن لا تناسبني في عملي  لو سمحت اخي اريد تعديل في الملف الاول في  ComboFind  في خيار البحث اما بالصنف او الكود طلبي هو اذا قمت باختيار البحت في  ComboFind بالكود يبقى على الكود واذا اخترت الصنف يبقى على الصنف حتى اقوم بتغيير الخيار لبحت يدويا

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

 هل توجد طريقة لتثبيت خيارات البحت بي صنف او الباركود  في ComboFind

اذا قمت باختيار البحث بالصنف يبقى ثابت على صنف واذا قمت باختيار الباركود يبقى في الباركود
 
 المشكله الان ادا قمت بختيار البحت بي باركود في ComboFind بمجرد الترحيل من ليست بوكس يعود الى خيار  الصنف اريد ان يبقى ثابت على الخيار الذي قمت باختياريه اما بي الصنف او الباركود
 
 
 

 بارك الله فيك اخي الكريم وجزاك الله خيرا

اخي توجد مشكلة في TextBox1  لا استطيع كتابة اي شئ فيها وكأنها معطل disabled
 

هل يتم الاختيار البحث بين texbox1 وبين TextFind تلقائيا ام يدويا الله جزاك الله خيرا
 

لوسمحت اخي هل توجد طريقه لتفعيل التكست بوكسات وعدم تفعيل واحده وتعطيل الاخرى
 

بوركت جهودك، و جزاك الله خير الجزاء تحياتي و مودتي و تقديري الكبير
 

 

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

اريد طريقة لجعل الكود يحفظ الصور بصيغةPNG 

مع كامل احترامي وتقديري لكم على جهودكم وجزاكم الله خيرا
 

المشكلة كما يظهر في صوره عند اختيار صوره من نوع PNG
 
 

 

اخي ابراهيم جزاك الله خيرا على اهتمامك بالموضوع لقد قمت بي تغيير السطر لكن قد ظهرت هذه الرساله في السطر كما في الصوره