Fill in a term above certain cells by means of a macro

Dear Experts:

I would like to run a macro that performs the following action:

Loop thru all the cells in Column A.
Whenever the macro hits a 1 (i.e. a cell filled with the value 1 in Column A) it should enter 'beginning' just above the cell where the value 1 is found.

Help is much appreciated. I have attached a sample file for your convenience.

Regards, Andreas

Add-Term-Above-Certain-Cells.xls

Andreas Hermle

Asked: 2012-12-28

Advertise Here

Microsoft Excel

1 Solution

LVL 43

Saqib Husain, SyedEngineerCommented: 2012-12-28

Sub fillbeginning()
Dim cel As Range
For Each cel In ActiveSheet.UsedRange.Columns(1).Cells
If cel.Offset(1) = 1 Then cel.Value = "Beginning"
Next cel
End Sub

Andreas HermleTeam leaderAuthor Commented: 2012-12-29

Fast code, exactly what I was looking for.

Thank you very much for your professional support.

Regards, Andreas

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Expand your skills with this month's free Premium course.

Fill in a term above certain cells by means of a macro

Join & Write a Comment Already a member? Login.

Featured Post