Nhờ viết code lấy link DS qua Sheet khác

[thanhtam348]

Tôi có 2 danh sách từ Sheet1, muốn lần lược đưa qua 2 cột đã khoanh vùng trong Sheet2 khi kích chọn ô chứa link Data Validation, nhờ bạn nào viết cho đoạn code.
Xin cám ơn.

 

[boyxin]

Tôi có 2 danh sách từ Sheet1, muốn lần lược đưa qua 2 cột đã khoanh vùng trong Sheet2 khi kích chọn ô chứa link Data Validation, nhờ bạn nào viết cho đoạn code.
Xin cám ơn.

Bạn xem đã đúng ý chưa nhé?

 

[thanhtam348]

Bạn xem đã đúng ý chưa nhé?

Đúng rồi, nhưng dùng code được không bạn? vì trong trường hợp của tôi, tôi muốn dùng nó bằng code.

 

[Hai Lúa Miền Tây]

Đúng rồi, nhưng dùng code được không bạn? vì trong trường hợp của tôi, tôi muốn dùng nó bằng code.

Thì bạn copy và dán là được.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [C2]) Is Nothing Then
      Range("E2:F65000").ClearContents
        If Target.Value = "Khach Hang" Then
           Sheet1.Range("B2:C19").Copy [e2]
          Else
           Sheet1.Range("E2:F19").Copy [e2]
        End If
    End If
End Sub

 

[thanhtam348]

Cám ơn hai bạn nhiều.

 

[thanhtam348]

Cho tôi hỏi thêm, nếu tôi có 3 DS thì phải thêm thủ tục nào, tôi cố gắng chỉnh sửa để thêm vào mà không được, nhờ hai bạn giúp đở thêm.
Cám ơn.

 

[Hai Lúa Miền Tây]

Cho tôi hỏi thêm, nếu tôi có 3 DS thì phải thêm thủ tục nào, tôi cố gắng chỉnh sửa để thêm vào mà không được, nhờ hai bạn giúp đở thêm.
Cám ơn.

Thì bạn bỏ cái Esle rồi thêm 2 cái If nữa vào, hoặc nhiều hơn nữa thì dùng Select Case...

 

[thanhtam348]

Cám ơn, Xin bạn cho tôi cái File DV nếu như nhiều hơn nửa, vì tôi tệ về code. Cám ơn bạn

 

[concogia]

Cám ơn, Xin bạn cho tôi cái File DV nếu như nhiều hơn nửa, vì tôi tệ về code. Cám ơn bạn

Xài cái này thử coi, đề phòng bạn lại đòi có 4, 5 rồi nhiều hơn nữa
Bạn thử thêm vào cỡ chục cái mã gì đó của bạn xem sao

 

[thanhtam348]

Đã thỏa mãn rồi, xin cám ơn mấy bạn.

 

[boyxin]

Xài cái này thử coi, đề phòng bạn lại đòi có 4, 5 rồi nhiều hơn nữa
Bạn thử thêm vào cỡ chục cái mã gì đó của bạn xem sao

For Each Cll In Vung
    If Cll = [c2] Then i = Cll.Column - 1: Ws.Range(Ws.Cells(2, i), Ws.Cells(2, i).End(xlDown)).Resize(, 2).Copy [e2]: Exit Sub
Next

Em thấy: Nếu sửa như sau Thì nhìn code sẽ ngắn gọn hơn chút

For Each Cll In Vung
    If Cll = [c2] Then Cll.CurrentRegion.Copy [e2]: Exit Sub
Next