nguyentebby
Thành viên mới
- Tham gia
- 20/4/21
- Bài viết
- 18
- Được thích
- 0
Chào mọi người, mình là thành viên mới, mình có 1 đoạn VBA đã hoàn thành, nhưng do sheet cần copy có link với các dữ liệu trong sheet còn lại nên người khác xem và sử dụng file bị lỗi, do đó nhờ mọi người giúp đỡ ạ. Mình cần như sau 2 cách sau:
1- Copy đúng sheet mình cần (don dat hang và gimick), nhưng những phần liên quan công thức sheet còn lại sẽ được paste value (sheet don dat hang cột O,P,Q,R, sheet gimick cột N,O)
2- Copy tất cả các sheet sang file mới
Mong mọi người giúp đỡ ạ. Xin cảm ơn!
Sub taods()
Dim i As Integer
'Bo qua canh bao
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Gan gia tri dau tien
i = 2
'Quet tung ma NPP
With ThisWorkbook.Sheets("Giai thich")
While (.Cells(i, 22) <> "")
'Gan ma NPP vao o A6
ThisWorkbook.Sheets("Don Dat Hang").Cells(6, 1) = ThisWorkbook.Sheets("Giai thich").Cells(i, 22)
'Trich xuat file
ActiveWindow.SelectedSheets.Copy
'Luu file sau khi trich xuat vao folder moi
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "020721_" & .Cells(i, 23) & ".xlsx"
ActiveWorkbook.Close
i = i + 1
Wend
End With
'Hien thong bao ket thuc
MsgBox "Da xuat file!"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
1- Copy đúng sheet mình cần (don dat hang và gimick), nhưng những phần liên quan công thức sheet còn lại sẽ được paste value (sheet don dat hang cột O,P,Q,R, sheet gimick cột N,O)
2- Copy tất cả các sheet sang file mới
Mong mọi người giúp đỡ ạ. Xin cảm ơn!
Sub taods()
Dim i As Integer
'Bo qua canh bao
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Gan gia tri dau tien
i = 2
'Quet tung ma NPP
With ThisWorkbook.Sheets("Giai thich")
While (.Cells(i, 22) <> "")
'Gan ma NPP vao o A6
ThisWorkbook.Sheets("Don Dat Hang").Cells(6, 1) = ThisWorkbook.Sheets("Giai thich").Cells(i, 22)
'Trich xuat file
ActiveWindow.SelectedSheets.Copy
'Luu file sau khi trich xuat vao folder moi
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "020721_" & .Cells(i, 23) & ".xlsx"
ActiveWorkbook.Close
i = i + 1
Wend
End With
'Hien thong bao ket thuc
MsgBox "Da xuat file!"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
