Các bạn sửa giúp code hiện tên khách hàng (1 người xem)

[ndhmoney686]

Mình có sự cố ở trong file đính kèm. Nhờ các Bạn xem file và sửa giúp mình. Cảm ơn các Bạn nhiều!

 

[tvxdgt]

Mình có sự cố ở trong file đính kèm. Nhờ các Bạn xem file và sửa giúp mình. Cảm ơn các Bạn nhiều!

Bạn sữa câu như sau:

Private Sub lstResult_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
 On Error Resume Next  
If Not Intersect([F8:F2223], ActiveCell) Is Nothing Then 
   Cells(ActiveCell.Row, "F") = lstResult.List(lstResult.ListIndex, 0)     
 ActiveCell.Offset(1).Select 
 End If 
 If Not Intersect([c8:c2223], ActiveCell) Is Nothing Then 
    Cells(ActiveCell.Row, "c") = lstResult.List(lstResult.ListIndex, 0)   
  ActiveCell.Offset(1).Select 
 End If
End Sub

 

[ndhmoney686]

Bạn sữa câu như sau:

Private Sub lstResult_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
 On Error Resume Next  
If Not Intersect([F8:F2223], ActiveCell) Is Nothing Then 
   Cells(ActiveCell.Row, "F") = lstResult.List(lstResult.ListIndex, 0)     
 ActiveCell.Offset(1).Select 
 End If 
 If Not Intersect([c8:c2223], ActiveCell) Is Nothing Then 
    Cells(ActiveCell.Row, "c") = lstResult.List(lstResult.ListIndex, 0)   
  ActiveCell.Offset(1).Select 
 End If
End Sub

Theo chỉ dẫn của Bạn mình sửa được rồi. Cảm ơn Bạn tvxdgt nhiều!

 

[huongtinh1929]

Theo chỉ dẫn của Bạn mình sửa được rồi. Cảm ơn Bạn tvxdgt nhiều!

ban cho minh xin file với được không

 

[huongtinh1929]

Theo chỉ dẫn của Bạn mình sửa được rồi. Cảm ơn Bạn tvxdgt nhiều!

bạn ơi cho mình xin file đã sửa với. Mình xem mà không biết sửa như thế nào