Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing an If Statement for group of cells
I have a group of cells in a template, on the single cell I can run the routine
If Worksheets("Inventory").Range("AG11") = "" Then frmInventory.Hide pswd.Protect "xxxxxx" Exit Sub End If and it works great, but when I try to convert to cover several cells it keeps on failing. The Range of Cells that I am trying to run a check on a B25:B47, B50:B61, B64:B66, B86:B94,B103:B112,B114:B114,B116:B118,B120:b122, etc. I named these group of cells oClearCells. Any help would be greatly appreciated and very welcomed. -- Larry E. Brueshaber |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing an If Statement for group of cells
Larry,
Give this a try, it assumes that you protecting the Inventory worksheet. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware Sub BBB() With Worksheets("Inventory") If Application.CountA(.Range("oClearCells")) = .Range("oClearCells").Count Then frmInventory.Hide .Protect "xxxxxx" Exit Sub Else MsgBox "Got some blanks " End If End With End Sub '------------ "Larry" wrote in message I have a group of cells in a template, on the single cell I can run the routine If Worksheets("Inventory").Range("AG11") = "" Then frmInventory.Hide pswd.Protect "xxxxxx" Exit Sub End If and it works great, but when I try to convert to cover several cells it keeps on failing. The Range of Cells that I am trying to run a check on a B25:B47, B50:B61, B64:B66, B86:B94,B103:B112,B114:B114,B116:B118,B120:b122, etc. I named these group of cells oClearCells. Any help would be greatly appreciated and very welcomed. -- Larry E. Brueshaber |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing an If Statement for group of cells
Hi Larry,
Try something like: '============= Public Sub Tester001() Dim rng As Range Set rng = Range("B25:B47, B50:B61, B64:B66, B86:B94," _ & "B103:B112,B114:B114,B116:B118,B120:b122") If Application.CountA(rng) = 0 Then 'Your code Else MsgBox "All the cells are not empty!" End If End Sub '<<============= --- Regards, Norman "Larry" wrote in message ... I have a group of cells in a template, on the single cell I can run the routine If Worksheets("Inventory").Range("AG11") = "" Then frmInventory.Hide pswd.Protect "xxxxxx" Exit Sub End If and it works great, but when I try to convert to cover several cells it keeps on failing. The Range of Cells that I am trying to run a check on a B25:B47, B50:B61, B64:B66, B86:B94,B103:B112,B114:B114,B116:B118,B120:b122, etc. I named these group of cells oClearCells. Any help would be greatly appreciated and very welcomed. -- Larry E. Brueshaber |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
NEED HELP WRITING IF STATEMENT | Excel Discussion (Misc queries) | |||
Writing IF Statement | Excel Worksheet Functions | |||
Better way for writing IF statement ? | Excel Programming | |||
Help writing an IF statement | Excel Worksheet Functions | |||
need help in writing a statement | Excel Programming |