Tự động Copy một số Sheet cần thiết từ file này sang file mới giữ nguyên định dạng? (1 người xem)

[nqdn2010]

Cả tuần nay tôi search rất nhiều bài có nội dung tương tự vấn đề trên, tuy nhiên tải về với kiến thức VBA quá tệ, mò mãi mà không đáp ứng được nhu cầu (Tôi có gởi yêu cầu trong tập tin đính kèm!). Nên mở Đề tài này mong các thành viên chỉ giáo. Nếu có rồi xin chỉ cho tôi đường Link.
Tôi xin cám ơn! Chúc cuối tuần vui khỏe!

 

[Quang_Hải]

Bài toán này đối với mình thì quá đơn giản nhưng không biết là dữ liệu sau khi copy sẽ nằm chỗ cũ hay lày ở đâu?
Chẳng hạn như vùng D3:I20 của Lay3 sẽ nằm tại chỗ nào trong sheet mới?

 

[HungQuoc49]

Cả tuần nay tôi search rất nhiều bài có nội dung tương tự vấn đề trên, tuy nhiên tải về với kiến thức VBA quá tệ, mò mãi mà không đáp ứng được nhu cầu (Tôi có gởi yêu cầu trong tập tin đính kèm!). Nên mở Đề tài này mong các thành viên chỉ giáo. Nếu có rồi xin chỉ cho tôi đường Link.
Tôi xin cám ơn! Chúc cuối tuần vui khỏe!

Vùng tô màu trong sheet là liên tục hay là không?

 

[nqdn2010]

Bài toán này đối với mình thì quá đơn giản nhưng không biết là dữ liệu sau khi copy sẽ nằm chỗ cũ hay lày ở đâu?
Chẳng hạn như vùng D3:I20 của Lay3 sẽ nằm tại chỗ nào trong sheet mới?

Xin lỗi! Từ sáng tới giờ cúp điện. Nôn nóng, bực bội vô cùng. vừa có nhảy lên liền nên trả lời Anh muộn, mong Anh thông cảm!
Dữ liệu mới Được copy như vị trí của file nguồn (Vẫn vùng D3:I20 của Lay3, . . .)!
Cám ơn Anh!

 

[Quang_Hải]

Xin lỗi! Từ sáng tới giờ cúp điện. Nôn nóng, bực bội vô cùng. vừa có nhảy lên liền nên trả lời Anh muộn, mong Anh thông cảm!
Dữ liệu mới Được copy như vị trí của file nguồn (Vẫn vùng D3:I20 của Lay3, . . .)!
Cám ơn Anh!

Xem file đính kèm. Tự nghiên cứu coi tại sao nha.

 

[nqdn2010]

Xem file đính kèm. Tự nghiên cứu coi tại sao nha.

Cám ơn anh trước, để em xem thử!

 

[nqdn2010]

Anh xem lại hộ em điều này
- khi trong vùng cần copy có chứa công thức thì không ốn! Em chỉ muốn copy giá trị dữ liệu thô thôi.

 

[nqdn2010]

Em chỉnh sửa code
ActiveSheet.Range(RngToCopy).PasteSpecial 1
Thành
ActiveSheet.Range(RngToCopy).PasteSpecial 3
Thì không còn định dạng (Đóng khung, độ rộng ô, . . .) không còn!

 

[Quang_Hải]

Em chỉnh sửa code
ActiveSheet.Range(RngToCopy).PasteSpecial 1
Thành
ActiveSheet.Range(RngToCopy).PasteSpecial 3
Thì không còn định dạng (Đóng khung, độ rộng ô, . . .) không còn!

Phần khó mình đã làm rồi, phần còn lại dễ quá mà
Thay vì dán 1, mình dán 4 trước, sau đó dán 3 là xong. Chưa vừa ý nữa thì Record macro rồi sửa tiếp. Mình cũng toàn làm vậy thôi

Sub copyyy()
Application.DisplayAlerts = False
Dim sh, ShToCopy(), i, RngToCopy As String, TemName
For Each sh In Worksheets
   If sh.Name Like "Lay" & "*" Then
      i = i + 1
      ReDim Preserve ShToCopy(1 To i)
      ShToCopy(i) = sh.Name
   End If
Next
Sheets(ShToCopy).Copy
With ActiveWorkbook
   For Each sh In .Worksheets
      TemName = sh.Name
      RngToCopy = sh.[A1]
      sh.Range(RngToCopy).Copy
      Sheets.Add
      ActiveSheet.Range(RngToCopy).PasteSpecial 4
      ActiveSheet.Range(RngToCopy).PasteSpecial 3
      sh.Delete
      ActiveSheet.Name = TemName
   Next
End With
Application.DisplayAlerts = True
End Sub

 

[nqdn2010]

Tuyệt vời! Cám ơn anh nhiều!
Do VBA ngốc! Em "ngâm cứu" code của anh hoài, Đơn giản nhưng hiệu quả!
Tuy nhiên em tìm mãi mà không hiểu điều này mong anh giải thích
- Ở code em không thấy anh đặt vùng dữ liệu để lấy ở các Sheet, Vậy làm cách nào Anh hô biến chính xác từng ô cần lấy ở từng sheet qua file mới vậy?
Giả sử em muốn lấy vùng dữ liệu khác thì làm thế nào hả anh?