Nhập mã KH được tên và địa chỉ ở 2 côt cách nhau ?

[mythuat4p]

Em muốn phát triển tiếp. Không biết có được không ?
Bây giờ em nhập mã khách hàng sẽ hiện tên khách hàng và địa chỉ khách hàng nhưng vấn đề là hai cột đó không liên nhau và cột tên khách hàng ở cột F và địa chỉ khách hàng ở cột M. Anh xem giúp em nhé. Cám ơn anh

 

[salam]

Em muốn phát triển tiếp. Không biết có được không ?
Bây giờ em nhập mã khách hàng sẽ hiện tên khách hàng và địa chỉ khách hàng nhưng vấn đề là hai cột đó không liên nhau và cột tên khách hàng ở cột F và địa chỉ khách hàng ở cột M. Anh xem giúp em nhé. Cám ơn anh

Bạn chỉ cần dung hàm vlookup thôi

=IF(ISNA(VLOOKUP($E2,MAKH!$A$2:$E$9,2,0)),"",VLOOKUP($E2,MAKH!$A$2:$E$9,2,0))

=IF(ISNA(VLOOKUP($E2,MAKH!$A$2:$E$9,5,0)),"",VLOOKUP($E2,MAKH!$A$2:$E$9,5,0))

 

[mythuat4p]

Cám ơn anh! dùng công thức thì em làm được. Em đang học Macro nên muốn nhớ anh giúp làm macro để em học. hihih

 

[SA_DQ]

Đây, bạn dùng thử cái này thay cho cái của bạn xem sao?!

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Thoat
1  If Not Intersect(Target, Columns("E:E")) Is Nothing Then
      Dim Rng As Range, sRng As Range, Sh As Worksheet
3     Set Sh = Sheets("MAKH")
      Set Rng = Sh.Range(Sh.[a1], Sh.[a1].End(xlDown))
5      Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
      If sRng Is Nothing Then
7         MsgBox "Chua Co Ma Khach Hang Nay!"
      Else
9         Target.Offset(, 1).Value = sRng.Offset(, 1).Value
         Cells(Target.Row, "M").Value = sRng.Offset(, 4).Value
11      End If
   End If
Thoat:
End Sub

 

[anhtuan1066]

Em muốn phát triển tiếp. Không biết có được không ?
Bây giờ em nhập mã khách hàng sẽ hiện tên khách hàng và địa chỉ khách hàng nhưng vấn đề là hai cột đó không liên nhau và cột tên khách hàng ở cột F và địa chỉ khách hàng ở cột M. Anh xem giúp em nhé. Cám ơn anh

Code củ của bạn là:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Thoat
  With Target
    If .Row > 1 Then
      Select Case .Column
        Case 5: .Offset(, 1) = Sheet2.Range("A3").CurrentRegion.Find(Target).Offset(, 1)
        Case 9: .Offset(, 1).Resize(, 2).Value = Sheet3.Range("A3").CurrentRegion.Find(Target).Offset(, 1).Resize(, 2).Value
      End Select
    End If
  End With
Thoat:
End Sub

Thêm 1 dòng nữa là xong!

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Thoat
  With Target
    If .Row > 1 Then
      Select Case .Column
        Case 5: .Offset(, 1) = Sheet2.Range("A3").CurrentRegion.Find(Target).Offset(, 1)
                .Offset(, 8) = Sheet2.Range("A3").CurrentRegion.Find(Target).Offset(, 4)
        Case 9: .Offset(, 1).Resize(, 2).Value = Sheet3.Range("A3").CurrentRegion.Find(Target).Offset(, 1).Resize(, 2).Value
      End Select
    End If
  End With
Thoat:
End Sub

Chú ý mấy chổ Offset, tức sau khi tìm thấy dử liệu ở sheet bên kia, ta sẽ dịch sang bao nhiêu cột (bạn có thể đếm bằng tay)

 

[SA_DQ]

Bạn chép đè cái ni lên macro cũ nha

Giúp mình thêm một chút nữa với
Mình đã xem & muốn hỏi thêm một chút. Nhưng theo cách bạn làm thì mình không biết phải thêm phần mã sản phẩm như thế nào để hiện tên sản phẩm trong sheet này.
Bạn giúp mình thêm chút nữa được không. Thêm giúp mình gõ mã sản phẩm thì hiện tên sản phẩm và đơn vị sản phẩm cùng trong sheet này với.
Cám ơn bạn rất nhiều

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Thoat
1  Dim Rng As Range, sRng As Range, Sh As Worksheet
  
  If Not Intersect(Target, Columns("E:E")) Is Nothing Then
3     Set Sh = Sheets("MAKH")
      Set Rng = Sh.Range(Sh.[a1], Sh.[a1].End(xlDown))
5      Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
      If sRng Is Nothing Then
7         MsgBox "Chua Co Ma Khach Hang Nay!"
      Else
9         Target.Offset(, 1).Value = sRng.Offset(, 1).Value
         Cells(Target.Row, "M").Value = sRng.Offset(, 4).Value
11      End If
   ElseIf Not Intersect(Target, Columns("I:I")) Is Nothing Then
      Set Sh = Sheets("MaSP")
      Set Rng = Sh.Range(Sh.[B1], Sh.[B65500].End(xlUp))
      Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         Target.Offset(, 1).Value = sRng.Offset(, 1).Value
         Target.Offset(, 2).Value = sRng.Offset(, 2).Value
      End If
   End If
Thoat:
End Sub