طلب مساعدة - فورم حذف

[Xima Alfadni]

السلام عليكم

 

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

 

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

 

وشكرا

فورم به الحذف - هام.zip

تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni

[Xima Alfadni]

هلا يوجد اخ كريم يجيب على هذا التساؤل على الرغم من شبه تأكدى انه لن يجيب عليه أحد لأن هذا سادس سؤال اكتبه في هذا المنتدى دون ان يلتفت له أحد المشرفين الخبراء الافاضل أو الاعضاء الكرام !!

و شكرا

[شوقي ربيع]

السلام عليكم

 

فورم به الحذف - هام.rar

[Xima Alfadni]

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

تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni

[شوقي ربيع]

فورم به الحذف - هام.zip

[شوقي ربيع]

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

Dim LsInd As Byte

Private Sub UserForm_Initialize()

ComboBox1.List = Worksheets("User").Range("A1") _
    .CurrentRegion.Columns("A").Value

End Sub

Private Sub ComboBox1_Change()
Dim sh As Worksheet
Dim Mh As Long, Lr As Long
Dim i As Integer
Dim ii
If Me.ComboBox1 <> "" Then ii = Me.ComboBox1

    Set sh = Sheets("User")
    With sh
        Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        Mh = WorksheetFunction.Match(ii, .Range("A1:A" & Lr), 0)
    End With
For i = 1 To 5
Me.Controls("TextBox" & i) = sh.Cells(Mh, i)
Next
LsInd = Me.ComboBox1.ListIndex + 1


'Vlookup function for the textboxes once a value has been selected in ComBox1
'TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 2, False)
'TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 3, False)
'TextBox3 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 4, False)

End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub


Private Sub CommandButton2_Click()
Dim sh As Worksheet
    Set sh = Sheets("User")
    sh.Range("A" & LsInd & ":E" & LsInd).Delete Shift:=xlUp


'    If Me.ComboBox1.ListIndex = -2 Then Exit Sub
'    Worksheets("USER").Range("A2").Offset(Me.ComboBox1.ListIndex, 0).Range("A1:J1").Delete Shift:=xlUp

End Sub

فورم به الحذف - هام.zip

[Xima Alfadni]

جزاك الله كل الخير .. استفسار اخير .. لو كان يوجد في البحث كائنات اخرى غير تيكست بوكس مثل تشيك بوكس او خلافه ممكن تعطينى بس مثال عليها 

تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni

[شوقي ربيع]

لم افهم سؤالك جيدا لاكني في كود البحث السابق استعملت دالة Match

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

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

ii = Me.ComboBox1 تصبح ii = Me.Tsectbox1

[Xima Alfadni]

اخى الكريم في البداية اشكرك على اهتمامك بالرد

 

في المثال انا حاولت تعلم الطريقة فقمت بتحويل بداية مسار البحث من العمود a  الى العمود c ولم اوفق ؟ ارجوك اشرح لى الخطأ في الملف المرفق الحالى و الاخير لكى اتعلم الطريقة

 

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

 

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

 

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

 

http://www.officena.net/ib/index.php?showtopic=56086

 

لذلك ارجوا من الاخوة و الاساتذة الكرام التكرم بالاجابة على هذه المعلومة البسيطة

 

وجزاكم الله خير و اكرر شكرى

حذف.zip

تم تعديل أكتوبر 20, 2014 بواسطه Xima Alfadni

[شوقي ربيع]

الخطاء هنا هو انك تبحث عن كلمة غير موجودة في عمود البحث

انت ملئت بيانات القائمة المنسدلة من العمود e وتبحث عن قيمه في العمود c

قم بتغير كود ملى القائمة المسدلة بهذا الكود

ComboBox1.List = Worksheets("User").Range("C1").CurrentRegion.Columns("A").Value

.وايضا في كود ملى التكسات الانك غير الاعمدة

For i = 1 To 5
Me.Controls("TextBox" & i) = sh.Cells(Mh, i + 3)
Next

[Xima Alfadni]

جزاك الله كل الخير ... و اشكرك جزيل الشكر لان هذه تقريبا اول مرة احد يهتم و يجيب على استفسارى للنهاية  :)

 

عندى استفسار اخر و اخير على الرابط التالى :

http://www.officena.net/ib/index.php?s=92dfbd4401fd61a5317bfb51b2fe4de1&showtopic=56158

 

في المثال المرفق قد تحصلت بالبحث على نصف الاجابة وهو يشرح كيف انسخ من ملف الى ملف بطريقة Last Row

و لكن السؤال الباقي هو كيف استعيد البيانات التى وضعتها في الملف المغلق بدون ان افتحه ، و بنفس طريقة Last Row بمعنى استعيد البيانات بنظاق متجدد مثل ما اضعها بنظاق متجدد ويكون الملف الاساسى مفتوح و الاخر يظل مغلق

 

اشكرك على سعة صدرك

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

 

Get Data.zip

[Xima Alfadni]

 

الخطاء هنا هو انك تبحث عن كلمة غير موجودة في عمود البحث

انت ملئت بيانات القائمة المنسدلة من العمود e وتبحث عن قيمه في العمود c

قم بتغير كود ملى القائمة المسدلة بهذا الكود

ComboBox1.List = Worksheets("User").Range("C1").CurrentRegion.Columns("A").Value

السلام عليكم .. السادة الخبراء

بخصوص هذا الكود فان الكمبوبوكس سيبدا من بداية عمود C

فكيف ان كنت اريد ان يبدا من c3 بحيث يتجاهل ماهو موجود في C1 وC2

 

 

ComboBox1.List = Worksheets("User").Range("C3").CurrentRegion.Columns("A").Value

 

حاولت ان اصيغها بهذه الطريقة و لكن لم يفلح و ارجوا تصحيح الخطأ

وشكرا

 

[Xima Alfadni]

للرفع مرة اخرى عسي ان يصادف اخ كريم يعلم الاجابة يجيب على التساؤل