مساعدة في تحويل هذه المعادة الى كود فجول بيسك للضرورة القسوة

[احمد علي ابو سما]

مساعدة في تحويل هذه المعادة الى كود فجول بيسك للضرورة القسوة 

 

=IF(AND(B5>=$M$5,B5<=$M$6),'سجل مبيعات نقد'!C5,"")

SIMPLE1 - Copy.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub formula_to_Vba()
 Dim Lr As Integer
Lr = Sheets("سجل مبيعات نقد").Cells(Rows.Count, 2).End(3).Row
Sheets("سجل مبيعات نقد").Range("j5:j" & Lr).ClearContents
 Sheets("سجل مبيعات نقد").Range("j5").Formula = "=IF(AND(B5>=$M$5,B5<=$M$6),'سجل مبيعات نقد'!C5,"""")"
 Range("j5").AutoFill Destination:=Range("j5:j" & Lr)
 Range("j5:j" & Lr).Value = Range("j5:j" & Lr).Value
End Sub

 

[احمد علي ابو سما]

ممنون منك وعاشت ايدك هو هذا المطلوب @سليم حاصبيا

[احمد علي ابو سما]

SIMPLE1 - Copy.rar

[أبوهديل]

ما شاءالله اخي سليم 

وعمل جميل منك أخي أحمد

تحياتي لكم