type mismatch macro excel

[tuytuy]

'copy COST OF BLACKBERRY DATA NATIONAL


ActiveWorkbook.Sheets("Section_14").Activate
If Range("K:K") = "Blackberry Roaming" Then
sumbbmint = WorksheetFunction.Sum(Range("P$3:P$1048576"))
ActiveWorkbook.Sheets("SynthesisVSD").Activate
Range("A26").Value = "Cost of BlackBerry National data consumption:"
Range("B26").Value = sumbbmint
End If

Hi i was trying to run this little code in vba, but i get an error 14 type mismatch on the If Range("K:K") = "Blackberry Roaming" Then" line, i have no idea why ?

 

[AlphaFrog]

Range("K:K") is a column of cells. You cannot compare a column of cells to a text string like that. I cannot determine your intent from your code. So I can't recommend a solution.

 

[tuytuy]

Problem solved i used this instead

'copy COST OF BLACKBERRY DATA NATIONAL


ActiveWorkbook.Sheets("Section_14").Activate
sumbbmn = WorksheetFunction.SumIf(Range("K$3:K$1048576"), "BlackBerry usage", Range("P$3:P$1048576"))
ActiveWorkbook.Sheets("SynthesisVSD").Activate
Range("A26").Value = "Cost of BlackBerry National data consumption:"
Range("B26").Value = sumbbmn

 

[AlphaFrog]

You wouldn't have to Activate a worksheet to reference the cells on it. The code below does the same thing.

[COLOR=green]'copy COST OF BLACKBERRY DATA NATIONAL[/COLOR]
Sheets("SynthesisVSD").Range("A26").Value = "Cost of BlackBerry National data consumption:"
[COLOR=darkblue]With[/COLOR] Sheets("Section_14")
    Sheets("SynthesisVSD").Range("B26").Value = WorksheetFunction.SumIf(.Range("K:K"), "BlackBerry usage", .Range("P:P"))
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

 

[tuytuy]

ok thanks works fine