Re: Is this possible ?

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

anonymous_at_discussions.microsoft.com
Date: 09/27/04 

Date: Mon, 27 Sep 2004 06:15:52 -0700

Tom

Column A is actually empty (there is no formula
involved). I have tried your amended version of Bob's
solution and I have success.

Many thanks
Steve
>-----Original Message-----
>Are column A cells actually empty or do they all contain
a conditional
>formula that makes the cell appear emtpy under certain
conditions?
>
>Anyway, Bob's code had a reversed condition as I read
your description
>
>Dim cell as range
>for each cell in intersect(columns(1), _
> activesheet.usedrange)
> if cell.Value = "" then
> cells(cell.row,3).value = 0
> cells(cell.row, 5).value = 0
> end if
>next
>
>
>--
>Regards,
>Tom Ogilvy
>
>
>"Steve" <anonymous@discussions.microsoft.com> wrote in
message
>news:432a01c4a48c$c494a870$a601280a@phx.gbl...
>> Bob, this appears to put zeros in every row of columns 3
>> and 5 regardless of whether column 1 is noull or not.
>>
>> Steve
>> >-----Original Message-----
>> >Try the following (untested!)
>> >
>> >Dim cell as range
>> >for each cell in intersect(columns(1),
>> activesheet.usedrange)
>> > if not isempty(cell) then
>> > cells(cell.row,3).value = 0
>> > cells(cell.row, 5).value = 0
>> > end if
>> >next
>> >
>> >Robert Flanagan
>> >Macro Systems
>> >Delaware, U.S. 302-234-9857
>> >http://www.add-ins.com
>> >Productivity add-ins and downloadable books on VB
macros
>> for Excel
>> >
>> >"Steve" <anonymous@discussions.microsoft.com> wrote in
>> message
>> >news:1d3901c4a489$641689d0$a501280a@phx.gbl...
>> >> I want to populate specific column values with a
zero if
>> >> the value in another specified column is not null.
>> >>
>> >> As an example, I would like to place a 0 in columns
C &
>> E
>> >> of my spreadsheet if the value in column A is null.
>> >>
>> >> I presume that I would have to start by specifying
the
>> >> range which I would like this macro to work over. If
>> that
>> >> is so, is it possible for the range to set itself by
>> using
>> >> any row that has data on it (bar row1) ? This way,
the
>> >> range can vary depending on how many rows of data
are in
>> >> the spreadsheet at any given time.
>> >>
>> >> Thanks in advance.
>> >
>> >
>> >.
>> >
>
>
>.
>

Relevant Pages

  • RE: Format cells to make zeros not appear,or be invisible on screen &p
    ... Does anyone know how to format a cell so that it looks empty when a zero is ... want to extend the format so that zeros appear as blanks (or rather, ...
    (microsoft.public.excel.misc)
  • Re: IF statements
    ... I use a bit table to decide if a cell contains a value or is empty. ... The bit table is set to all zeros as an integer 2 or 4 zeroing. ... This is the heart of survey processing of truth values to count ...
    (comp.lang.fortran)
  • Re: If Function and empty cells
    ... I don't want to change the nothing values to zeros in my H ... I would like the cell to appear empty. ... > ANB ...
    (microsoft.public.excel.worksheet.functions)
  • Re: Error Checking Code, Excel 2000 & 2003
    ... Sub ErrorCheckTEST() ... Dim cell as Range, cell1 as Range ... msg= "ERROR Description is empty" ... MsgBox "ERROR Description is empty" ...
    (microsoft.public.excel.programming)
  • Re: Delete Table Rows (Blank) Macro Question
    ... I wish to just delete the empty ... Dim pCell As Word.Cell ... If pCell.RowIndex> pCurrentRow Then ... 'Current cell is not empty? ...
    (microsoft.public.word.vba.general)