با درود
این کد رو برای کامن باتن 3 فرمت بنویس
کد:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = TextBox1.Text
Const sRng As String = "c5:g6"
Const dRng As String = ("c5:g6")
With Sheets(TextBox1.Text)
.Range(dRng).Value = Sheet1.Range(sRng).Value
End With
Application.ScreenUpdating = True
Sheets(TextBox1.Text).Select
End Sub
بعدشم خو معلومه نباید جواب بده - یه متغییر Stringe داری و بعد تو رنج اونج.ری ایراد میگیره - در ضمن حلقه For گذاشتی که چی بشه - شیت مبدا و مقصد ت معلوم نیست یعنی کد هات کلا اشتباهه - اونی که میبینی درست عمل میکرده خو ماله یه شیت بوده و برای همین تو With فقط یه شیت برسی شد - در کل کد ها رو با خودت مقایسه کن میفهمی ایراد کجاست - حلق هم نمیخواد گلم - در ضمن رنج هاتو هم هر جا خواستی بزار من تستی گذاشتم
علاقه مندی ها (Bookmarks)