Inserting Blank Row if it contains certain text

[Tabasco]

Wanted to add a blank row after every email address. I was thinking if any part of a cell contains "@" add a blank under it... Wasn't sure how to set the macro for it

For example...

Name
Address
123@email.com
* BLANK HERE*


Thanks

 

[Ron Coderre]

Try something like this...

B2: =COUNTIF(A1,"*@*")
Copy that formula down through as many rows as you have data

• Select the range containing that formula
• CTRL+F
...Find what: 1
...Click: Options (if necessary)...Look in: Values...Click: Find All
While that window is still open...
• CTRL+A...to select all matching cells...Click: Close
Now all cell containing 1 are selected (and they are 1 row below each email
• Home.Insert.Insert_sheet_rows

Is that something you can use?

 

[pedie]

try >>> Change the range as req.

[/FONT]
[FONT=Courier New]Sub try()
Dim c As Range
For Each c In Range("A1:A10")
 If c.Value Like "*@*" Then
 c.Offset(1, 0).EntireRow.Insert
 End If
Next c
End Sub

 

[Tabasco]

THANKS you guys have no idea how much time you saved me!

 

[jeetsingh007]

try >>> Change the range as req.

[FONT=Courier New]Sub try()
Dim c As Range
For Each c In Range("A1:A10")
 If c.Value Like "*@*" Then
 c.Offset(1, 0).EntireRow.Insert
 End If
Next c
End Sub[/FONT]

Hi,
Your above code helped me, so can you help me on below :
[TABLE="******* 191"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Step 1[/TD]
[TD]Login[/TD]
[/TR]
[TR]
[TD]Step 2[/TD]
[TD]Validate username[/TD]
[/TR]
[TR]
[TD]Step 3[/TD]
[TD]Logout [/TD]
[/TR]
[TR]
[TD]Step 4[/TD]
[TD]Login DB[/TD]
[/TR]
[TR]
[TD]B. Row
B. Row[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]B. Row[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]Step 5[/TD]
[TD]Validate username[/TD]
[/TR]
[TR]
[TD]Step 6[/TD]
[TD]Logout DB[/TD]
[/TR]
</tbody>[/TABLE]


Above i mentioned my case as example.
Query is : after adding a blank row after specific text how i can i correct the numbering(Sequence) of steps. Like previously i was having Total 6 Steps, so after adding blank rows it should show Total 9 Steps. and Blank row should replace with the name as Step "*".

Thanks.

 

[tderuyck]

Hi Pedie,
I have entered this code in the macro, and it running when a test it.
But once I am in my excel sheet, the macro don't run automatically once I enter the name. I need always to go in VBA, and click on the "play" button to execute the macro.
Is there a way, once I enter the name, automatically a line is created without going to go myself to press 'run'?
thanks