Looping with more than one condition
in [Programming]
|
Prev: HELP: Unable to clear values for control of type text in a userfor
Next: Excel 2007 - VBA Password Input shows after Excel is closed
From: Carrie_Loos via OfficeKB.com on 1 Jun 2010 15:59 I have a very large spreadsheet that loops through cells and updates them if they are blank. I have a new conditon to add to that where if the cell is blank and another is not blank then move to next cell. I'm a little stuck on how to write that part. Can I put an "And" prior to the Then? Dim mycell As Range For Each mycell In Range("TO_Test") If IsEmpty(mycell) Then mycell = "something" End If Next mycell -- Message posted via http://www.officekb.com
From: Mike on 1 Jun 2010 16:54 Sub test2() Dim mycell As Range ' If TO_Range is in column A ' Offset(0-Rows,1-Columns) will ' check 1 column to the right to if blank For Each mycell In Range("TO_Test") If IsEmpty(mycell) And _ IsEmpty(mycell.Offset(0, 1).Value) Then mycell = "something" End If Next mycell End Sub "Carrie_Loos via OfficeKB.com" wrote: > I have a very large spreadsheet that loops through cells and updates them if > they are blank. I have a new conditon to add to that where if the cell is > blank and another is not blank then move to next cell. I'm a little stuck on > how to write that part. Can I put an "And" prior to the Then? > > Dim mycell As Range > > > For Each mycell In Range("TO_Test") > If IsEmpty(mycell) Then > mycell = "something" > > End If > Next mycell > > -- > Message posted via http://www.officekb.com > > . >
From: Carrie_Loos via OfficeKB.com on 1 Jun 2010 17:35
THANK YOU! Mike wrote: >Sub test2() >Dim mycell As Range >' If TO_Range is in column A >' Offset(0-Rows,1-Columns) will >' check 1 column to the right to if blank >For Each mycell In Range("TO_Test") > If IsEmpty(mycell) And _ > IsEmpty(mycell.Offset(0, 1).Value) Then > mycell = "something" > End If > Next mycell >End Sub > >> I have a very large spreadsheet that loops through cells and updates them if >> they are blank. I have a new conditon to add to that where if the cell is >[quoted text clipped - 9 lines] >> End If >> Next mycell -- Message posted via http://www.officekb.com |