Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Help with Type mismatch error
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ayo Ayo is offline
external usenet poster
  
Posts: 489
Default Help with Type mismatch error
I am geetting a type mismatch error on this code line and I can't figure out
how to resolve it.
c.Offset(0, 1) = Application.WorksheetFunction.SumProduct(--(rngMarket = B &
i), --(rngNLP = c))

For Each c In NLPws.Range("C" & i & ":C" & i + 3).Cells
c.Offset(0, 1) = Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c))
'c.Offset(0, 2) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS1 = "A"))
c.Offset(0, 3) = Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS2 = "A"))
c.Offset(0, 4) = Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS3 = "A"))
c.Offset(0, 5) = Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS4 = "A"))
'c.Offset(0, 6) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS5 = "A"))
c.Offset(0, 7) = Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS6 = "A"))
'c.Offset(0, 8) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS7 = "A"))
'c.Offset(0, 9) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS8 = "A"))
c.Offset(0, 10) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS9 = "A"))
c.Offset(0, 11) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS10 = "A"))
c.Offset(0, 12) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS11 = "A"))
c.Offset(0, 13) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS12 = "A"))
c.Offset(0, 14) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP =
c), --(rngMS13 = "A"))
Next c
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,565
Default Help with Type mismatch error
The likely cause is that you are trying to equate a range to a value or vice
versa. Check your Dim statements against the vairables used in your problem
statement to make sure they are all the right data types.



"Ayo" wrote in message
...
I am geetting a type mismatch error on this code line and I can't figure
out
how to resolve it.
c.Offset(0, 1) = Application.WorksheetFunction.SumProduct(--(rngMarket = B
&
i), --(rngNLP = c))

For Each c In NLPws.Range("C" & i & ":C" & i + 3).Cells
c.Offset(0, 1) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c))
'c.Offset(0, 2) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS1 = "A"))
c.Offset(0, 3) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS2 = "A"))
c.Offset(0, 4) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS3 = "A"))
c.Offset(0, 5) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS4 = "A"))
'c.Offset(0, 6) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS5 = "A"))
c.Offset(0, 7) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS6 = "A"))
'c.Offset(0, 8) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS7 = "A"))
'c.Offset(0, 9) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS8 = "A"))
c.Offset(0, 10) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS9 = "A"))
c.Offset(0, 11) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS10 = "A"))
c.Offset(0, 12) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS11 = "A"))
c.Offset(0, 13) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS12 = "A"))
c.Offset(0, 14) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS13 = "A"))
Next c


Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 37
Default Help with Type mismatch error
I am having this exact problem, what did you do to resolve this?

"JLGWhiz" wrote:

The likely cause is that you are trying to equate a range to a value or vice
versa. Check your Dim statements against the vairables used in your problem
statement to make sure they are all the right data types.



"Ayo" wrote in message
...
I am geetting a type mismatch error on this code line and I can't figure
out
how to resolve it.
c.Offset(0, 1) = Application.WorksheetFunction.SumProduct(--(rngMarket = B
&
i), --(rngNLP = c))

For Each c In NLPws.Range("C" & i & ":C" & i + 3).Cells
c.Offset(0, 1) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c))
'c.Offset(0, 2) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS1 = "A"))
c.Offset(0, 3) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS2 = "A"))
c.Offset(0, 4) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS3 = "A"))
c.Offset(0, 5) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS4 = "A"))
'c.Offset(0, 6) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS5 = "A"))
c.Offset(0, 7) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS6 = "A"))
'c.Offset(0, 8) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS7 = "A"))
'c.Offset(0, 9) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS8 = "A"))
c.Offset(0, 10) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS9 = "A"))
c.Offset(0, 11) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS10 = "A"))
c.Offset(0, 12) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS11 = "A"))
c.Offset(0, 13) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS12 = "A"))
c.Offset(0, 14) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS13 = "A"))
Next c



Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default Help with Type mismatch error
Check your other post.

DogLover wrote:

I am having this exact problem, what did you do to resolve this?

"JLGWhiz" wrote:

The likely cause is that you are trying to equate a range to a value or vice
versa. Check your Dim statements against the vairables used in your problem
statement to make sure they are all the right data types.



"Ayo" wrote in message
...
I am geetting a type mismatch error on this code line and I can't figure
out
how to resolve it.
c.Offset(0, 1) = Application.WorksheetFunction.SumProduct(--(rngMarket = B
&
i), --(rngNLP = c))

For Each c In NLPws.Range("C" & i & ":C" & i + 3).Cells
c.Offset(0, 1) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c))
'c.Offset(0, 2) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS1 = "A"))
c.Offset(0, 3) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS2 = "A"))
c.Offset(0, 4) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS3 = "A"))
c.Offset(0, 5) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS4 = "A"))
'c.Offset(0, 6) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS5 = "A"))
c.Offset(0, 7) =
Application.WorksheetFunction.SumProduct(--(rngMarket
= B & i), --(rngNLP = c), --(rngMS6 = "A"))
'c.Offset(0, 8) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS7 = "A"))
'c.Offset(0, 9) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS8 = "A"))
c.Offset(0, 10) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS9 = "A"))
c.Offset(0, 11) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS10 = "A"))
c.Offset(0, 12) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS11 = "A"))
c.Offset(0, 13) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS12 = "A"))
c.Offset(0, 14) =
Application.WorksheetFunction.SumProduct(--(rngMarket = B & i), --(rngNLP
=
c), --(rngMS13 = "A"))
Next c




--

Dave Peterson
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Visual Basic Error Run Time Error, Type Mismatch Meg Partridge Excel Discussion (Misc queries) 12 September 10th 08 06:10 PM
runtime error 13 - type mismatch error in Excel 97 on Citrix Kevin Maher Excel Programming 7 March 8th 08 11:48 AM
Conditional Formatting - Run Time Error '13' Type Mismatch Error ksp Excel Programming 0 July 11th 06 07:06 AM
Help: Compile error: type mismatch: array or user defined type expected lvcha.gouqizi Excel Programming 1 October 31st 05 08:20 PM
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error rdavis7408 Excel Programming 1 August 25th 04 03:54 AM


All times are GMT +1. The time now is 04:07 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement