سلام
این کد رو چطور قرار بدم که درست اجرا بشه؟؟؟
ActiveCell.Offset(1, 0).Select
If Add_Color.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Patern.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Size.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = width1.Text
ActiveCell.Offset(0, 2) = length.Text
End If
code.Text = code.Text + 1
title.Text = ""
length.Text = ""
width1.Text = ""
هر حالتی رو امتحان می کنم یکی از فیلد ها رو جایگزین نمیکنه. مثلا یه بار فیلد عنوان رو نمیاره یه بار فیلد طول و عرض .
این کد رو چطور قرار بدم که درست اجرا بشه؟؟؟
ActiveCell.Offset(1, 0).Select
If Add_Color.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Patern.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Size.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = width1.Text
ActiveCell.Offset(0, 2) = length.Text
End If
code.Text = code.Text + 1
title.Text = ""
length.Text = ""
width1.Text = ""
هر حالتی رو امتحان می کنم یکی از فیلد ها رو جایگزین نمیکنه. مثلا یه بار فیلد عنوان رو نمیاره یه بار فیلد طول و عرض .