سلام
من یه دکمه دارم داخل یک شیتم که مربوط به پرینت هست:
اینم کدهاش:
Sub BTamin12_RoundedRectangle6_Click()
Dim z
z = Cells(Rows.Count, "A").End(xlUp).Row
Sheet2.PageSetup.PrintArea = "$A$1:$H$" & z
Sheet2.PrintPreview
End Sub
حالا من میخوام این شیت رو کپی کنم و تمام اطلاعاتش رو کپی کنم.
حالا وقتی که من کپی میکنم در اون شیتی که کپی شده وقتی این دکمه رو میزنم، اون صفحه ای که اصلی هست اونو کپی میگیره
دلیلش هم اون بخش از کد هست که نوشته شده sheet2
حالا نمیشه کد رو ویرایش کرد که با کپی کردن یک شیت جدید فقط اون شیت رو پرینت بگیره؟
و یه سوال دیگه هم که شبیه این هست.
اینه که من یه فرم دارم که میخوام داخل شیت هام باشه، شیت هام هم حدود 10 تاست . من فقط برای شیت اول درست کردم و وقتی شیت رو کپی میکنم و وقتی این فرم رو میزنم اطلاعات به اون شیت اول میره. راهی وجود داره که من وقتی شیت رو کپی میکنم اون فرم هم برای اون شیت بشه؟
دوستان اگر راهنمایی کنن ممنون میشم
اینم کد فرمی که درست کردم:
Private Sub CommandButton1_Click()
Dim num As Integer
Sheets("B-Tamin-1-2").Activate
num = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(num, 1) = TextBox1.Value
Cells(num, 2) = TextBox2.Value
Cells(num, 3) = TextBox3.Value
Cells(num, 4) = TextBox4.Value
Cells(num, 5) = TextBox5.Value
Cells(num, 6) = TextBox6.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Text = Val(TextBox4.Value) * Val(TextBox5.Value)
End Sub
من یه دکمه دارم داخل یک شیتم که مربوط به پرینت هست:
اینم کدهاش:
Sub BTamin12_RoundedRectangle6_Click()
Dim z
z = Cells(Rows.Count, "A").End(xlUp).Row
Sheet2.PageSetup.PrintArea = "$A$1:$H$" & z
Sheet2.PrintPreview
End Sub
حالا من میخوام این شیت رو کپی کنم و تمام اطلاعاتش رو کپی کنم.
حالا وقتی که من کپی میکنم در اون شیتی که کپی شده وقتی این دکمه رو میزنم، اون صفحه ای که اصلی هست اونو کپی میگیره
دلیلش هم اون بخش از کد هست که نوشته شده sheet2
حالا نمیشه کد رو ویرایش کرد که با کپی کردن یک شیت جدید فقط اون شیت رو پرینت بگیره؟
و یه سوال دیگه هم که شبیه این هست.
اینه که من یه فرم دارم که میخوام داخل شیت هام باشه، شیت هام هم حدود 10 تاست . من فقط برای شیت اول درست کردم و وقتی شیت رو کپی میکنم و وقتی این فرم رو میزنم اطلاعات به اون شیت اول میره. راهی وجود داره که من وقتی شیت رو کپی میکنم اون فرم هم برای اون شیت بشه؟
دوستان اگر راهنمایی کنن ممنون میشم
اینم کد فرمی که درست کردم:
Private Sub CommandButton1_Click()
Dim num As Integer
Sheets("B-Tamin-1-2").Activate
num = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(num, 1) = TextBox1.Value
Cells(num, 2) = TextBox2.Value
Cells(num, 3) = TextBox3.Value
Cells(num, 4) = TextBox4.Value
Cells(num, 5) = TextBox5.Value
Cells(num, 6) = TextBox6.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox1.SetFocus
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Text = Val(TextBox4.Value) * Val(TextBox5.Value)
End Sub
کامنت