سلام دوستان
می خواستم هر بار با کلیک روی دکمه طراحی شده یک تیبل ایجاد بشه .ممنون میشم اگر راهنمایی کنید
می خواستم هر بار با کلیک روی دکمه طراحی شده یک تیبل ایجاد بشه .ممنون میشم اگر راهنمایی کنید
Sub Macro1()
Dim nn = 1n = Sheet1.ListObjects.Count ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$" & n * 13 & ":$G$" & n * 13 + 11), , xlNo).Name = _ "Table" & n End Sub
Sub Macro1()
Range("B4:H24").Select
Selection.Copy
Range("B1000000").Select
Selection.End(xlUp).Select
ActiveSheet.Paste
End Sub
کامنت