coserria

03-28-2008, 03:14 AM

here we are,

I have dates in Column A or RC1, and in Column B I need the results of "=Text9RC[-1],"MMM/YY")"

This needs to take place if Column A has a value. if it is null I do not want an entry in Column B

her is my question I have I know that I have to set code to check column a for a 1 value. if it true then next cell. this can be performed also as a fill down, but only as far as A has a value.

Can someone give an example that I can look at I i understand how to just look at a single cell

I have this that deletes a row if the value is 0

I understand how it is working for the most part.

Set rng = Range(ws.Rows(1), Rows(ws.Cells.SpecialCells(xlCellTypeLastCell).Row()))

For Rw = rng.Rows.Count To 1 Step -1

If Application.WorksheetFunction.CountA(rng.Rows(Rw).EntireRow) = 0 Then

rng.Rows(Rw).EntireRow.Delete

End If

Next Rw

I have dates in Column A or RC1, and in Column B I need the results of "=Text9RC[-1],"MMM/YY")"

This needs to take place if Column A has a value. if it is null I do not want an entry in Column B

her is my question I have I know that I have to set code to check column a for a 1 value. if it true then next cell. this can be performed also as a fill down, but only as far as A has a value.

Can someone give an example that I can look at I i understand how to just look at a single cell

I have this that deletes a row if the value is 0

I understand how it is working for the most part.

Set rng = Range(ws.Rows(1), Rows(ws.Cells.SpecialCells(xlCellTypeLastCell).Row()))

For Rw = rng.Rows.Count To 1 Step -1

If Application.WorksheetFunction.CountA(rng.Rows(Rw).EntireRow) = 0 Then

rng.Rows(Rw).EntireRow.Delete

End If

Next Rw