ثبت اطلاعات در آخرین ستون فرم

[ظهور 313]

سلام و عرض ادب دوباره


با استفاده از این كد، میشه اطلاعات رو در خانه خالی یك جدول ثبت كرد،
Private Sub CommandButton22_Click()
'ثبت اطلاعات در جدول
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("TAK").Range("B7:B500000")
If A = "" Then
A.Offset(0, 0) = Sheets("TAK").Range("B5")
A.Offset(0, 1) = Sheets("GHARARDAD").Range("F14")

MsgBox "اطلاعات فرد تحت تكفل، با موفقيت ثبت شد", vbOKOnly, "ثبت اطلاعات"

find = True
Exit Sub
End If
Next A
End Sub

حالا میخوام ببینم چه جوری میشه به جای اینكه توی ردیف خالی اطلاعات رو ثبت كنیم، در آخرین ردیف ، اطلاعات ثبت بشه
ممنون میشم اگه اساتید راهنمایی كنند

[iranweld]

با سلام

بجای کد

For Each A In Sheets("TAK").Range("B7:B500000")
    If A = "" Then 

با این کد اولین سلول خالی انتهای ستون مورد نظر را بدست آورید

Endrow = Cells(Rows.Count, "B").End(xlUp).Row+1 

[Amir Ghasemiyan]

سلام دوست عزيز

در قسمتي كه از تابع Offset استفاده كرديد يك سطر برگرديد عقب. مثلا اينطوري:

A.Offset(-1, 0) = Sheets("TAK").Range("B5")

[ظهور 313]

سلام دوست عزيز

در قسمتي كه از تابع Offset استفاده كرديد يك سطر برگرديد عقب. مثلا اينطوري:

A.Offset(-1, 0) = Sheets("TAK").Range("B5")

متوجه نمیشم استاد؟
این برای چیه؟

[Amir Ghasemiyan]

متوجه نمیشم استاد؟
این برای چیه؟

جایگزین کد خودتون بکنید. دو خط قبل از مسیج باکس
داخل کدتون از آفست استفاده کردید

[ظهور 313]

جایگزین کد خودتون بکنید. دو خط قبل از مسیج باکس
داخل کدتون از آفست استفاده کردید

استاد منظورم اینه که چرا باید یکی برگردم به عقب
اینو علتش رو نمیفهمم. به نظرم نباید اینجوری باشه

[Amir Ghasemiyan]

استاد منظورم اینه که چرا باید یکی برگردم به عقب
اینو علتش رو نمیفهمم. به نظرم نباید اینجوری باشه

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

[ظهور 313]

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

بله فهمیدم منظور من سطح آخر بود که خالی باشه
در کل ممنونم که وقت گذاشتید

- - - Updated - - -

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

بله فهمیدم منظور من سطح آخر بود که خالی باشه
در کل ممنونم که وقت گذاشتید