VBA program help required

[myasir1992]

Hello Everybody,
I have created a VBA program where I have a sheet named "Purchase Roll". I have a data validation that includes
1.) Store Location.
2.) Supplier No.
3.) Rate Selection.
4.) Invoice/Bill No.
5.) Date.

I have 2 questions:
1.) My question is regarding #3 Rate selection where I have 2 choices for the user i.e. "From the price list" or "Manual". Now if user selects "From the price list" the serial number that is showing in the Document No. appears but when somebody selects "Manual" nothing appears. Why?
2.) Another question is when somebody selects "From the price list" it displays the serial number which the system should be getting from the cell # AA1 but it is picking some random number.

Kindly resolve these 2 issues as soon as possible. I will be very grateful to you.
Waiting for your response.

 

[nemmi69]

You need to show the code you used

 

[myasir1992]

Here is the code:
Private Sub Worksheet_change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("E12:E35")) Is Nothing Then Exit Sub
Dim fnd As Range
If Range("F9") = "From the price list" Then
Set fnd = Range("O12:O35").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not fnd Is Nothing Then
Target.Offset(, 5) = fnd.Offset(, 1)
Call Worksheet_Purchasereel(Target)
End If
End If
End Sub

Private Sub Worksheet_Purchasereel(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Application.EnableEvents = False
With Sheets("Database").Cells(Rows.Count, "A").End(3)
If .Value = "Document No." Then
[D12:D35] = [AA1]
Else: [D12:D35] = .Value + 1
End If
End With
Application.EnableEvents = True
End Sub