how can i fix these?

[EMAD5454]

لا في هذه الجملة من الصيغة
Me.ListBox1.List = helpsheet.Range("A:G" & LR_HELP2).Value

هذه الصيغه بالكامل

'كود الرحيل الى شيت المساعدة'
Dim lr_help1 كعدد صحيح
lr_help1 = helpsheet.Range("A100").End(xlUp).Row + 1
ورقة المساعدة.Cells(lr_help1, "A").Value = Me.txtproduct.Value
ورقة المساعدة.Cells(lr_help1, "B").Value = Me.txtunite.Value
ورقة المساعدة.Cells(lr_help1, "C").Value = Me.txtbuy.Value
ورقة المساعدة.Cells(lr_help1, "D").Value = Me.txtsale.Value
ورقة المساعدة.Cells(lr_help1, "E").Value = Me.txtmount.Value
ورقة المساعدة.Cells(lr_help1, "F").Value = Me.txtmount.Value
ورقة المساعدة.Cells(lr_help1, "G").Value = Me.txtmount.Value
أنا.ListBox1.مسح
أنا.ListBox1.Height = 130
أنا.ListBox1.العرض = 545
أنا.ListBox1.ColumnCount = 5
أنا.ListBox1.ColumnWidths = "120،90،90،90،90"
Dim LR_HELP2 كعدد صحيح
LR_HELP2 = ورقة المساعدة. النطاق ("A100"). النهاية (xlUp). الصف
Me.ListBox1.List = helpsheet.Range("A:G" & LR_HELP2).Value
''كود الجمعه تلقائى''
خافت V1، V2 طويل
V1 = Me.txtsub_totale.Value
V2 = القيمة (Me.txtsale.Value) * القيمة (Me.txtcount.Value)
Me.txtsub_totale.Value = Val(V1) + Val(V2)
Me.txtproduct.Value = ""
Me.txtunite.Value = ""
Me.txtbuy.Value = ""
Me.txtsale.Value = ""
Me.txtmount.Value = ""



نهاية الترجمة

 

[Hany ali]

How Come ?!!!!
Please Upload Excel File ?