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,
*Can you share sample file...*
On Wed, May 2, 2012 at 9:58 PM, vaibhav joshi wrote:
> 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
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 wrote:
> *Can you share sample file...*
>
>
> On Wed, May 2, 2012 at 9:58 PM, vaibhav joshi wrote:
>
>> Dear all
>>
>> I am having a sheet ,which contains data of various p
Hi,
Try it,
Sub insertrows()
Dim i As Long
On Error Resume Next
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
Cells(i, "A").EntireRow.Insert
Next i
End Sub
Regads,
MARIES.
On Wed, May 2, 2012 at 10:36 PM, vaibhav joshi wrote:
> Hi i wanted to insert a row between cell A1 & A2 at
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
Applicati
Dear Vaibhav
Please attach sample for reference.
*Regards,*
*Lalit Mohan*
On Thu, May 3, 2012 at 12:17 PM, NOORAIN ANSARI wrote:
> Dear Vaibhav,
>
> Please select required range and run this code..
>
> Sub InsertRows_Vaibhav()
> Dim InsQuan As Integer
> On Error Resume Next
> InsQuan = InputB
End Sub
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguille...@gmail.com
From: vaibhav joshi
Sent: Thursday, May 03, 2012 12:36 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Automatic insert of row at each change in
particular data
Hi i wanted to insert a row between c
set(2).SpecialCells(xlCellTypeVisible)
If .FilterMode Then .ShowAllData
SplitAt.Insert (xlDown)
End With
End Sub
Asa
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of vaibhav joshi
Sent: Wednesday, May 02, 2012 10:36 PM
To: excel-macro