atob قام بنشر أكتوبر 27, 2012 مشاركة قام بنشر أكتوبر 27, 2012 السلام عليكم ورحمة الله وبركاته في هذا الملف كود واريد التعديل عليه وهذا هو الكود Sub add() Dim iNx Dim Last As Long Dim myrange As Range ''''''''''''''''''''''' If Len(Trim(Range("C6"))) = 0 Then Exit Sub ''''''''''''''''''''''' iNx = Evaluate("MATCH(C6,myrange,0)") ''''''''''''''''''''''' Select Case IsError(iNx) Case True If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáßÊÇÈ ÇáÌÏíÏ" & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then Last = Sheets("m").Range("H" & Rows.Count).End(xlUp).Row + 1 Sheets("m").Range("H" & Last).Resize(1, 4).Value = Range("C6").Resize(1, 4).Value MsgBox "Êã ÈÍãÏ Çááå " End If ''''''''''''''' Case False If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáÚÏÏ " & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then Last = iNx Sheets("m").Range("J" & Last).Value = Val(Sheets("m").Range("J" & Last)) + Val(Range("E6")) MsgBox "Êã ÈÍãÏ Çááå " End If End Select End Sub وهذا الملف المرفق يوضح اكثر عن طلبي اضافة الي جدول.rar واشكركم جزيل الشكر رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أكتوبر 27, 2012 مشاركة قام بنشر أكتوبر 27, 2012 أخى الفاضل غير السطر Last = iNx الى السطر Last = iNx + 9 رابط هذا التعليق شارك More sharing options...
atob قام بنشر أكتوبر 27, 2012 الكاتب مشاركة قام بنشر أكتوبر 27, 2012 اشكرك اخي رجب جزيل الشكر والله لا يحرمك الاجر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.