Subroutine and function!! help!!!

[bukikids]

Im new to programming and excel. My code should include one subroutine and one function, but i dont know how to add the function.

please help me thanks!!

here is my code:

Sub findServiceDescription()

Dim user As String
Dim Service As String
Dim rowCounter As Integer
Dim BankingDesc As String

rowCounter = 1
serviceNumber = Cells(rowCounter, 1).Value

user = InputBox("Please enter your service")


Do While user <> serviceNumber
rowCounter = rowCounter + 1
serviceNumber = Cells(rowCounter, 1).Value


' if banking desc is empty, output service not found
BankingDesc = Cells(rowCounter, 2).Value

If BankingDesc = "" Then
MsgBox "No Service Found"
Exit Do

End If
Loop

If BankingDesc <> "" Then
MsgBox "Banking Service: " & BankingDesc
End If
End Sub

 

[Ruddles]

In VBA, click Insert > Module. The double-click the module name and go Insert > Procedure > Function. Finally insert your code in the function's code window.

 

[bukikids]

In VBA, click Insert > Module. The double-click the module name and go Insert > Procedure > Function. Finally insert your code in the function's code window.

thanks alot, but i stil dont know how to change the code to make the function and subroutine call each other.

please help me. thank you!

 

[Ruddles]

You haven't shown us the function, explained what it does, or indicated where or why you need to use it. There's no function call in your subroutine as far as I can see, nor is there a function defined in the code you've posted.

Does the subroutine work okay as it stands?

When you say your code should include a function, what makes you say that?