Hi friends,
In column ‘o’ I have inserted a number for course name in column ‘p’. I want to assign a course name to that particular number as follows:
Column ‘o’ Number ... Column ‘p’ Course name
1: A. B. C.
2: J. K. L.
3: P. Q. R.
4: X. Y. Z.
And so on as per course names.
If I enter number 1 in inputbox then I want to enter the course name in column ‘b4’ respectively.
Sub StudentList()
Dim y As String
Dim c As String
y = InputBox("enter academic year to filter")
c = InputBox("enter course number to filter")
Application.EnableEvents = False
Range("n7").Select
Selection.AutoFilter
ActiveSheet.Range("$B$7:$aa$3000").AutoFilter Field:=13, Criteria1:=y, Operator:=xlAnd
Range("o7").Select
ActiveSheet.Range("$B$7:$aa$3000").AutoFilter Field:=14, Criteria1:=c, Operator:=xlAnd
Range("b4") = y & " " & c
Application.EnableEvents = true
End sub
Any help will be appreciated.
Thanking you.
Mukesh
Bookmarks