اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم

 

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

 

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

 

وشكرا

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

تم تعديل بواسطه Xima Alfadni
قام بنشر

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

و شكرا

قام بنشر (معدل)

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

تم تعديل بواسطه Xima Alfadni
قام بنشر

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


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

  • Like 2
قام بنشر (معدل)

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

تم تعديل بواسطه Xima Alfadni
قام بنشر

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

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

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

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

قام بنشر (معدل)

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

حذف.zip

تم تعديل بواسطه 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

قام بنشر

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

 

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

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

 

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

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

 

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

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

 

Get Data.zip

قام بنشر

 

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

انت ملئت بيانات القائمة المنسدلة من العمود 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
 
حاولت ان اصيغها بهذه الطريقة و لكن لم يفلح و ارجوا تصحيح الخطأ
وشكرا

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information