StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POIssue calling VBA Function from within another Function
primarykey
Id
4226270
data
AcceptedAnswerId
4227325
AnswerCount
1
ClosedDate
CommentCount
6
CommunityOwnedDate
CreationDate
2010-11-19T15:07:29.187
FavoriteCount
0
LastActivityDate
2010-11-19T18:34:55.603
LastEditDate
2010-11-19T17:56:48.733
LastEditorUserId
449620
OwnerUserId
449620
ParentId
0
PostTypeId
1
Score
0
ViewCount
8929
LastEditorDisplayName
text
Body
Below is the code I've written however I keep getting an issue with the line I've added the comment to, and only that line. I've commented out all the other lines and isolated this as the problem line but for the life of me and with the hour or more of research I've done I cannot figure out what the issue is. It's probably a really obvious one, but I'm really stuck and it's driving me crazy. Anyway, the code is to be used to take a Range of data containing shift times and language capability and show how many people with a specific language are available during a given time period (The_Time in the code below) Any help would be greatly appreciated! <pre><code>Function ReturnAvailability(The_Time As String, The_Info As Range) Dim The_Lang As String Dim The_Shift_Start As String Dim The_Shift_End As String Dim stGotIt As String Dim stCell As Integer Dim Counter As Integer Counter = 0 For Each r In The_Info.Rows For Each c In r.Cells stCell = c.Value If InStr(stCell, "Eng") > 0 Then The_Lang = "Eng" ElseIf InStr(c, ":") > 0 Then stGotIt = StrReverse(c) stGotIt = Left(c, InStr(1, c, " ", vbTextCompare)) The_Shift_End = StrReverse(Trim(stGotIt)) stGotIt = Left(The_Shift, InStr(1, The_Shift, " ", vbTextCompare)) The_Shift_Start = stGotIt stCell = ReturnAvailabilityEnglish(The_Time, The_Shift_Start, The_Shift_End) ' this is the line causing the error End If Next c Next r ReturnAvailability = Counter End Function Function ReturnAvailabilityEnglish(The_Time As String, The_Shift_Start As String, The_Shift_End As String) Dim Time_Hour As Integer Dim Time_Min As Integer Dim Start_Hour As Integer Dim Start_Min As Integer Dim End_Hour As Integer Dim End_Min As Integer Dim Available As Integer Available = 13 Time_Hour = CInt(Left(The_Time, 2)) Time_Min = CInt(Right(The_Time, 2)) Start_Hour = CInt(Left(The_Shift_Start, 2)) Start_Min = CInt(Right(The_Shift_Start, 2)) End_Hour = CInt(Left(The_Shift_End, 2)) End_Min = CInt(Right(The_Shift_End, 2)) If Start_Hour <= Time_Hour And Start_Min <= Time_Min Then If End_Hour > Time_Hour And End_Min > Time_Min Then Available = 1 Else Available = 0 End If End If ReturnAvailabilityEnglish = Available End Function </code></pre> Thanks, Darragh J
Tags
<excel><function><vba><return>
Title
Issue calling VBA Function from within another Function
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USDarragh J
UserOwnerUserId
1. USDarragh J
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.