Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
I need to fill a Column (B) with a value of "1" in every cell that is null up
to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
We may be at cross purposes over the definition of Null but try this
Sub Sonic() Set myrange = Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) For Each c In myrange If IsNull(c) Then c.Value = 1 Next End Sub Mike "NEWER USER" wrote: I need to fill a Column (B) with a value of "1" in every cell that is null up to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
"NEWER USER" skrev i en meddelelse ... I need to fill a Column (B) with a value of "1" in every cell that is null up to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you Hi Sub FillColB() Dim tRange As Range Dim c Set tRange = Range("A1", Range("A1").End(xlDown)) For Each c In tRange If c.Value < "" Then c.Offset(0, 1).Value = 1 Next End Sub regards, Per |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
Sub FillIn()
Dim rng As Range Dim rBlanks As Range Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) Set rBlanks = Range("B1", rng).SpecialCells(xlCellTypeBlanks) rBlanks.Value = 1 End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "NEWER USER" wrote in message I need to fill a Column (B) with a value of "1" in every cell that is null up to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
Problem with IsNull. I replaced with If (c) =2 Then c.Value = 1 and it
worked fine. So, I want to replace EMPTY cells with 1. What do I use or change IsNull to? I( feel I am almost there. Thanks "Mike H" wrote: We may be at cross purposes over the definition of Null but try this Sub Sonic() Set myrange = Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) For Each c In myrange If IsNull(c) Then c.Value = 1 Next End Sub Mike "NEWER USER" wrote: I need to fill a Column (B) with a value of "1" in every cell that is null up to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
Jim,
Thanks for the help. You nailed it. Have a GREAT weekend. Many Thanks "Jim Cone" wrote: Sub FillIn() Dim rng As Range Dim rBlanks As Range Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) Set rBlanks = Range("B1", rng).SpecialCells(xlCellTypeBlanks) rBlanks.Value = 1 End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "NEWER USER" wrote in message I need to fill a Column (B) with a value of "1" in every cell that is null up to the last row having a value in Column (A). There are no empty cells in column A up to the last row with data in the spreadsheet. I can not accomplish through a recorded macro. Can anybody help me with some coding to accomplish this task? Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB code needed | Excel Programming | |||
Help with code needed | Excel Programming | |||
Help needed with VBA code | Excel Discussion (Misc queries) | |||
Help Please - last bit of code needed | Excel Programming | |||
Code Fix Needed | Excel Programming |