افزودن rows پس از ورود اطلاعات

[jeddi]

سلام به دوستان و اساتید محترم
من سئوال درخواستیمو جستجو کردم ولی پاسخ مورد نظر من نبود
اینکه می خوام تو یه محدوده (ردیف یک تا 20 )، از ردیف 2 تا 20 Hide باشند و با وارد کردن اطلاعات ردیف یک ، ردیف دو فعال بشه unhide جهت وارد کردن اطلاعات به همین ترتیب ادامه پیدا بکنه ... و همچنین یه محدوده در همان شیت از ردیف 30 تا 50 ، ردیف 31 تا 50 Hide باشند و با وارد کردن اطلاعات ردیف 30 ، ردیف 31 فعال بشه unhide ...
و یه سوال دیگرم اینکه تو یه فرم سه تا TextBox دارم وقتی عدد را تو TextBox1 و TextBox2 وارد می کنم محاسبات می خوام اتومات تو TextBox 3 اعمال بشه بلد نیستم ولی فعلا یه CommandButton گذاشتم از طریق اون انجام میدم
متشکر از لطف همه دوستان و اساتید

[امين اسماعيلي]

با درود
این که نشد که یعنی من مطمعن باشم شما پیدا نکردی - مورد سومتو که قبلا صد در صد انجام شده - مورد اولتو هم که نمونه کدش هست باید با کارت وقف بدی - یعنی تا یه جاییش بری بعدش بگی کجاش مشکل داری - بعدشم تویه ردیف مثلا 1 تا 20 - کدوم سل ها توی ستونش باید جتما پر بشه تا بعدی فعال بشه - ایا همش باید پر بشه یا نه ......... اینا همش تاثیر گذاره و .........

[امين اسماعيلي]

با درود
اما حالا چون بار اولی دارم بهت میگم یه ذره کمک بهت میکنم برای مورد اولت
مثلا یه همچی کدی میخوای - اولش ردیف های 2 تا 20 رو هاید کن بعد کد زیر رو تو صفحه کد اون شیت کپی کن

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
  If Target.Offset(1, 0).EntireRow.Hidden = True Then
  Target.Offset(1, 0).EntireRow.Hidden = False
  End If
  End If
   
End Sub

تو این کد منظور ما اینه که حتما تو ستون A و در رنج A1:A20 اطلاعات وارد بشه یعنی اهمیت داره و اگر ردیف بعدش هاید باشه و ما اطلاعاتی وارد کرده باشیم از هاید در بیاد -
حالا خودت کم کم ارتقاعش بده باشه .

واسه اون تکست باکس هاتم
تو ایونت Change تکست باکس 2 اینطوری بنویس

Private Sub TextBox2_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub