Xin giúp đỡ về lấy thông tin từ sheet1 truyền sang sheet2 trong cùng cửa sổ làm việc

[hungvietuc1]

Chào các anh chi
Em đang có vấn đề khi làm việc với excel.
Chả là em có làm 1 cái yêu cầu như sau...

- click vào 1 button trên 1 sheet(Sheet1) nó sẽ tư động tạo 1 sheet với tên là ngày hiện tại và trong sheet mới sẽ tự động lấy thông tin ở Sheet1.

Em mới tập tành sử dụng mong các anh chị giúp đỡ ạ...
em xin cảm ơn...

View more random threads:

• Giải thích code VBA cho các newer VBA
• Hỏi về cách xử lý số liệu excel, mong mọi người xem nội dung và hỗ trợ giúp!
• [HELP] Gộp dữ liệu cột với nhau ?
• Xin chỉ cách tính tổng với điều kiện ngày tháng
• đối chiếu dữ liệu
• Giúp xử lý Code Copy dữ liệu từ Sheets sang Sheets
• Gộp nhiều cột nối tiếp nhau theo điều kiện
• Lập trình VBA
• Mất chức năng undo và redo trong excel nếu dùng code trong vba
• Chấm điểm với nhiều điều kiện

[thangthang69]

Chào các anh chi
Em đang có vấn đề khi làm việc với excel.
Chả là em có làm 1 cái yêu cầu như sau...

- click vào 1 button trên 1 sheet(Sheet1) nó sẽ tư động tạo 1 sheet với tên là ngày hiện tại và trong sheet mới sẽ tự động lấy thông tin ở Sheet1.

Em mới tập tành sử dụng mong các anh chị giúp đỡ ạ...
em xin cảm ơn...

Thử code này xem sao

Sub GPE()
On Error Resume Next
With ActiveSheet
   .Copy After:=Sheets(.Name)
   ActiveSheet.Name = Day(Now())
End With
End Sub

[hantrongtai1]

Cảm ơn anh nmHung49,
em muốn hỏi thêm là, khi copy dữ liệu từ Sheet1 Sang Sheet mới vừa tạo ý, thì dữ liệu hiển thị theo ý mình ý ạ.
anh có thể chỉ giúp em cách làm không ạ?

[trung_vip2]

Cảm ơn anh nmHung49,
em muốn hỏi thêm là, khi copy dữ liệu từ Sheet1 Sang Sheet mới vừa tạo ý, thì dữ liệu hiển thị theo ý mình ý ạ.
anh có thể chỉ giúp em cách làm không ạ?

Không hiểu ý cho lắm

Sub Test()
Dim n As String
n = Day(Now()) 'Ten sheet moi add
Sheets.Add.Name = n
With Sheets(n)
    Sheets("Sheet1").Range("A1:A10").Copy .Range("A1")
    'Range("A1:A10") vung du lieu muon copy
End With
End Sub