Why R/T Error?

  • Thread starter Thread starter Jim May
  • Start date Start date
J

Jim May

Sub SumByEmployee()
Dim MyPick As String
Dim mTotal As Double
Dim rngemp As Range
mTotal = 0
MyPick = InputBox("What Employee Do you Want?")
Set rngemp = Range("C6:C15") 'list of employees - single names
For Each c In rngemp
If c = MyPick Then
mTotal = mTotal + rngemp.Offset(, -1).Value 'R/T error happens here
End If
Next c
Range("B18").Value = mTotal
End Sub

Thanks for any help!!
 
I think I got it; changed line to:
mTotal = mTotal + c.Offset(, -1).Value
 
Pls see my post in programming. Please do NOT multipost. We read em all.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

R/T Error encounter - Posted originally to functions ng - in error 2
Run code from one worksheet to populate another. 2
duplicate listbox selection to range of cells? 4
Need Prev and Next codes for my Userform.Based on file only. 0
Excel VBA - counting cells by colors and names to it in two different rows. 0
Excel VBA 1
Value from one sheet paste under same value on other sheet. 7
Combine words from columns 17

Back
Top