التعديل والاضافة في خلايا من اليوزرفورم باستثناء خلايا المعادلات

[vidan]

السلام عليكم اخوتي الكرام

أعمل على ملف اكسل عند ادخال البيانات من اليوزرفورم يمسح المعادلات الخلايا التي في الشيت عند الضغط على التعديل أو الاضافة !

أريد ادخال hasformula = falsae  في الكود الخاص بي لمنع مسح المعادلات في الخلايا  عند الادخال أو التعديل هل هناك امكانية لذلك

هذه الاكواد للامرين الادخال والتعديل :

Private Sub CommandButton1_Click()
For j = 1 To 21
        Cells(r, j) = Controls("TextBox" & j).Text
Next j
ListBox1.List(i, 0) = TextBox2.Text
End Sub

Private Sub CommandButton2_Click()
       
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For j = 1 To 21
        Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text
Next j
For i = 1 To 21
            Controls("TextBox" & i).Text = ""
Next i
 ListBox1.AddItem
 ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value
  ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1
   TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A4000")) + 1
TextBox2.SetFocus
End Sub

وشكرا لمن يساعدني في ذلك سلفا

[حسين مامون]

من دون ملف عمل نمودج لما تريد صحب ايجاد حل ...............

[vidan]

عفوا اخي الكريم هذا هو الملف ارسله مرفقاً,  اتمنى اصلاح ما ترونه مناسباً

شكرا جزيلاً لاهتمامك.🤝

test.xlsm