طلب تحويل دالة IF الى كود

[Emad Karali]

عندي جدول كاتب فيه دالة عند تحقق شروط في الخمسة الخلايا الي قبل يكتب لي اما شراء او بيع او اغلاق 

ولاكن مجبور اني احول الدالة الى كود لاان عندي ملف خارجي يقراء فقط الدالة ولايقراء المكتوب في الخلية الي هوا الناتج من الدالة 

اريد فقط لو تكرمتم تحويل الدالة الى كود تلقائي في نفس الشيت 

بحثت في الموقع عن موضوع ولم اجد شي قريب كتبت كود نجح معايا ولاكن فقط لصف واحد وانا اريد الصفوف كاملة  

اريد تغير بسيط اني اريد حذف عاموديناوفيسنا.xls الاغلاق واترك فقط عامود البيع والشراء وعند تحقق شرط الشراء يكتب شراء ولا تتغير الى اغلاق الى اذا تحقق شرط الاغلاق وكذلك في عامود البيع تركت العامود لااجل الدالة تتعرفو عليها  باذن الله مافي شي صعب عليكم اتمنى مساعدتكم

اوفيسنا.xls

تم تعديل ديسمبر 13, 2020 بواسطه Emad Karali

[خيماوي كووول]

تم اضافة buy >>

الرجاء التجربة في sheet2 ..

بعد الضغط على زر اضغط هنا ..

نسخة من اوفيسنا.xlsm

[Emad Karali]

شكرا اخي خيماوي ممتاز لاكن هذا بزر وانا اريده تلقائي بدون م اضغط زر الله يجزاك خير 

 

[Emad Karali]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RowNum, r, s, n As Long

    For RowNum = 2 To 40
        If Worksheets("Sheet2").Cells(RowNum, 3).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 4).Value >= 0 And Worksheets("Sheet2").Cells(RowNum, 6).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 7).Value <= 0 And Worksheets("Sheet2").Cells(RowNum, 8).Value <= -15 And Worksheets("Sheet2").Cells(RowNum, 13).Value <= -13 Then
           Worksheets("Sheet2").Cells(RowNum, 11).Value = "SELL"
          End If
       Next RowNum
           For r = 2 To 40
        If Worksheets("Sheet2").Cells(r, 6).Value <= 0 And Worksheets("Sheet2").Cells(r, 7).Value <= 0 And Worksheets("Sheet2").Cells(r, 8).Value <= -15 And Worksheets("Sheet2").Cells(r, 13).Value <= -8 Then
           Worksheets("Sheet2").Cells(r, 12).Value = "WAIT"
           Else
           Worksheets("Sheet2").Cells(r, 12).Value = "CLOSE"
          End If
        Next r
     For s = 2 To 40
        If Worksheets("Sheet2").Cells(s, 6).Value >= 0 And Worksheets("Sheet2").Cells(s, 7).Value >= 0 And Worksheets("Sheet2").Cells(s, 8).Value >= 15 And Worksheets("Sheet2").Cells(s, 13).Value >= 8 Then
           Worksheets("Sheet2").Cells(s, 14).Value = "WAIT"
           Else
           Worksheets("Sheet2").Cells(s, 14).Value = "CLOSE"
          End If
        Next s
        
        For n = 2 To 40
        If Worksheets("Sheet2").Cells(n, 3).Value >= 0 And Worksheets("Sheet2").Cells(n, 4).Value <= 0 And Worksheets("Sheet2").Cells(n, 6).Value >= 0 And Worksheets("Sheet2").Cells(n, 7).Value >= 0 And Worksheets("Sheet2").Cells(n, 8).Value >= 15 And Worksheets("Sheet2").Cells(n, 13).Value >= 13 Then
           Worksheets("Sheet2").Cells(n, 15).Value = "BUY"
           Else
           Worksheets("Sheet2").Cells(n, 15).Value = " "
          End If
        Next n
       
End Sub

 لما يشتغل يكتب المطلوب ولاكن بعدها يطلع لي هذا الخطا 

وفي مشكلة الخلاية فيها معادلات م يشتغل الكود 

[Emad Karali]

اخي خيماوي اتمنى تنظر لموضوعي محتاج جدا الكود