Import file chứa hàm sang 1 file Copy không chứa hàm (2 người xem)

[bitun1991]

DEAR CÁC ANH CHỊ,

em muốn hỏi là em đang có 1 file "chưa hàm để tính toán" nhưng, em muốn xuất file excel copy có đầy đủ các sheets kết quả mà e đã tính toán nhưng "không chứa hàm tính toán" trong file đó.
Thao tác tạo bằng một nút bấm tạo file trong 1 sheets như file đính kèm.

Ai giúp e với ạ.

 

[bitun1991]

alo ai giúp với ạ

 

[snow25]

DEAR CÁC ANH CHỊ,

em muốn hỏi là em đang có 1 file "chưa hàm để tính toán" nhưng, em muốn xuất file excel copy có đầy đủ các sheets kết quả mà e đã tính toán nhưng "không chứa hàm tính toán" trong file đó.
Thao tác tạo bằng một nút bấm tạo file trong 1 sheets như file đính kèm.

Ai giúp e với ạ.

Cái này của bạn thực hiện record macro là được mà.

 

[bitun1991]

Cái này của bạn thực hiện record macro là được mà.

em làm rồi nhưng ko đc ko biết sai chỗ nào. giúp e với

 

[LamNA]

DEAR CÁC ANH CHỊ,

em muốn hỏi là em đang có 1 file "chưa hàm để tính toán" nhưng, em muốn xuất file excel copy có đầy đủ các sheets kết quả mà e đã tính toán nhưng "không chứa hàm tính toán" trong file đó.
Thao tác tạo bằng một nút bấm tạo file trong 1 sheets như file đính kèm.

Ai giúp e với ạ.

Bạn thử

Sub XuatSheet()
Application.ScreenUpdating = False
Dim J As Integer
Sheets(Array("1", "2", "3", "4", "5", "6")).Copy
  For J = 1 To Sheets.Count
  Sheets(J).Activate
  [E6:I14].Copy
  [E6:I14].PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = True
  Range("E5").Select
  Next
  Application.ScreenUpdating = True
End Sub

 

[snow25]

Bạn thử

Sub XuatSheet()
Application.ScreenUpdating = False
Dim J As Integer
Sheets(Array("1", "2", "3", "4", "5", "6")).Copy
  For J = 1 To Sheets.Count
  Sheets(J).Activate
  [E6:I14].Copy
  [E6:I14].PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = True
  Range("E5").Select
  Next
  Application.ScreenUpdating = True
End Sub

Sao không copy cả cells cho nó rộng hả bạn.

 

[LamNA]

Sao không copy cả cells cho nó rộng hả bạn.

Làm đúng theo ý của bạn ấy thôi đó anh

 

[bitun1991]

Làm đúng theo ý của bạn ấy thôi đó anh

ANH LÀM COPY CẢ SHEET ĐI ANH

Bài đã được tự động gộp: 26/3/19

Sao không copy cả cells cho nó rộng hả bạn.

CHỈ E CÁCH COP CẢ SHEET VỚI

 

[LamNA]

ANH LÀM COPY CẢ SHEET ĐI ANH

Bài đã được tự động gộp: 26/3/19

CHỈ E CÁCH COP CẢ SHEET VỚI

Bạn để ý dòng này rồi thay theo file thật của mình, vì tôi không thấy dữ liệu thật của bạn.

[E6:I14].Copy
  [E6:I14].PasteSpecial Paste:=xlPasteValues

 

[bitun1991]

Làm đúng theo ý của bạn ấy thôi đó anh

Nhưng mà e sử dụng vẫn thấy ra hàm anh ạ.
anh xem cách cop ko chứa hàm ấy ạ. như copy bình thường ấy ạ

Bài đã được tự động gộp: 26/3/19

Bạn để ý dòng này rồi thay theo file thật của mình, vì tôi không thấy dữ liệu thật của bạn.

[E6:I14].Copy
  [E6:I14].PasteSpecial Paste:=xlPasteValues

Nó vẫn ra file copy chứa hàm và hiện lên chữ này

Bài đã được tự động gộp: 26/3/19

Nhưng mà e sử dụng vẫn thấy ra hàm anh ạ.
anh xem cách cop ko chứa hàm ấy ạ. như copy bình thường ấy ạ

Bài đã được tự động gộp: 26/3/19

Nó vẫn ra file copy chứa hàm và hiện lên chữ này

 

[LamNA]

Nhưng mà e sử dụng vẫn thấy ra hàm anh ạ.
anh xem cách cop ko chứa hàm ấy ạ. như copy bình thường ấy ạ

Bài đã được tự động gộp: 26/3/19

Nó vẫn ra file copy chứa hàm và hiện lên chữ này

Bài đã được tự động gộp: 26/3/19

Bạn đang nói file bài 5 hay file của bạn?

 

[Zippoacc]

Bạn thử

Sub XuatSheet()
Application.ScreenUpdating = False
Dim J As Integer
Sheets(Array("1", "2", "3", "4", "5", "6")).Copy
  For J = 1 To Sheets.Count
  Sheets(J).Activate
  [E6:I14].Copy
  [E6:I14].PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = True
  Range("E5").Select
  Next
  Application.ScreenUpdating = True
End Sub

các bạn cho mình hỏi thêm xíu, nếu mình không chỉ copy 6 sheet, mà số sheets copy rất nhiều thì mình làm cách nào ạ. XIn cảm ơn ạ

 

[quick87]

các bạn cho mình hỏi thêm xíu, nếu mình không chỉ copy 6 sheet, mà số sheets copy rất nhiều thì mình làm cách nào ạ. XIn cảm ơn ạ

Bạn thử code dưới nhé:

Sub XuatSheet()
    Application.ScreenUpdating = FALSE
    Dim J           As Integer
    Sheets.Copy
    For J = 1 To Sheets.Count
        Sheets(J).Activate
        [E6:I14].Copy
        [E6:I14].PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = TRUE
        Range("E5").Select
    Next
    Application.ScreenUpdating = TRUE
End Sub

 

[Zippoacc]

Bạn thử code dưới nhé:

Sub XuatSheet()
    Application.ScreenUpdating = FALSE
    Dim J           As Integer
    Sheets.Copy
    For J = 1 To Sheets.Count
        Sheets(J).Activate
        [E6:I14].Copy
        [E6:I14].PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = TRUE
        Range("E5").Select
    Next
    Application.ScreenUpdating = TRUE
End Sub

cảm ơn bạn rất nhiều