[حل شده] اجرای for با شرط از تکست باکس

[narcissus]

سلام دوستان
یه فرمی هست که داخلش اقساط ثبت میشه
حالا میخوام که شماره قسط که ستون اول هست بصورت خودکار شماره بندی بشه تا آخرین شماره ای که در for 1 to 12 نوشته شده
و تعداد اقساط رو از textbox1 برداره که در اینجا فعلا 12 هست
وستون دوم تاریخ سررسید قسط هست که میخوام بصورت خودکار به فاصله یک ماه به تعداد اقساط پر بشه اولین قسط رو از textbox4 برداره
فایل پیوست را مشاهده بفرمایید
متشکر
Book1(4).xls

[iranweld]

سلام دوستان
یه فرمی هست که داخلش اقساط ثبت میشه
حالا میخوام که شماره قسط که ستون اول هست بصورت خودکار شماره بندی بشه تا آخرین شماره ای که در for 1 to 12 نوشته شده
و تعداد اقساط رو از textbox1 برداره که در اینجا فعلا 12 هست
وستون دوم تاریخ سررسید قسط هست که میخوام بصورت خودکار به فاصله یک ماه به تعداد اقساط پر بشه اولین قسط رو از textbox4 برداره
فایل پیوست را مشاهده بفرمایید
متشکر
[ATTACH]20964[/ATTACH]

از کد ذیل استفاده کنید

Private Sub CommandButton1_Click()
Dim i As Integer

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

If z1 = 1 Then z1 = 2



If IsNumeric(Val(TextBox1)) Then

For i = z1 To z1 + Val(TextBox1)-1

Sheet1.Range("A" & i) = Cells(i, 1) = i

Sheet1.Range("B" & i) = TextBox4.Value
Sheet1.Range("c" & i) = TextBox2.Value
Sheet1.Range("d" & i) = TextBox3.Value

Next

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""

End If

End Sub 

[majid_mx4]

ضمن تشکر از استاد محترم جناب آقای IranWeldو کسب اجازه از ایشان

توضیح : در مورد تاریخ بهتر است از Addin شمسی استفاده نمایید.یا ADDMonth ولی در مورد سریال نامبر از دستور زیر استفاده نمایید.

Private Sub CommandButton1_Click()
Dim i As Integer

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1


For b = 1 To Val(TextBox1)

For i = z1 To z1 + Val(TextBox1) - 1

Sheet1.Range("A" & i) = b
b = b + 1

Sheet1.Range("B" & i) = TextBox4.Value
Sheet1.Range("c" & i) = TextBox2.Value
Sheet1.Range("d" & i) = TextBox3.Value

Next
Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""



End Sub

موفق باشید میر

[narcissus]

سلام
ممنونم ولی شماره ها false میافته

- - - Updated - - -

سلام
متشکر استاد گرامی
سریال نامبر اوکی شد در مورد تاریخ هم توضیحی میفرمایین

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

توضیح : تاریخ در فرم بصورت اسلش دار وارد شود مثال 1399/03/06 در شیت بدون اسلش ثبت خواهد شد.

موفق باشید میر

[narcissus]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

توضیح : تاریخ در فرم بصورت اسلش دار وارد شود مثال 1399/03/06 در شیت بدون اسلش ثبت خواهد شد.

موفق باشید میر

متشکرم استاد حل شد