پرسش اجرای فرم در vba

[طاها پارسا]

با سلام و خسته نباشید
یک فرم دارم که پس از ورود اطلاعات باید آ نرا در آخرین سطر خالی شیت قرار بده در زمان اجرای فرم در محیط vba درست است ولی وقتی در محیط اکسل فراخوانی می کنم اطلاعات وارده را فقط در sطر اول قرار میده و جایگرین داده های قبل میکنه لطفا راهنمایی کتید

[a.dal65]

فایلتونو بزارید لطفا

[طاها پارسا]

سلام شرمنده به علت محتوای فایل نمیتونم فایل بزارم ولی فهمیدم مشکل از کجاست اما نتونستم حلش کنم
من فرم رو با یک ماژول از یه شیت دیگه فراخوانی میکردم به همین علت این موضوع پیش می آمد
حالا اگه ممکنه بفرمایید چجوری یک فرم که مثلا برای شیت3 درست شده از شیت یک فراخوانی بشه و داده ها از طریق فرم در همان شیت خودش (3) ذخیره شود ممنون از لطفتون

[میثم مقدم نیا]

سلام شرمنده به علت محتوای فایل نمیتونم فایل بزارم ولی فهمیدم مشکل از کجاست اما نتونستم حلش کنم
من فرم رو با یک ماژول از یه شیت دیگه فراخوانی میکردم به همین علت این موضوع پیش می آمد
حالا اگه ممکنه بفرمایید چجوری یک فرم که مثلا برای شیت3 درست شده از شیت یک فراخوانی بشه و داده ها از طریق فرم در همان شیت خودش (3) ذخیره شود ممنون از لطفتون

فایل نمونه قرار بدید که اون اطلاعات داخلش نباش یه اطلاعات دیگه جایگزین کنید

[akm1093786]

از این کد استفاده کن :
ولی دقت کن که باید با فرم و شیت خودت تطبیق بدی:
Sub EditAdd()


Dim emptyRow As Long, id As Double


If UserForm1.TextBox1.Value <> "" Then
flag = False
i = 0
id = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 16
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 1 To 16
Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

End If
ClearForm
MsgBox "! طلاعات با موفقیت ثبت و بروزرسانی گردید", vbOKOnly + vbDefaultButton1, " ثبت و ویرایش اطلاعات "
End Sub