Xin code copy dữ liệu giữ nguyên định dạng.

[Thanhlam2425]

Nhờ Anh Chị giúp đỡ em viết code.Copy dữ liệu từ sheets 1 sang sheets2.Giống hệt sheets 1 và loại bỏ hết công thức.Em cảm ơn.

 

[Thanhlam2425]

Mọi người giúp em với ạ.

 

[VetMini]

Thâu record macro:
- Xoá sheet2
- Copy sheet1 ra sheet mới
- Chọn cả sheet mới (ctrl+a)
- Paste Value.
Ngưng record.

 

[Thanhlam2425]

Thâu record macro:
- Xoá sheet2
- Copy sheet1 ra sheet mới
- Chọn cả sheet mới (ctrl+a)
- Paste Value.
Ngưng record.

Cháu cảm ơn bác VietMini đã góp ý ạ.Nhưng cái cháu muốn là chỉ copy một vùng dữ liệu sang sheets 2 thôi ạ.Vì bên sheets 2 của cháu có dữ liệu không xóa được ạ.Mong bác giúp cháu thêm ạ.

 

[Ba Tê]

Cháu cảm ơn bác VietMini đã góp ý ạ.Nhưng cái cháu muốn là chỉ copy một vùng dữ liệu sang sheets 2 thôi ạ.Vì bên sheets 2 của cháu có dữ liệu không xóa được ạ.Mong bác giúp cháu thêm ạ.

Đọc kỹ hướng dẫn sử dụng trước khi dùng.
Lầm thuốc chết ráng chịu.

 

[Thanhlam2425]

Đọc kỹ hướng dẫn sử dụng trước khi dùng.
Lầm thuốc chết ráng chịu.

Bác Ba Tê viết hộ cháu đoạn code này với ạ.Cháu cảm ơn bác.

 

[Ba Tê]

THA-SIN 2-0
VIE-PHI ........8-0

 

[be_09]

Nhờ Anh Chị giúp đỡ em viết code.Copy dữ liệu từ sheets 1 sang sheets2.Giống hệt sheets 1 và loại bỏ hết công thức.Em cảm ơn.

Góp ý cho bạn:
Bạn làm ngược, người ta dựa vào sheet theo dõi hợp đồng để lấy dữ liệu sang sheet1.

 

[Thanhlam2425]

Góp ý cho bạn:
Bạn làm ngược, người ta dựa vào sheet theo dõi hợp đồng để lấy dữ liệu sang sheet1.

Vâng.Đây là người ta gửi cho em.Nên em muốn copy nó sang để còn gửi mail.Nhưng mà File người ta gửi không đúng 1 mẫu nên nó bị lỗi.Giờ em đang tìm cách copy cả định rạng sang ạ.

 

[HieuCD]

Nhờ Anh Chị giúp đỡ em viết code.Copy dữ liệu từ sheets 1 sang sheets2.Giống hệt sheets 1 và loại bỏ hết công thức.Em cảm ơn.

Sub CopyReport()
  Dim i As Integer, j As Byte, eRow As Long, sh As Worksheet
  Set sh = Sheets("sheet2")
  Application.ScreenUpdating = False
  'sh.UsedRange.Clear 'Xóa toàn bo du lieu sheet2
  With Sheets("sheet1")
    For j = 1 To 7
      i = .Cells(65000, j).End(xlUp).Row
      If i > eRow Then eRow = i
    Next j
    .Range("A1:G" & eRow).Copy
    sh.Range("A1").PasteSpecial (xlPasteFormats)
    Application.CutCopyMode = False
    sh.Range("A1:G" & eRow).Value = .Range("A1:G" & eRow).Value
    For i = 1 To eRow
      sh.Rows(i).RowHeight = .Rows(i).RowHeight
    Next i
    For j = 1 To 7
      sh.Columns(j).ColumnWidth = .Columns(j).ColumnWidth
    Next j
  End With
  Application.ScreenUpdating = True
End Sub

 

[be_09]

Vâng.Đây là người ta gửi cho em.Nên em muốn copy nó sang để còn gửi mail.Nhưng mà File người ta gửi không đúng 1 mẫu nên nó bị lỗi.Giờ em đang tìm cách copy cả định rạng sang ạ.

Nếu File người ta gửi thì chọn File rồi lấy vào 1 sheet nào đó, sau khi xử lý xong thì xuất sheet đó ra File mới rồi gửi Mail.

 

[VetMini]

Nếu File người ta gửi thì chọn File rồi lấy vào 1 sheet nào đó, sao khi xử lý xong thì xuất sheet đó ra File mới rồi gửi Mail.

Đối với nhiều người ở đây, công việc ấy tốn rất nhiều lao động.
Cách "tối ưu" là xin code rồi bấm 1 phát cho xong.

 

[Thanhlam2425]

Sub CopyReport()
  Dim i As Integer, j As Byte, eRow As Long, sh As Worksheet
  Set sh = Sheets("sheet2")
  Application.ScreenUpdating = False
  'sh.UsedRange.Clear 'Xóa toàn bo du lieu sheet2
  With Sheets("sheet1")
    For j = 1 To 7
      i = .Cells(65000, j).End(xlUp).Row
      If i > eRow Then eRow = i
    Next j
    .Range("A1:G" & eRow).Copy
    sh.Range("A1").PasteSpecial (xlPasteFormats)
    Application.CutCopyMode = False
    sh.Range("A1:G" & eRow).Value = .Range("A1:G" & eRow).Value
    For i = 1 To eRow
      sh.Rows(i).RowHeight = .Rows(i).RowHeight
    Next i
    For j = 1 To 7
      sh.Columns(j).ColumnWidth = .Columns(j).ColumnWidth
    Next j
  End With
  Application.ScreenUpdating = True
End Sub

Cảm ơn Anh Hiếu ạ.

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

Đối với nhiều người ở đây, công việc ấy tốn rất nhiều lao động.
Cách "tối ưu" là xin code rồi bấm 1 phát cho xong.

Giạ đây là file kế toán gửi cho cháu trong đó có rất nhiều sheets như thế này nhưng cấu trúc không giống nhau ạ.Cháu định làm là chọn 1 tên sheets thì sẽ hiện ra luôn kết quả của sheets đó ạ.
Cháu cảm ơn bác đã giúp đỡ ạ.