Giúp: Khi nhập mã dự án, code không truy vấn được nội dung cần tìm./. (1 người xem)

[haitramy]

Mình có đoạn code sau nằm ở Sheet1 dùng để gán các giá trị cần tìm từ sheet2 sang sheet1 khi nhập đúng mã dự án nhưng không thành công, nhờ mọi người xem giúp:

Private Sub Worksheet_Change(ByVal Target As Range) '
Dim tim As Range
If Not Application.Intersect(Target, [c4:c65536]) Is Nothing Then
Set tim = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole)
If tim Is Nothing Then
frmcsdl.Show
Else
Target.Offset(, 1) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 1)
Target.Offset(, 2) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 2)
Target.Offset(, 3) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 3)
Target.Offset(, 4) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 4)
Target.Offset(, 5) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 5)
Target.Offset(, 6) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 6)
Target.Offset(, 7) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 7)
Target.Offset(, 8) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 8)
Target.Offset(, 9) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 9)
Target.Offset(, 10) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 10)
Target.Offset(, 11) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 11)
Target.Offset(, 12) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 12)
Target.Offset(, 13) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 13)
Target.Offset(, 14) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 14)
Target.Offset(, 15) = Sheet2.[b4:b65536].Find(Target, LookAt:=xlWhole).Offset(, 15)
End If
End If
End Sub

 

[Quang_Hải]

Mình có đoạn code sau nằm ở Sheet1 dùng để gán các giá trị cần tìm từ sheet2 sang sheet1 khi nhập đúng mã dự án nhưng không thành công, nhờ mọi người xem giúp:

Thử vầy xem coi phải không. Không có file nên đoán sửa thí thí. Nếu trúng coi như bà độ.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tim As Range, i
If Target.Column = 3 And Target.Count = 1 Then
   Set tim = Sheet2.[b4:b65536].Find(Target.Value, , , 1)
   If tim Is Nothing Then
      frmcsdl.Show
   Else
      For i = 1 To 15
         Target.Offset(, i) = Sheet2.[b4:b65536].Find(Target.Value, , , 1).Offset(, i)
      Next
   End If
End If
End Sub

 

[haitramy]

Thử vầy xem coi phải không. Không có file nên đoán sửa thí thí. Nếu trúng coi như bà độ.

vẫn không được quanhai ơi, bác cho mình cái mail mình gửi file qua để bác xem giúp; cảm ơn.

 

[Quang_Hải]

vẫn không được quanhai ơi, bác cho mình cái mail mình gửi file qua để bác xem giúp; cảm ơn.

Sao bạn không gởi file lên diễn đàn để nhiều người cùng giúp cho?

 

[ndu96081631]

vẫn không được quanhai ơi, bác cho mình cái mail mình gửi file qua để bác xem giúp; cảm ơn.

Không được thì đưa file lên cho người ta kiểm tra chứ... Nói không không thế ai biết đâu mà lần
-----------------

Thử vầy xem coi phải không. Không có file nên đoán sửa thí thí. Nếu trúng coi như bà độ.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tim As Range, i
If Target.Column = 3 And Target.Count = 1 Then
   Set tim = Sheet2.[b4:b65536].Find(Target.Value, , , 1)
   If tim Is Nothing Then
      frmcsdl.Show
   Else
      For i = 1 To 15
         Target.Offset(, i) = Sheet2.[b4:b65536].Find(Target.Value, , , 1).Offset(, i)
      Next
   End If
End If
End Sub

Code viết vầy hay hơn chứ:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim tim As Range
  If Target.Column = 3 And Target.Count = 1 Then
    Set tim = Sheet2.Range("B:B")..Find(Target.Value, , xlValues, xlWhole)
    If tim Is Nothing Then
      frmcsdl.Show
    Else
     [COLOR=#ff0000]Target.Offset(, 1).Resize(,15).Value = tim.Offset(, 1).Resize(,15).Value[/COLOR]
    End If
  End If
End Sub