Range syntax

[VBABEGINER]

Can any one please tell me the right syntax for this.

Range(Cells(7, 11), Cells(p1, 11)).Select
Selection.Rows.group

I got error -

1004
Application defined or object defined error

 

[VoG]

In your code, after you have found the value of p1 insert this line of code

MsgBox p1

then run your code. what does the msgbox give as the value for p1?

 

[VBABEGINER]

Ohh ok. let mi check.

 

[VBABEGINER]

Nothing sir, its blank msg box.

 

[VBABEGINER]

Vog Sir,

Yesterday i was trying dis. but the same as i unware about the syntax of "Range(cell1,cell2)" i am unble to do this. I hope the following code will also make us some help.

Public Function casting()

Dim inti As Integer
inti = 7

Do Until ActiveSheet.Cells(inti, 11) = ""
If ActiveSheet.Cells(inti, 11) <> ActiveSheet.Cells(inti + 1, 11) Then
ActiveSheet.Cells.Select
Selection.Rows.Group
End If
inti = inti + 1
Loop
End Function

 

[VoG]

If you correct your Dim statement to

Dim p1 As Integer, p2 As Integer, p3 As Integer, p4 As Integer, p5 As Integer, p6 As Integer, p7 As Integer

Does the msgbox display 0? If so that is why you are getting an error - p1 must be greater than or equal to 7.

 

[VBABEGINER]

Yes. now it gives "0" value in msgbox.

 

[VBABEGINER]

Ohhhh....i got a littele bit.

For jam = 7 To iam
If Cells(jam, 11) = "2" Then
p1 = Cells(jam - 1, 11) '............last 1's
Else
If Cells(jam, 11) = "3" Then ......this is again counting from start number.
p2 = Cells(jam - 1, 11) '............last 2's
Else

 

[VoG]

So, you'll need to investigate why it is giving 0 and not the value that you expect.

 

[VoG]

Perhaps it should be

If Cells(jam, 11).Value = 2 Then

(no "" around the 2)

 

[VBABEGINER]

No sir, see we took value again started from starting value. So this also cause the error? I am sorry but i am trying to just find out y this p1 p2 not pick the values?