Xin chào khóa học !
Tôi có vấn đề này nhời các Thầy giúp.
Tôi muốn lấy dữ liệu từ B8 đến dòng cuối cột B (23/8/2021) - Ngày hiện tại (03/8/2021) và ghi dữ liệu vào H8 đến dòng cuối cột H (20)
Thì phải viết code như sao ah?
Xin cảm ơn.
chào bạn bạn có thể mô tả rõ hơn không lấy dữ liệu ở đâu? bạn có thể xem chương 8 và chương 10 có phần lấy dữ liệu đó.
Xin chào Tuấn Ba.
Tôi lấy và nhận kết quả trên cùng sheet2.
Tôi muốn làm.
khi có thay đổi về dữ liệu trong Sheet2.
Thì trong Cột H (Từ H8 đến dòng cuối) sẽ nhận được kết quả:
B8 đến dòng cuối (dạng dữ liệu dd/mm/yyyy) - ngày hiện tại
(Mục đích là để đếm lùi ngày từ H8 đến dòng cuối)
Trân trọng cảm ơn.
Chào bạn bạn có thể làm như sau
Option Explicit
Sub laydulieu()
Dim dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet2.Range("A1:A" & dc).Value = Sheet1.Range("A1:A" & dc).Value
End Sub
Xin chào Thầy !
Code thầy hướng dẩn tôi vẫn chưa làm được ah.
Tôi muốn lấy dữ liệu từ dòng B8 đến dòng cuối cột B ( Có dạng dd/mm/yyyy)
Trừ đi NGÀY HIÊN TẠI và ghi dữ liệu vào dòng H8 đến dòng cuối cột H .
Dữ liệu này nằm trong cùng Sheet1.
Trân trọng cảm ơn Thầy.
Chào bạn bạn dùng vòng lặp để lấy dữ liệu sang nhé. bạn có thể đẩy file lên không?
Chào bạn bạn cho gitiho xin quyền truy cập nhé.
Chào bạn bạn cho gitiho xin quyền truy cập nhé.
Chào bạn hiện tại gitiho vẫn không có quyền truy cập bạn nhé.
Chào bạn File này bạn đang muốn nói gì với gitiho nhỉ
Xin chào Tuấn Ba
Tôi cần lấy A2 Trừ "NGÀY HIỆN TẠI" và kết quả được ghi tại B2
Thực hiện đến dòng cuối dữ liệu
Xin cảm ơn.
Chào bạn code sẽ như sau nhé
Option Explicit
Sub Tinhngaythuchien()
' Tạo ra biến dòng cuối và biến i
Dim dc As Long, i As Long
' Tìm dòng cuối có chứa dữ liệu
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
'Duyệt vòng lặp
For i = 2 To dc
'Ghi dữ liệu ra cột C
Sheet1.Range("C" & i).Value = DateDiff("d", Now, Sheet1.Range("A" & i))
Next i
End Sub
Chào Tuấn Ba
Code đã chạy được rồi ah.
Cảm ơn Thầy !
Chúc bạn học tốt cùng gitiho