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

عدد المساهمات : 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
» اضافة بيانات حسب اسم شيت
» اضافة الاشهر على التاريخ
» فورم اضافة بيانات