need macro insert row under specific data

excelledsoftware · #2 09-14-2014, 09:29 AM

This simple snippet should do it. Just set the EvalCol to the column letter containing Gel and 1410.01.

Code:

Sub InsertRow()
  Dim CheckRow As Long, EndRow As Long, CheckString As String, EvalCol As String
  
  
  EvalCol = "G" 'Set this to the column you need to evaluate keep it in quotes
  

  EndRow = Range(EvalCol & 50000).End(xlUp).Row
  
  For CheckRow = 2 To EndRow
    CheckString = Range(EvalCol & CheckRow).Value
    If CheckString = "1410.01" Then
      Range(CheckRow + 1 & ":" & CheckRow + 1).Insert
    End If
  Next CheckRow
  
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
how to create menu shortcut to insert specific picture	msworddave	Word	1	05-08-2013 02:00 AM
Linking: Insert > Pictures to a specific folder location	hockfam	PowerPoint	0	11-08-2012 08:09 PM
Match two sets of data and display specific data	lolly150	Excel	1	05-14-2012 10:33 PM
Insert an item to excel specific cell	apjneeraj	Excel	0	01-18-2011 03:39 AM