xin hỏi các thầy dùng code lấy dữ liệu màu đỏ của sheet1 điền vào sheet2 tự động không

[maiban116]

ví dụ em tải lên nhờ các bác tải về giúp e

 

[phulien1902]

ví dụ em tải lên nhờ các bác tải về giúp e

Điền vào chỗ nào trong Sheet2 hả bạn?
Code:

  Sheet1.[J5].CurrentRegion.Copy
  Sheet2.Range("vi tri Cell cua ban").PasteSpecial
  Application.CutCopyMode = False

 

[be_09]

Điền vào chỗ nào trong Sheet2 hả bạn?

Hỏi vầy mới đúng nè:
Sheet1 toàn bộ là chữ màu đỏ (không có Font Color nào khác nhĩ), Ctrl+A > bê nguyên qua cho lẹ, vì có loại nào khác nó đâu mà nghĩ cách này, cách nọ.

 

[maiban116]

Hỏi vầy mới đúng nè:
Sheet1 toàn bộ là chữ màu đỏ (không có Font Color nào khác nhĩ), Ctrl+A > bê nguyên qua cho lẹ, vì có loại nào khác nó đâu mà nghĩ cách này, cách nọ.

không còn cách nào hả bác. em muốn lấy toàn bộ chữ màu đỏ của sheet1 điền tự động vào sheet2. sau khi có thay đổi ở sheet1 thì sheet2 cũng thany đổi theo. có bac nào giúp em với

 

[phulien1902]

không còn cách nào hả bác. em muốn lấy toàn bộ chữ màu đỏ của sheet1 điền tự động vào sheet2. sau khi có thay đổi ở sheet1 thì sheet2 cũng thany đổi theo. có bac nào giúp em với

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("J5:DL28")) Is Nothing Then
        Sheet1.[J5].CurrentRegion.Copy
        Sheet2.[J5].PasteSpecial
        Application.CutCopyMode = False
    End If
End Sub

 

[be_09]

không còn cách nào hả bác. em muốn lấy toàn bộ chữ màu đỏ của sheet1 điền tự động vào sheet2. sau khi có thay đổi ở sheet1 thì sheet2 cũng thany đổi theo. có bac nào giúp em với

Chẳng hiểu muốn làm cái gì?
Như nội dung bài 3: Bê nguyên qua cho lẹ, nếu Sheet1 thay đổi thì nhấn nút Sheet2 sẽ thay đổi theo.

 

[maiban116]

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("J5:DL28")) Is Nothing Then
        Sheet1.[J5].CurrentRegion.Copy
        Sheet2.[J5].PasteSpecial
        Application.CutCopyMode = False
    End If
End Sub

bạn ơi làm như thế nào bạn nhỉ. xin cám ơn bạn trước

 

[maiban116]

Chẳng hiểu muốn làm cái gì?
Như nội dung bài 3: Bê nguyên qua cho lẹ, nếu Sheet1 thay đổi thì nhấn nút Sheet2 sẽ thay đổi theo.[/QUOTE
Mình muốn nó tự động. có khách nào không bằng lút lệnh không bạn

 

[phulien1902]

bạn ơi làm như thế nào bạn nhỉ. xin cám ơn bạn trước

Bạn làm như sau:
1.Copy Code trên rồi dán vào cửa sổ VBA của Sheet1, ghi lại.
2. Bây giờ bạn quay lại Sheet1, bạn tác động vào bất cứ ô nào thuộc vùng J5:L28, rồi Enter 1 phát.
Kết quả là Sheet2 có dữ liệu như Sheet1.
Vậy thôi.

 

[maiban116]

o

Bạn làm như sau:
1.Copy Code trên rồi dán vào cửa sổ VBA của Sheet1, ghi lại.
2. Bây giờ bạn quay lại Sheet1, bạn tác động vào bất cứ ô nào thuộc vùng J5:L28, rồi Enter 1 phát.
Kết quả là Sheet2 có dữ liệu như Sheet1.
Vậy thôi.

rất hay nhưng xóa nhiều file sheet2 không xóa theo được. có cách nào không ạ

 

[be_09]

Mình muốn nó tự động, có cách nào không dùng lút lệnh không bạn.

Click phải chuột vào Sheet1, chọn View Code rồi Paste đoạn code sau vào.

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet2.Range("B3:DD26").Value = _
    Sheet1.Range("J5:DL28").Value
End Sub

 

[phulien1902]

bạn ơi làm như thế nào bạn nhỉ. xin cám ơn bạn trước

Bạn dùng sự kiện dưới xem:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("J5:DL28")) Is Nothing Then
        Sheet1.[J5].CurrentRegion.Copy
        Sheet2.[J5].PasteSpecial Paste:=xlPasteValues
        Else
        Sheet2.Cells.ClearContents
      '  Application.CutCopyMode = True
End If
End Sub

+ Cách dùng:
1. Khi bạn Click đúp vào 1 trong các Cells thuộc vùng chọn, thì Sheet2 có dữ liệu của Sheet1.
2. Khi bạn Click đúp ra ngoài vùng chọn, Sheet2 được xóa sạch dữ liệu.

 

[maiban116]

Click phải chuột vào Sheet1, chọn View Code rồi Paste đoạn code sau vào.

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet2.Range("B3:DD26").Value = _
    Sheet1.Range("J5:DL28").Value
End Sub

cảm ơn bạn rất nhiều. có cách nào khi thêm dữ liệu ở sheet1 bằng đường link thì toàn bộ shee2 thay đổi tự động không.

 

[be_09]

cảm ơn bạn rất nhiều. có cách nào khi thêm dữ liệu ở sheet1 bằng đường link thì toàn bộ shee2 thay đổi tự động không.

Nếu bê nguyên qua thì tại B3 Sheet2, gán cái này vào (dùng Link), Fill ngang và Fill xuống. Khi thay đổi dữ liệu trong Sheet1 thì Sheet2 thay đổi theo.
=Sheet1!J5

 

[maiban116]

Nếu bê nguyên qua thì tại B3 Sheet2, gán cái này vào (dùng Link), Fill ngang và Fill xuống. Khi thay đổi dữ liệu trong Sheet1 thì Sheet2 thay đổi theo.
=Sheet1!J5

mình không biết về code nhờ bạn chỉ rõ hộ mình với

 

[maiban116]

Nếu bê nguyên qua thì tại B3 Sheet2, gán cái này vào (dùng Link), Fill ngang và Fill xuống. Khi thay đổi dữ liệu trong Sheet1 thì Sheet2 thay đổi theo.
=Sheet1!J5

ý mình là lấy đường link sheet3 vào sheet 1 khi thay đổi ở sheet 3 thì sheet 2 copy cũng thay đổi theo chứ không cần động vào vùng copy ở sheet1 nữa

 

[be_09]

ý mình là lấy đường link sheet3 vào sheet 1 khi thay đổi ở sheet 3 thì sheet 2 copy cũng thay đổi theo chứ không cần động vào vùng copy ở sheet1 nữa

Bài 1 chỉ có dữ liệu sheet1 còn sheet2 và sheet3 trống trơn nên chẳng ai hiểu bạn muốn làm cái gì?
Muốn cụ thể thì bạn phải đính kèm File với 3 sheet (sheet1, sheet2, sheet3) và có 1 vài ví dụ cụ thể nêu rõ dữ liệu lấy từ sheet nào qua sheet nào? Chứ chẳng ai đoán mò được ý của bạn cả.

 

[maiban116]

Bài 1 chỉ có dữ liệu sheet1 còn sheet2 và sheet3 trống trơn nên chẳng ai hiểu bạn muốn làm cái gì?
Muốn cụ thể thì bạn phải đính kèm File với 3 sheet (sheet1, sheet2, sheet3) và có 1 vài ví dụ cụ thể nêu rõ dữ liệu lấy từ sheet nào qua sheet nào? Chứ chẳng ai đoán mò được ý của bạn cả.

em gửi lên nhờ Các Bác xem hộ dùm ạ

 

[phulien1902]

em gửi lên nhờ Các Bác xem hộ dùm ạ

Bạn chép Code dưới vào Sheet3 và thử:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("J2:T57")) Is Nothing Then
        Sheet3.[J2].CurrentRegion.Copy
        Sheet1.[J2].PasteSpecial Paste:=xlPasteValues
    End If
End Sub

 

[be_09]

em gửi lên nhờ Các Bác xem hộ dùm ạ

Chọn sheet3, click phải chuột rồi Paste code này vào. Khi sheet3 thay đổi thì sheet2 thay đổi theo.

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet2.Range("J2:T500").Value = _
    Sheet3.Range("J2:T500").Value
End Sub

Hoặc dùng Link:
Tại J2 sheet2 Paste công thức này vào rồi Fill ngang và Fill xuống.
=Sheet3!J2