Dữ liệu nhập vào ở dòng trên cùng (2 người xem)

[Excel365]

Nhờ các anh chị giúp em viết code làm sao để dữ liệu mới nhập vào sẽ luôn ở dòng trên cùng
Trân trọng cảm ơn

 

[trung984]

Nhờ các anh chị giúp em viết code làm sao để dữ liệu mới nhập vào sẽ luôn ở dòng trên cùng
Trân trọng cảm ơn

Câu hỏi chưa rõ ràng, cần cụ thể hơn, ví dụ:

- Khi nhập vào sẽ luôn ở dòng trên cùng, vậy thì dữ liệu cũ có được Insert xuống dòng hay ghi đè lên dữ liệu cũ.

 

[phuyen89]

Câu hỏi chưa rõ ràng, cần cụ thể hơn, ví dụ:

- Khi nhập vào sẽ luôn ở dòng trên cùng, vậy thì dữ liệu cũ có được Insert xuống dòng hay ghi đè lên dữ liệu cũ.

Em cũng định hỏi chủ Topic.
Sau khi nhập xong rồi!, copy sang đâu, sheet nào, và dữ liệu cũ bị xuống dòng hay ghi đè vào luôn.

 

[phuyen89]

Nhờ các anh chị giúp em viết code làm sao để dữ liệu mới nhập vào sẽ luôn ở dòng trên cùng
Trân trọng cảm ơn

Bạn chèn 1 module và paste Sub này vào, bạn biến đổi và đưa vào sự kiện Change của Worksheet, nhé!

Sub CopyRow()
    Sheets("VR-2015").Rows("10:10").Copy
    Sheets("Báo cáo").Rows("10:10").Insert Shift:=xlDown
    Rows("10:10").ClearContents
    Application.CutCopyMode = False
End Sub

 

[Excel365]

Câu hỏi chưa rõ ràng, cần cụ thể hơn, ví dụ:

- Khi nhập vào sẽ luôn ở dòng trên cùng, vậy thì dữ liệu cũ có được Insert xuống dòng hay ghi đè lên dữ liệu cũ.

Cám ơn bạn đã quan tâm.
Dữ liệu cũ sẽ được Insert xuống dòng dưới đó bạn.
Rất mong nhận được sự hỗ trợ của bạn

 

[Excel365]

Bạn chèn 1 module và paste Sub này vào, bạn biến đổi và đưa vào sự kiện Change của Worksheet, nhé!

Sub CopyRow()
    Sheets("VR-2015").Rows("10:10").Copy
    Sheets("Báo cáo").Rows("10:10").Insert Shift:=xlDown
    Rows("10:10").ClearContents
    Application.CutCopyMode = False
End Sub

Cám ơn bạn. Nhưng sao mình không có copy qua sheet bao cáo bạn ơi. chỉ Insert nó xuống dòng dưới thôi

 

[Excel365]

[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)'
If Intersect(Target, [E10:G10000]) Is Nothing Then End
Dim Arr()
Application.EnableEvents = False
On Error Resume Next
Call STT


Arr = Cells(Target.Row, 5).Resize(, 3).Value
If Arr(1, 1) <> "" And Arr(1, 2) <> "" And Arr(1, 3) = "" Then
Arr(1, 3) = Arr(1, 2) + Arr(1, 1) - 1
ElseIf Arr(1, 1) <> "" And Arr(1, 2) = "" And Arr(1, 3) <> "" Then
Arr(1, 2) = Arr(1, 3) - Arr(1, 1) + 1
ElseIf Arr(1, 1) = "" And Arr(1, 2) <> "" And Arr(1, 3) <> "" Then
Arr(1, 1) = Arr(1, 3) - Arr(1, 2) + 1
End If
Cells(Target.Row, 5).Resize(, 3) = Arr
Cells(Target.Row, 2) = Now
Cells(Target.Row, 2).NumberFormat = "HH:MM DD/MM/YYYY"
'----------------------
If Target.Address = "K10" Then
Call CopyRow
End If
Application.EnableEvents = True
Application.Calculation = True
End Sub[/GPECODE]


[GPECODE=vb]Sub CopyRow() Sheets("VR-2015").Rows("10:10").Copy
Sheets("VR-2015").Rows("10:10").Insert Shift:=xlDown
Rows("10:10").ClearContents
Application.CutCopyMode = False
End Sub


[/GPECODE]


Mình chèn thêm đoạn dòng 21-23 nữa thì sự kiện select change không hoạt động. Nhờ các anh chị giúp đỡ

 

[phuyen89]

Cám ơn bạn. Nhưng sao mình không có copy qua sheet bao cáo bạn ơi. chỉ Insert nó xuống dòng dưới thôi

Có đấy chứ, bạn paste vào 1 module, sau đó đánh nội dung và nhấn Alt+F8 nó sẽ chạy qua sheet Báo cáo nằm ở dòng trên cùng, và đẩy các row cũ kia xuống dưới!

 

[Excel365]

Có đấy chứ, bạn paste vào 1 module, sau đó đánh nội dung và nhấn Alt+F8 nó sẽ chạy qua sheet Báo cáo nằm ở dòng trên cùng, và đẩy các row cũ kia xuống dưới!

Không phải bạn ơi, ý mình là chỉ Insert xuóng dòng bên dưới của Sheet VR-2015, chứ không phải chèn qua sheet Báo cáo