hanykassem قام بنشر مايو 17, 2023 مشاركة قام بنشر مايو 17, 2023 مطلوب عند كتابه ok في( b4) يتم وكتابه تاريخ اليوم في ( a4 ) Qty = Qty D4=c4 test-17-05-2023.xlsx رابط هذا التعليق شارك More sharing options...
alyaldeen قام بنشر مايو 17, 2023 مشاركة قام بنشر مايو 17, 2023 test-17-05-2023.xlsm 1 1 رابط هذا التعليق شارك More sharing options...
hanykassem قام بنشر مايو 18, 2023 الكاتب مشاركة قام بنشر مايو 18, 2023 شكرا لمجهودك بس للاسف مش دة المطلوب رابط هذا التعليق شارك More sharing options...
hanykassem قام بنشر مايو 18, 2023 الكاتب مشاركة قام بنشر مايو 18, 2023 مطلوب عند كتابه ok في( b4) يتم وكتابه تاريخ اليوم ( a4 ) وفي Qty = Qty2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر مايو 18, 2023 أفضل إجابة مشاركة قام بنشر مايو 18, 2023 السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل ضع هذا الكود في حدث الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Row > 3 Then If X.Column = 2 Then If X.Value = "ok" Then X.Offset(0, -1).Value = Date ElseIf X.Column = 3 Then If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X End If End If Next X Application.EnableEvents = True End Sub 2 1 رابط هذا التعليق شارك More sharing options...
hanykassem قام بنشر مايو 18, 2023 الكاتب مشاركة قام بنشر مايو 18, 2023 تسلم يارب بس ممكن تتطبق علي الشيت المرفق شكرا علي مجهودك وجزاك الله خير الجزاء وجعلة في ميزان حسناتك بس طلب اخير ممكن شرح الكود رابط هذا التعليق شارك More sharing options...
hanykassem قام بنشر مايو 20, 2023 الكاتب مشاركة قام بنشر مايو 20, 2023 ممكن شرح الكود ممكن شرح للكود لو امكن رابط هذا التعليق شارك More sharing options...
hanykassem قام بنشر مايو 26, 2023 الكاتب مشاركة قام بنشر مايو 26, 2023 On 5/18/2023 at 5:19 PM, حسونة حسين said: السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل ضع هذا الكود في حدث الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Row > 3 Then If X.Column = 2 Then If X.Value = "ok" Then X.Offset(0, -1).Value = Date ElseIf X.Column = 3 Then If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X End If End If Next X Application.EnableEvents = True End Sub ممكن شرح الكود للاهميه رابط هذا التعليق شارك 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.