Nhờ mọi người sửa giúp VBA copy và xuất file

[Minhkhoi1206]

Do bị nhắc nhở là bài đăng sai chủ đề nêm xin phép admin đăng lại để nhờ mọi người trợ giúp.
Mình mới tự học nên lọ mọ viết cái hàm copy dữ liệu các sheet nhưng hiện tại còn vướng mắc vấn đề sau nhờ mọi người giúp đỡ ạ:
1. Dữ liệu sheet gốc có chứa lệnh nên khi copy sang các sheet để xuất ra nó bị mất số 0 ở đầu các cột định dạng giá trị là số
2. Hàm xuất ra mới chỉ làm được đến đặt tên file và chỉ xuất được 1 sheet và chưa lưu ra ngoài màn hình đươc

Sub Copy_Sheet()
Sheet1.Activate 'Chon Sheet tra ket qua
Sheet2.Activate 'Chon Sheet tra ket qua
Sheet3.Activate 'Chon Sheet tra ket qua
Sheet4.Activate 'Chon Sheet tra ket qua
Sheet5.Select 'Chon Sheet xu ly

'Dinh dang co chu
Sheet2.Range("A2:AT1000").Font.Size = 10
Sheet3.Range("A2:W1000").Font.Size = 10
Sheet5.Range("A3:AO1000").Font.Size = 10
'Tu dong lam vua o chua
Sheet2.Range("A1:AT1").EntireRow.RowHeight = 30
Sheet3.Range("A1:W1").EntireRow.RowHeight = 30
Sheet5.Range("A2:AO2").EntireRow.RowHeight = 30
Sheet2.Range("A2:A1000").EntireColumn.AutoFit
Sheet2.Range("A2:A1000").EntireRow.AutoFit
Sheet3.Range("A2:A1000").EntireColumn.AutoFit
Sheet3.Range("A2:A1000").EntireRow.AutoFit
Sheet5.Range("A2:A1000").EntireColumn.AutoFit
Sheet5.Range("A2:A1000").EntireRow.AutoFit
Sheet4.Range("A2:C2").EntireColumn.AutoFit
Sheet4.Range("A2:C2").EntireRow.AutoFit

'Dinh dang ngay thang
Sheet2.Range("D21000").NumberFormat = "dd/mm/yyyy"
Sheet2.Range("AA2:AA1000").NumberFormat = "dd/mm/yyyy"
Sheet2.Range("AC2:AD1000").NumberFormat = "mm/yyyy"
Sheet2.Range("AR2:AR1000").NumberFormat = "dd/mm/yyyy"
Sheet3.Range("N2:N1000").NumberFormat = "dd/mm/yyyy"

'Copy du lieu Sheet Import
Sheet2.Range("A2:A1000").Value = Sheet5.Range("AB3:AB1001").Value
Sheet2.Range("C21000").Value = Sheet5.Range("AC3:AD1001").Value
Sheet2.Range("E2:F1000").Value = Sheet5.Range("J3:K1001").Value
Sheet2.Range("H2:J1000").Value = Sheet5.Range("L3:N1001").Value
Sheet2.Range("K2:K1000").Value = Sheet5.Range("P31001").Value
Sheet2.Range("R2:T1000").Value = Sheet5.Range("AE3:AG1001").Value
Sheet2.Range("AA2:AA1000").Value = Sheet5.Range("AH3:AH1001").Value
Sheet2.Range("AB2:AB1000").Value = Sheet5.Range("U3:U1001").Value
Sheet2.Range("AC2:AC1000").Value = Sheet5.Range("AI3:AI1001").Value
Sheet2.Range("AE2:AE1000").Value = Sheet5.Range("AJ3:AJ1001").Value
Sheet2.Range("AJ2:AJ1000").Value = Sheet5.Range("AK3:AK1001").Value
Sheet2.Range("AL2:AM1000").Value = Sheet5.Range("AL3:AM1001").Value
Sheet2.Range("AN2:AN1000").Value = Sheet5.Range("R3:R1001").Value
Sheet2.Range("AR2:AS1000").Value = Sheet5.Range("AN3:AO1001").Value

'Copy du lieu Sheet HGD
Sheet3.Range("B2:C1000").Value = Sheet5.Range("A3:B1001").Value
Sheet3.Range("D21000").Value = Sheet5.Range("D31001").Value
Sheet3.Range("E2:F1000").Value = Sheet5.Range("E3:F1001").Value
Sheet3.Range("G2:I1000").Value = Sheet5.Range("AE3:AG1001").Value
Sheet3.Range("K2:L1000").Value = Sheet5.Range("G3:H1001").Value
Sheet3.Range("N21000").Value = Sheet5.Range("I3:K1001").Value
Sheet3.Range("Q2:S1000").Value = Sheet5.Range("L3:N1001").Value
Sheet3.Range("T2:U1000").Value = Sheet5.Range("O31001").Value
Sheet3.Range("W2:W1000").Value = Sheet5.Range("C3:C1001").Value

'Copy du lieu Sheet Ghi chu
Sheet4.Range("A2:A2").Value = Sheet5.Range("AB1:AD1").Value
Sheet4.Range("B2:B2").Value = Sheet5.Range("AE1:AH1").Value
Sheet4.Range("C2:C2").Value = Sheet5.Range("AI1:AO1").Value

'Export_File
Dim Path As String, NameFile As String
NameFile = Sheet5.Range("AB1")
Sheets(Sheet2.Name).Copy
ActiveWorkbook.Close True, Path & NameFile & ".xlsx"


Application.CutCopyMode = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub

 

[Minhkhoi1206]

Trong file của bạn có code rồi. nó chưa đáp ứng được nhu cầu của bạn à
Tại thấy bạn cứ nói sheet3 và sheet4. nó là sheetcodename hay là số thứ tự sheet từ trái qua phải vậy

sheet theo thứ tự trong vba ban ạ

 

[Minhkhoi1206]

Thank cả nhà m tự xử lý đc rồi do thiếu 1 dòng lệnh