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

[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