Sub or Function not defined error???

[perezpa]

Let's play Where's Waldo! Except that in this case, Waldo is the line that is giving me an error! I can't find it! Can you?

Option Explicit

Sub La_Joa()


Dim Centro As Range
Dim resumen As Worksheet
Dim Agregado As Worksheet
Dim rngCell As Range
Dim i As Integer

'Range("A1:F55").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

'Columns("G:G").Delete Shift:=xlToLeft
'Columns("K:P").Delete Shift:=xlToLeft

Set resumen = Worksheets("Resumen")
Set Agregado = Worksheets("Agregado")
    
For Each rngCell In Range("Center")

    For i = 1 To 50
        If Cell(i, 3).Value2 = "600" Then
            Cell(i, 3).Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlUp)).Copy
        End If
    Next
    Agregado.Range("tbPro[PosID]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Next rngCell


End Sub

Compile Error: Sub or Function not defined.


Thank you in advance!

 

[p45cal]

If Cells(i, 3).Value2 = "600" Then
Cells(i, 3).Select

 

[perezpa]

If Cells(i, 3).Value2 = "600" Then
Cells(i, 3).Select

I bet you still own a few of those Where's Waldo books, cause that was good.

I changed it, but not I get a mismatch error. :S

Any idea why that might be?

 

[Jonmo1]

Does Cells(i, 3) contain an error from a formula?

 

[p45cal]

at a guess , change
If Cells(i, 3).Value2 = "600" Then
to
If Cells(i, 3).Value2 = 600 Then

 

[perezpa]

Does Cells(i, 3) contain an error from a formula?

No, it does't. That was my first guess.

at a guess , change
If Cells(i, 3).Value2 = "600" Then
to
If Cells(i, 3).Value2 = 600 Then

I had already tried that. Same error message.

 

[p45cal]

The error does highlight this line?

 

[perezpa]

The error does highlight this line?

Affirmitive.

 

[Hermanito]

is Range("Center") perhaps smaller than 50 rows? You hardcode 50 rows in the loop, but maybe your named range is smaller...

And I wonder why you use Value2. What is the benefit of that? I have never used it myself, nor have I ever seen it used... I always use just plain Value. Does it work if you switch those around?

 

[p45cal]

When the error occurs, choose to Debug, go to then in the immediate pane (Ctrl + G)
and type:
?typename(selection.value)
then Enter,
then
?typename(selection.value2)
then Enter.
What results do you get?
Also, is what's selected (just one cell) what you expect to be selected at this point.

The code is strange, because you iterate through each cell in a range using rngCell, but you never use it within the loop. Inside this loop you copy varying ranges to the clipboard, but you dont paste any but the last range (when i = 50). Is this what you intend?