البحث في الموقع
Showing results for tags 'ترحيل - نعديل - مسح'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته ارجو المساعدة في تعديل الكود المدرجح ان يتم الترحيل الى الشيت المفعل وكود التعديل وكود المسح ايضا يقوما بالعمل في الشيت المفعل الكود للاستاذ مجدي يونس كود ادخال بيانات جديدة Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("بيانات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ كود تعديل البيانات Dim i As Integer For i = 1 To 200 If Val(TextBox12.Value) = Cells(i, 1) Then Cells(i, 1) = TextBox1.Text Cells(i, 2) = TextBox2.TextEnd If Next MsgBox "تمت الأضافة بنجاح" Me.TextBox1.Value = "" Me.TextBox2.Value = "" ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ كود بحث Set sh12 = Sheets("بيانات") LR = sh12.[a2000].End(xlUp).Row For Each cl In sh12.Range("a5:a100" & LR) If (Val(Me.TextBox12)) = cl Then Me.TextBox1 = cl.Offset(0, 0) Me.TextBox2 = cl.Offset(0, 1)
