وارد شدن اطلاعات در سطر اول

[Javid Mokhtari]

سلام خسته نباشید من میخوام وقتی از یوزر فرم اطلاعات را ثبت می کنم اطلاعات جدید در سطر اول وارد بشه(فایل پیوست) ممنون
با سلام.
نمیدونم چه معیارهایی مد نظرتونه اما برای نمونه میتونید از کد زیر استفاده کنید:
...........خط اول و سوم کد خودتونه و فقط کد دوم رو بین اونا قرار بدین.........


If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then


Rows(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow


For Each c In Range("A1:A10000")

[mreza]

ممنون ار پاسخ شما چطور می تونم سلول "شماره حساب " رو هم که فرمول داره بصورت اتوماتیک شماره بیندازه؟

[Javid Mokhtari]

میتونید کدتون رو به شکل زیر کامل کنید:


c.Offset(0, 0) = TextBox1.Text
c.Offset(0, 1) = TextBox2.Text
c.Offset(0, 2) = TextBox3.Text
c.Offset(0, 3) = TextBox4.Text
c.Offset(0, 4) = TextBox5.Text
c.Offset(0, 5) = TextBox6.Tex




c.Offset(0, 6) = Application.WorksheetFunction.Max(Range("g10000", c.Offset(1, 6).Address)) + 1