Cập nhật dữ liệu

  • Thread starter Thread starter iVBA
  • Ngày gửi Ngày gửi
Liên hệ QC

iVBA

Thành viên mới
Tham gia
5/12/10
Bài viết
29
Được thích
11
Em có 1 file ví dụ. Em muốn nhờ AC viết dùm em code cập nhật dữ liệu sang các cột bên cạnh.
(Câu hỏi cụ thể trong file đính kèm)
 

File đính kèm

Em có 1 file ví dụ. Em muốn nhờ AC viết dùm em code cập nhật dữ liệu sang các cột bên cạnh.
(Câu hỏi cụ thể trong file đính kèm)
Cho code này vào sự kiện Worksheet_Change của sheet1 nhé
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim fRng As Range, Clls As Range
  On Error Resume Next
  If Target.Row > 4 And Target.Column = 4 Then
    For Each Clls In Target
      If Clls.Value = "" Then Clls.Offset(, 1).Resize(, 2) = ""
      Set fRng = Sheet2.Range("A1").CurrentRegion.Resize(, 1).Find(Clls.Value, , xlValues, xlWhole)
      If Not fRng Is Nothing Then
        Clls.Offset(, 1).Resize(, 2) = fRng.Offset(, 1).Resize(, 2).Value
      End If
    Next
  End If
End Sub
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom