Jasmin

this is the code I have I deleted the line & saved the file & retried Same result Dim tmp Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False x = Application.Match(Target.Offset(, -5).Value, Sheets(1).Columns(3), 0) If Not IsError(x) Then If MsgBox("New Stock Will Be Updated . If OK Click 'Yes'", vbYesNo + vbQuestion) = vbYes Then Sheets(1).Cells(x, 5).Value = Target.Offset(, 2).Value Cells(Target.Row, 1).Value = Format(Date & Space(1) & Time, "dd/mm/yyyy hh:mm") Else If Not IsEmpty(tmp) Then Target.Value = tmp End If End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then tmp = Target.Value End Sub

I am sorry, I am a very newbie I will try to learn, but now I don't have time (btw, to comment it do I put //) Well sir I removed this line, but still same result, it's updating the current line.

Here you go, though i ve sent the sheet

Thank you brother the date worked just fine But i ve tried the first row as attached - when you update the stock in the 1dt sheet, too bad the second one change too - so obviously it's not correct. test-0-fr-m.xlsm

Congratulations, he deserves it for sure.

Thank you very much brother 2 notes please 1- I need to update the 1st sheet from the column NEWSTOCK (because the operation might be + or - as you can see the difference between the two lines : 1st was sale & 2nd was retrieval so the final new stock is the reference) Because you only made the code for sale. 2- the 3rd row didn't update the 1st sheet until i rewrite the quantity again !! so it was registered -4 - though it was 2 Notice the quantity was 191 in one row it became 187! coz i write 2 twice coz it didn't update the 1st sheet 1st time though i clicked on yes .. pls add 2 rows & try it for the 2 types of transaction. I appreciate your help very much, may God reward you. test-0-fr-m.xlsm

brother why are you deleting the last row??

وضعت الكود أخي ولم يعمل شيء the quatity in sheet1 was not updated- any tips? test-0-fr-m.xlsm

أخي أنا أريد الـ Newstock بالtransaction تنتقل عال Quantity in Stock بالورقة OldStock2021-2022 انا نقلت الكود كما قلت بالنسبة للنقطة الثانية كيف ممكن أن يتمّ إضافة تاريخ اليوم عند إضافة كل سطر جديد مثلا ترى انه لا يوجد تاريخ في السطر الثاني test-0-opened.xlsx

شكرا لكم .هذا هو الملف مفتوحا لو تكرمتم،ولكن أنا لا أريد لأحد أن يعدل عليه يدويا. .. وأيضا ممكن فكرة عن السؤال الثاني؟Where should i put this code brother Thank you in advance test-0-opened.xlsx

مرحبا إخوتي عندي كلفي به ورقتين ورقة 1- Oldstock2021-2022 وبها معلومات المستودع ورقة 2- Transaction عنها المعلومات التي أخذناها من الورقة الأولى وعندنا عمليتين : بيع وإسترجاع والكمية Quantity بعد ان أضع الكمية المباعة أريد عمل تأكيد لكي أنقل الNewStock من هذه الورقة للورقة الأولى Quantity in stock 2- كيف أضيف الdate تلقائيا كلما أضفت سطر جديد أنا وضعته now() بس كيف يتم كتابته تلقائياً وشكرا لكم. test-0-.xlsx

عندي حل كامل بس scan من هاتف اندرويد ويضيف على غوغل شيت معيّن اذا كان يهمكم الأمر أرسل الخطوات هنا

تفضل أخي فقط اعمل right click على اسم الsheet من الأسفل ومن ثم اختيار Protect sheet وضعت الباسورد Pas1 Pas2 Test6.xls

شكرا لكم وبالتوفيق - على أمل أن يتمّ إثراء هذا القسم.

تمّ بالتوفيق أخي الكريم.

وعليكم السلام والرحمة، السؤال بحاجة إلى الكثير من التفصيل أخي الكريم، أولها: هل أنت تنقل من موقع عادي أم سايربوينت أيضا؟ وإن كان شايربوينت فهل هما نفسة النسخة أم ماذا؟ أعلم أن الموضوع قديم جداً.

إخوتي الكرام، لمن يحب هذه 4 كتب عن ال workspace 2010 http://www.4shared.com/zip/y0ZaR0s_ce/WorkspaceBooks.html

الله يعطيكم العافية. في ميزان حسناتكم يا رب.. بالتوفيق.

ألف شكر لكم استاذنا..

جزاكم الله كل خير..

شكرا لكم..

بس ما هو السؤال بالضبط؟

شكرا لكم ... وبارك الله فيكم..

شكرا لك أخي الكريم..نعم هذا ما أريد بس سؤال =IF(A5="","",VLOOKUP(A5,rang1,2,0)) لماذا وضعت بالكود الشرط if (a5=""" إلام يرمز هذا الشرط؟؟؟

بسم الله إخواني الكرام.. لنقل عندي ورقتين - أو حتى ملفين ورقة 1 تحتوي : - عامود A : الإسم - عامود B : عنوان - عامود C : رقم الهاتف ورقة 2 تحتوي : - عامود A : الإسم - عامود B : تاريخ معين لنقل انني اريد نقل العامودين B - C من الورقة A إلى الورقة B علما أن: الإسم هو المشترك بس ليست كل الأسماء موجودة في الإثنين.. شكرا سلفا