Dear Vaibhav,
Please select required range and run this code..
Sub InsertRows_Vaibhav()
Dim InsQuan As Integer
On Error Resume Next
InsQuan = InputBox(Enter number of rows to insert, Your Call)
If InsQuan = 0 Then
MsgBox Invalid number entered, vbCritical, Stop!
Exit Sub
End If
I thought I answered this once already
Use this macro in a macro enabled workbook
Sub insertrows()
Dim i As Long
On Error Resume Next
For i = Cells(Rows.Count, c).End(xlUp).Row To 2 Step -1
If Cells(i, c) Cells(i - 1, c) Then Rows(i).Insert
Next i
End Sub
Don Guillett
Microsoft MVP Excel
Hi Vaibhav,
You got some other good responses.
Here are versions that should be faster for large ranges, since it does not
have to loop through every cell in column A.
It has an important limitation, though: It will only work correctly if
there are at least two of every unique value in
Dear all
I am having a sheet ,which contains data of various parties.
I want to insert row at each change in party name automatically ,whether it
can be done automatically or i have to make it manually
Regards
Vaibhav
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise,
Hi i wanted to insert a row between cell A1 A2 at each change in column A
text
On Thu, May 3, 2012 at 10:39 AM, Maries talk2mar...@gmail.com wrote:
*Can you share sample file...*
On Wed, May 2, 2012 at 9:58 PM, vaibhav joshi vaibhav...@gmail.comwrote:
Dear all
I am having a sheet