Xin hỏi một dòng của hSeet1 luôn luôn bằng dòng cuối cùng của Sheet2

[ducdien]

Tôi có hai Sheet , Sheet1 có dòng 4 luôn luôn bằng dòng cuối cùng của Sheet2 mỗi khi Sheet 2 nhập số liêu xong . Các anh chị hãy gúp tôi ở dòng 4 Sheet1 luôn luôn bằng dòng cuói cùng của Sheet2 khi các dòng ở Sheet2 nhập số liệu xong
Xim cảm ơm các anh các chị !

 

[Mr Okebab]

Tôi có hai Sheet , Sheet1 có dòng 4 luôn luôn bằng dòng cuối cùng của Sheet2 mỗi khi Sheet 2 nhập số liêu xong . Các anh chị hãy gúp tôi ở dòng 4 Sheet1 luôn luôn bằng dòng cuói cùng của Sheet2 khi các dòng ở Sheet2 nhập số liệu xong
Xim cảm ơm các anh các chị !

Bạn tham khảo nhé :

Thân!

 

[SA_DQ]

Them một tham khảo nhỏ

Option Explicit[b]
Private Sub Worksheet_Change(ByVal Target As Range)[/b]
    On Error Resume Next
    If Not Intersect(Target, Range("A" & Range("A65432").End(xlUp).Row)) Is Nothing Then
        Target.EntireRow.Copy Destination:=Sheets("Sheet1").Range("A4")
    End If[b]
End Sub[/b]

(húc &ui &ẽ & hạnh phúc!

 

[Mr Okebab]

Option Explicit[B]
Private Sub Worksheet_Change(ByVal Target As Range)[/B]
    On Error Resume Next
    If Not Intersect(Target, Range("A" & Range("A65432").End(xlUp).Row)) Is Nothing Then
        Target.EntireRow.Copy Destination:=Sheets("Sheet1").Range("A4")
    End If[B]
End Sub[/B]

(húc &ui &ẽ & hạnh phúc!

Copy cũng là 1 giải pháp, tuy nhiên nó sẽ copy cả format đấy (có nghĩa là format của nguồn sẽ bị xóa đi.

Thân!

 

[tedaynui]

Option Explicit[B]
Private Sub Worksheet_Change(ByVal Target As Range)[/B]
    On Error Resume Next
    If Not Intersect(Target, Range("A" & Range("A65432").End(xlUp).Row)) Is Nothing Then
        [COLOR=Red]Target.EntireRow.Copy Destination:=Sheets("Sheet1").Range("A4")[/COLOR]
    End If[B]
End Sub[/B]

(húc &ui &ẽ & hạnh phúc!

Bác SA ơi, nếu copy Value thì cú pháp thế nào, Bác giúp em với. Lâu nay em toàn Select Sheet rồi past Value. Nếu có cú pháp ngắn gọn như trên thì hay quá. Cám ơn bác SA rất nhiều !

Thân
TDN

 

[Mr Okebab]

Bác SA ơi, nếu copy Value thì cú pháp thế nào, Bác giúp em với. Lâu nay em toàn Select Sheet rồi past Value. Nếu có cú pháp ngắn gọn như trên thì hay quá. Cám ơn bác SA rất nhiều !

Thân
TDN

Tại Sheet 2 :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Sheet1.Range("A4:IV4").Value = Range("A" & Range("A65000").End(xlUp).Row & ":IV" & Range("A65000").End(xlUp).Row).Value
End Sub

Thân!

 

[tedaynui]

Cám ơn Mr.Okebab,
Cách thực hiện trên là copy 1 vùng dữ liệu liên tục nhưng nếu copy value của 1 vùng không liên tục thì sao ? ví dụ trong vùng copy có 1 số dòng ẩn mà mình chỉ muốn copy những dòng hiện.

Thân!

 

[SA_DQ]

Dễ nhìn hơn của Bắp tẹo

Option Explicit [b]
Private Sub Worksheet_Change(ByVal Target As Range)[/b]
    On Error Resume Next:         Dim Rng
     If Not Intersect(Target, Range("A" & Range("A65432").End(xlUp).Row)) Is Nothing Then
         Rng = Target.EntireRow
         Sheets("TKet").Range("$12:$12") = Rng
    End If[b]
End Sub[/b]

(òn việc Copy các dòng không ẩn thì, mình nghỉ là trước đó loại các dòng ẩn ra chổ # chơi, vậy chắc được thôi!
/)/hưng mình chưa thử lần nào đâu đó nha!
TDN thử dùng phw thức Union nối kết các dòng thõa điều kiện vô biến Rng As Range & chép thử xem sao (?)