If cell is not null, add value to adjecent cell
The below macro checks for data in Column A and if found fills Column B with
"Hello" and loops until it reaches a null cell. If you are new to macros set the Security level to low/medium in (Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. Insert a module and paste the below code. Save. Get back to Workbook. Tools|Macro|Run Macro1() Sub Macro1() Dim lngRow lngRow = 1 Do While Trim(Range("A" & lngRow)) < "" If Range("A" & lngRow) < "" Then Range("B" & lngRow) = "Hello" lngRow = lngRow + 1 Loop End Sub If this post helps click Yes --------------- Jacob Skaria "Maver1ck666" wrote: Hi all, I have a spreadsheet which is automatically inported form a text file by VBA by the click of a button What I am trying to achieve (but failing miserably) is to build a loop statement that says, if cell x1 is not null then y1 = "hello!". This would then move on to x2 etc until it reaches a null cell which would then exit the sub. The tab will have mulitple records and I just cant seem to figure out the best (and quickest) automated way of doing it. Cheers for your help! Mav |
All times are GMT +1. The time now is 03:47 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com