Solved

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

Posted on 2012-12-28

Microsoft Excel

1 solution

299 Views

Last Modified: 2012-12-29

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

Comment

Question by:AndreasHermle

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 43

Accepted Solution

by:Saqib Husain, Syed

Saqib Husain, Syed earned 500 total points

ID: 387273522012-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

Author Closing Comment

by:AndreasHermle

ID: 387289762012-12-29

Fast code, exactly what I was looking for.

Thank you very much for your professional support.

Regards, Andreas

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Convert a grid inside a picture into Microsoft Excel

Article by: Wilder1626

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.

Automated Link Checker

Article by: Josh

This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…