请求高手改个代码

jyjfjszx

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row = 2 And Target.Column = 3 Then
      With Worksheets("表2").Range("a:a")
        Set f = .Find(Target.Text, lookat:=xlWhole)
        If Not f Is Nothing Then
           Range("f2") = Worksheets("表2").Cells(f.Row, 2)
           Range("G2") = Worksheets("表2").Cells(f.Row, 3)
           Range("H2") = Worksheets("表2").Cells(f.Row, 4)
        Else
           MsgBox "没有该名称"
           Range("C2") = ""
        End If
  End With
End If
End Sub



问题：代码中在表1第二行第三列即c2单元格，输入表2中有的姓名时，表1中的F2\G2\H2三个单元格能正常调用表2账号中的数据。
我想请老师们给我改一下，在C列其它单元格输入表2中有的姓名，也能自动调用。如在表1C3中输入白玉3，表1F3\G3\H3也能显示表2中的数据。

hehex

Private Sub Worksheet_Change(ByVal Target As Range)
         
         On Error Resume Next
         If Target.Column = 3 and target.count = 1 Then
               With Worksheets("表2").Range("a:a")
                 Set f = .Find(Target.Text, lookat:=xlWhole)
                 If Not f Is Nothing Then
                    Range("f" & target.row) = Worksheets("表2").Cells(f.Row, 2)
                    Range("G" & target.row) = Worksheets("表2").Cells(f.Row, 3)
                    Range("H" & target.row) = Worksheets("表2").Cells(f.Row, 4)
                 Else
                    MsgBox "没有该名称"
                    Range("c" & target.row) = ""
                 End If
              End With
         End If
End Sub

jyjfjszx

十分感谢，楼上就是我想要的！