[حل شده] ثبت داده*ها در دو محدوده (جدول) متفاوت (در يك محدوده را بلدم)

[ظهور 313]

با سلام خدمت اساتيد محترم
2 سوال قبلي بنده متاسفانه بدون پاسخ موند. البته سوال قبلي رو خودم حلش كردم

حالا يه سوال ديگه دارم
كد ثبت داده ها در يك جدول رو بلدم و مشكلي نيست. مشكل اينجاست كه ميخوام بعضي از داده ها در يك جدول ثبت بشه و بعضي ديگه در محدوده ديگه. اين كار بايد فقط با يك كليد انجام بشه. البته با كلك رشتي هم ميشه اين كار رو انجام داد. اما اين كار اصولي نيست. لطفا اساتيد راهنمايي بفرمايند. خيلي ممنون

توضيح كلك رشتي: ( مثلا يه چك باكس مخفي طراحي كنيم و به اون دستور بديم كه هر وقت مقدارش true شد، اطلاعات رو بره در محدوده دوم ثبت كنه و بعد يكي از دستوراتي كه در كليد ثبت اطلاعات وارد مي كنيم، اين باشه كه مقدار چك باكس رو true كنه تا دستوراتش خود به خود اجرا بشه.)

[Amir Ghasemiyan]

با سلام خدمت اساتيد محترم
2 سوال قبلي بنده متاسفانه بدون پاسخ موند. البته سوال قبلي رو خودم حلش كردم

حالا يه سوال ديگه دارم
كد ثبت داده ها در يك جدول رو بلدم و مشكلي نيست. مشكل اينجاست كه ميخوام بعضي از داده ها در يك جدول ثبت بشه و بعضي ديگه در محدوده ديگه. اين كار بايد فقط با يك كليد انجام بشه. البته با كلك رشتي هم ميشه اين كار رو انجام داد. اما اين كار اصولي نيست. لطفا اساتيد راهنمايي بفرمايند. خيلي ممنون

توضيح كلك رشتي: ( مثلا يه چك باكس مخفي طراحي كنيم و به اون دستور بديم كه هر وقت مقدارش true شد، اطلاعات رو بره در محدوده دوم ثبت كنه و بعد يكي از دستوراتي كه در كليد ثبت اطلاعات وارد مي كنيم، اين باشه كه مقدار چك باكس رو true كنه تا دستوراتش خود به خود اجرا بشه.)

سلام
لطفا کدهایی که استفاده کردین رو اینجا قرار بدین بهتون بگم چطوری اصلاحش کنید

[ظهور 313]

سلام وعرض ادب، ممنون ازتوجه شما
Private Sub CommandButton2_Click()
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("DARAMAD").Range("B13:B50000")
If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value


MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
End Sub

[Amir Ghasemiyan]

سلام وعرض ادب، ممنون ازتوجه شما
Private Sub CommandButton2_Click()
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("DARAMAD").Range("B13:B50000")
If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value


MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
End Sub

خب با این کد که شما فقط در یک شیت اطلاعاتتون رو وادر میکنید. برای شیت دیگه چه کدی نوشتین؟

اگر فایلتون رو بذارین فکر کنم بهتر بشه راهنماییتون کرد

[ظهور 313]

خب با این کد که شما فقط در یک شیت اطلاعاتتون رو وادر میکنید. برای شیت دیگه چه کدی نوشتین؟

اگر فایلتون رو بذارین فکر کنم بهتر بشه راهنماییتون کرد

خب همين ديگه، مشكل همينه، همين كد رو چه جوري تبديل كنم كه بتونم اطلاعات رو در دومحدوده ثبت كنم. شما حالا يه محدوده توي همين شيت بهش اضافه كنيد استاد
بازم از لطفتون ممنونم

[Amir Ghasemiyan]

خب همين ديگه، مشكل همينه، همين كد رو چه جوري تبديل كنم كه بتونم اطلاعات رو در دومحدوده ثبت كنم. شما حالا يه محدوده توي همين شيت بهش اضافه كنيد استاد
بازم از لطفتون ممنونم

Private Sub CommandButton2_Click()
Dim A As Range
Dim find As Boolean
find = False
For Each A In Sheets("DARAMAD").Range("B13:B50000")
If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value


MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
[COLOR="#FF0000"]aaa

یک ساب دیگه مثلا با اسم aaa بسازید و همه این کدها رو داخلش قرار بدین فقط محدوده رو عوض کنید.  بعد در ساب قبلی فراخوانی کنید. من یک نمونه کامل میذارم براتون.

End Sub

'---------------------------------------------------

[COLOR="#FF0000"]Private Sub aaa()
[/COLOR]Dim A As Range
Dim find As Boolean
find = False
[COLOR="#008000"]For Each A In Sheets("DARAMAD").Range("D13:D50000")
[/COLOR]If A = "" Then
A.Offset(0, 0) = Sheets("DARAMAD").Range("B11")
A.Offset(0, 1) = TextBox3.Value
A.Offset(0, 2) = Sheets("DARAMAD").Range("D11")
A.Offset(0, 3) = TextBox6.Value
A.Offset(0, 4) = TextBox1.Value
A.Offset(0, 5) = ComboBox4.Value
A.Offset(0, 6) = TextBox4.Value
A.Offset(0, 7) = TextBox5.Value


MsgBox "پروژه جديد، با موفقيت ثبت شد.", vbOKOnly, "ثبت اطلاعات"


UserForm_PROJE.Hide
find = True
Exit Sub
End If
Next A
End Sub

[/COLOR]

[ظهور 313]

ممنون استاد خيلي عالي بود