mình cần tách file 2 sheet chính ra file mới nhưng đều có công thức liên quan đến các sheet còn lại không coppy nên khi người khác sử dụng sẽ bị lỗi ạ, diễn đàn mình không đăng file được do file rất nặng ạ
Thử code này, thay đổi nó phù hợp với yêu cầu thực tế của bạn.mình cần tách file 2 sheet chính ra file mới nhưng đều có công thức liên quan đến các sheet còn lại không coppy nên khi người khác sử dụng sẽ bị lỗi ạ, diễn đàn mình không đăng file được do file rất nặng ạ
Sub CopySheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Don dat hang", "Gimick")).Copy 'Change here
With ActiveWorkbook
.Sheets("Don dat hang").Range("O:R").Value = .Sheets("Don dat hang").Range("O:R").Value
.Sheets("Gimick").Range("N:O").Value = .Sheets("Gimick").Range("N:O").Value
.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyyMMdd_hhmmss") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close False
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubAnh cho em hỏi chút ạ. Giờ muốn copy ALL sheet trong File mà loại trừ không copy Sheet Main và Gimick thì sửa đoạn Sheets(Array("Don dat hang", "Gimick")).Copy như thế nào ạ.
Tại vì em chỉ biết chắc em không muốn copy 2 sheet Sheet Main và Gimick nhưng số lượng Sheet trong File là không cố định nên nếu liệt kê ra thì không khả thi ạ ? Em chưa biết cách viết lấy ALL sheet loại trừ 2 sheet kia ạ
có cách nào copy luôn các sheet đã ẩn mà sang sheet mới cũng ẩn và khoá luôn không ạ?
có . bấm F12 sau đó đặt tên khác
Sheets(Array("Don dat hang", "Gimick")).Copy Dim aSheet(), book As Workbook, sheet As Worksheet, count
Set book = ThisWorkbook
For Each sheet In book.Worksheets
If sheet.Name <> "Main" And sheet.Name <> "Gimick" Then
count = count + 1
ReDim Preserve aSheet(1 To count)
aSheet(count) = sheet.Name
End If
Next sheet
Sheets(aSheet).CopyOption Explicit
Sub CopySheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim aSheet(), book As Workbook, sheet As Worksheet, count
Dim bookName As String, bookNew As Workbook, rValueTuyChinh As Range
Set book = ThisWorkbook
For Each sheet In book.Worksheets
If sheet.Name <> "Main" And sheet.Name <> "Gimick" Then
count = count + 1
ReDim Preserve aSheet(1 To count)
aSheet(count) = sheet.Name
End If
Next sheet
book.Worksheets(aSheet).Copy
bookName = book .Path & "\" & Format(Now, "yyyyMMdd_hhmmss") & ".xlsx"
Set bookNew = ActiveWorkbook
With bookNew
For count = 1 To .Worksheets.count
Set sheet = .Worksheets(count)
If sheet.Name = "Don dat hang" Then
Set rValueTuyChinh = sheet.Range("O1:R100")
rValueTuyChinh.Value = rValueTuyChinh.Value
End If
Next count
.SaveAs bookName, FileFormat:=xlOpenXMLWorkbook
.Activate
'.Close False
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubĐúng vậy. Đã copy cả đống thì copy luôn cái file rồi xoá bót và/hoặc chỉnh sửa lại.
mình cũng muốn vậy nhưng dữ liệu trong file chạy theo 1 mã nhất định, mà danh sách có rất nhiều mã nên làm vậy thì mất thời gian ạ!
Dạ Anh, OT cảm ơn Anh đã góp ý ạ.Theo anh không nên code chết (hard coding) tên sheet vào code VBA vì như vậy sẽ không linh động. Muốn thay đổi tên sheet, số lượng sheet nhiều hơn lại phải can thiệp vào code VBA.
Code sử dụng vào nhiều chỗ mới cần linh động.Theo anh không nên code chết (hard coding) tên sheet vào code VBA vì như vậy sẽ không linh động. Muốn thay đổi tên sheet, số lượng sheet nhiều hơn lại phải can thiệp vào code VBA.
Chạy code xong nó im lặng ngoan ngoãn, và chả thấy điều gì xảy ra, lúc đó không biết phải hỏi ai
Vậy là sao này sẽ có bài hỏi tiếp: "em không biết VBA, giờ muốn thêm tên nhiều sheet nữa thì sửa chỗ nào anh....?" 
.
cái này thì đúng rồi, và ý của bác Vẹt là cần có một bản log cho quá trình chạy ( cái này bác ý nói nhiều, thuộc như bảng cửu chương)
Chuyện đó gần như chắc chắn sẽ xảy ra. Dầu cho bạn có viết code cách nào đi nữa.
...
Bất cứ cái gì copy/ chỉnh sửa nhiều đơn vị đều cần log.
