سلام
تو فایل نمونه انجام شده
اینم کد اسنفاده شده
کد:
Sub radif()Application.ScreenUpdating = False
Range("B6").Select
If Range("B6") = Empty Then
Exit Sub
End If
lRow = Cells(Rows.Count, 2).End(xlUp).Row
Set myRange = Range(Cells(6, 2), Cells(lRow, 2))
For Each cell In myRange
cell.Offset(0, -1).Value = i + 1
i = i + 1
Next cell
Application.ScreenUpdating = True
End Sub
نمیدونم شاید هنوز کدهاتون کامل نشده ولی پیشنهاد میکنم نحوه مرتب سازی داده هاتون رو اصلاج کنید
اخز شیت ها ی جدول اومده که بهتره در ی شیت جدا باشه
بخش عوارض و مالیات با اینکه در فرم براش تعریف کردین ولی باز در سلول ها براش فرمول تعریف شده که موقع حذف ردیف ممکنه مشکل درست کنه
بهتره برای عوارض و مالیات ک مقادیر ثابتی دارند از نمونه کد زیر استفاده کنید که مثلا وقتی مبلغ نوشته شد به صورت خوکار مالیت و عوارض در بخش های مربوطه نوشته باشه
تو بحث مالی و حسابداری هرچه داده ها خودکار و هوشمندتر باشن راندمان بالا و خطا پایین میاد
کد:
Private Sub TextBox3_Change()TextBox8.Value = TextBox3.Value * 0.03
End Sub
یعنی زمانی که مبلغ رو مینویسی خودکار 3 درصد مالیات رو در textbox8 حساب میکنه
علاقه مندی ها (Bookmarks)