Mahmoud Sayed
New Member
- Joined
- Sep 29, 2021
- Messages
- 19
- Office Version
- 2010
- Platform
- Windows
I have a search function, and when you do not find what you are looking for, an error appears. What is the solution to this problem?
this function
this function
VBA Code:
Private Sub CommandButton4_Click()
Sheet2.Range("J2").Value = Sheet1.Range("E3").Value
Dim L As Integer
L = Sheet2.Range("K2").Value 'error here
Sheet1.Range("D5").Value = Sheet2.Cells(L, "B").Value
Sheet1.Range("D7").Value = Sheet2.Cells(L, "C").Value
Sheet1.Range("D9").Value = Sheet2.Cells(L, "D").Value
Sheet1.Range("D11").Value = Sheet2.Cells(L, "E").Value
Sheet1.Range("G5").Value = Sheet2.Cells(L, "F").Value
Sheet1.Range("G7").Value = Sheet2.Cells(L, "J").Value
Sheet1.Range("G9").Value = Sheet2.Cells(L, "H").Value
Sheet1.Range("G11").Value = Sheet2.Cells(L, "I").Value
Sheet1.Range("G13").Value = Sheet2.Cells(L, "J").Value
End Sub