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

 

[VBABEGINER]

still

MsgBox p1
Rows("7:" & p1).Group - giving error on this line only "Type Mismatch"

 

[VoG]

This worked for me

Sub test()
Dim p1
p1 = 15
MsgBox p1
Rows("7:" & p1).Group
End Sub

 

[VBABEGINER]

Off course this will work Sir.
coz we directly mentioned the value to p1.

In this case we try get the cells value in p1 which unble to read the cell value even we had given a proper markup to pick the value.

 

[VBABEGINER]

Sub test()
Dim p1
p1 = 15
MsgBox p1
Rows("7:" & p1).Group
End Sub

Sir, here we are not mentioned any group range. How it can be done grouping till a16?

 

[VoG]

Do you mean?

Rows("7:" & Range("A16").Value).Group

 

[VBABEGINER]

I again posted the code

Public Function tester()

Dim iam As Long
Dim jam

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

iam = Range("K" & Rows.Count).End(xlUp).Row

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
p2 = Cells(jam - 1, 11) '............last 2's
Else
If Cells(jam, 11) = 4 Then
p3 = Cells(jam - 1, 11) '............last 3's
Else
If Cells(jam, 11) = 5 Then
p4 = Cells(jam - 1, 11) '............last 4's
Else
If Cells(jam, 11) = 6 Then
p5 = Cells(jam - 1, 11) '............last 5's
Else
If Cells(jam, 11) = 7 Then
p6 = Cells(jam - 1, 11) '............last 6's
Else
If Cells(jam, 11) = "" Then
p7 = Cells(jam - 1, 11) '............last 7's
End If
End If
End If
End If
End If
End If
End If
Next

MsgBox p1
Rows("7:" & p1).Group - error "Type Mismatch"

Rows("p1:" & p2).Group

Rows("p2:" & p3).Group

Rows("p3:" & p4).Group

Rows("p4:" & p5).Group

Rows("p5:" & p6).Group

Rows("p6:" & p7).Group

End Function

 

[VBABEGINER]

any help?