اضافة الاوامر في الازرار

عدد المساهمات : 14 تاريخ التسجيل : 31/03/2017

الرجاء مساعدتي في اضافة الاوامر في الازرار

الملف

عدد المساهمات : 14 تاريخ التسجيل : 31/03/2017

رابط الملف
رابط المــــلــف

الاخ لا تبخل
انا شفت موضوعك الان ان شاء الله لا نبخل عليك

فى زر البحث ادخل الاكواد
Set sh12 = Sheets("QUOTATION BLOCKS & KERBS")
LR = sh12.[a2000].End(xlUp).Row
For Each cl In sh12.Range("a5:j" & LR)
If (Val(Me.TextBox19)) = cl Then
Me.TextBox1 = cl.Offset(0, 0)
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, Cool

Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
Me.TextBox12 = cl.Offset(0, 11)
Me.TextBox13 = cl.Offset(0, 12)
Me.TextBox14 = cl.Offset(0, 13)
Me.TextBox15 = cl.Offset(0, 14)
Me.TextBox16 = cl.Offset(0, 15)
Me.TextBox17 = cl.Offset(0, 16)
Me.TextBox18 = cl.Offset(0, 17)
End If
Next

فى زر خروج مع الحفظ الاخير
ThisWorkbook.Save
Unload Me
Application.quite
Application.DisplayAlerts = False

فى زر خروج من الفورم
Unload Me

فى زر مسح البيانات
Dim aa As Integer
If MsgBox(" هل تريد تفريغ الخلايا من علي الفورم ", vbYesNo, "GHANDOUR") = vbYes Then
For aa = 1 To 18
' الارقام 1 الي 18 تمثل التكست بوكس عندك
Me.Controls("TextBox" & aa).Value = ""
Next
Exit Sub
Else
Exit Sub
End If

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

عدد المساهمات : 14 تاريخ التسجيل : 31/03/2017

الف شكر لك يا استذان الكبير

ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة )

Private Sub CommandButton2_Click()
'كود زر تسجيل بيانات
Dim iRow As Long
Dim ws As Worksheet
Dim ii As Integer

Set ws = Worksheets("QUOTATION BLOCKS & KERBS")
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, .Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
ws.Cells(iRow, 13).Value = Me.TextBox13.Value
ws.Cells(iRow, 14).Value = Me.TextBox14.Value
ws.Cells(iRow, 15).Value = Me.TextBox15.Value
ws.Cells(iRow, 16).Value = Me.TextBox16.Value
ws.Cells(iRow, 17).Value = Me.TextBox17.Value
ws.Cells(iRow, 18).Value = Me.TextBox18.Value

For ii = 1 To 18
Me.Controls("TextBox" & ii).Value = ""
Next
End Sub

عدد المساهمات : 2 تاريخ التسجيل : 21/04/2018

شكرا استاذ مجدي على كل جهد

عدد المساهمات : 14 تاريخ التسجيل : 22/03/2019

الف شكر

عفوا لكم

» فورم كتابة التاريخ مباشر واخفاء بعض الازرار
» كيفية عمل فورم من خلال الفرام وكتابة الاوامر واغلاق الفورم جذء3
» اضافة بيانات حسب اسم شيت
» اضافة الاشهر على التاريخ
» فورم اضافة بيانات