Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8,520
Default 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

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Set cell value if adjecent cell value is greater than 0 SaigonJeff Excel Worksheet Functions 2 June 1st 09 12:41 PM
Change Validation list in the adjecent cell on the Basis of Value in the Current Cell ankur Excel Programming 1 January 10th 07 12:56 AM
cell value based on null/not null in another cell spence Excel Worksheet Functions 1 February 18th 06 11:49 PM
cell shows 0 when referenced cell is null dee Excel Worksheet Functions 8 October 6th 05 01:39 PM
if cell has null value, move data from one cell to another looped Excel Programming 1 May 17th 05 12:48 AM


All times are GMT +1. The time now is 02:39 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"