view date that i enter before

Private Sub CommandButton1_Click()
    Dim sFind As String
    Dim rng As Range
    Dim wsht As Worksheet
    Dim wsht2 As Worksheet
    Dim a
    Set wsht = Worksheets("Sheet1")
    Set wsht2 = Worksheets("Sheet2")
    sFind = wsht2.Range("d2")
    Set rng = wsht.Cells.Find(What:=sFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False)
    If Not rng Is Nothing Then
       a = rng.Row
       wsht2.Range("a5").Value = wsht.Range("e" & a).Value
       wsht2.Range("b5").Value = wsht.Range("f" & a).Value
       wsht2.Range("c5").Value = wsht.Range("g" & a).Value
       wsht2.Range("d5").Value = wsht.Range("h" & a).Value
       wsht2.Range("e5").Value = wsht.Range("i" & a).Value
       wsht2.Range("f5").Value = wsht.Range("j" & a).Value
   End If
End Sub

can you tell where the code is not working?

Appears to be a duplicate Thread.

http://www.excelforum.com/excel-prog...tion-data.html