Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
find a non-empty cell
Dear experts,
what is the quickest VBA way to determine in a big cells range if at least one of them is non empty? Many thanks for your help! Best regards -- Valeria |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
find a non-empty cell
Does this help..
Set varRange = Selection.Find("*") If Not varRange Is Nothing Then MsgBox "Data exist in this range" -- Jacob (MVP - Excel) "Valeria" wrote: Dear experts, what is the quickest VBA way to determine in a big cells range if at least one of them is non empty? Many thanks for your help! Best regards -- Valeria |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
find a non-empty cell
Hi,
This tells you the empty cells in a range and you can modify this easily to tell you how many cells are not empty If WorksheetFunction.CountA(Range("A1:c1000")) = _ Range("A1:C1000").Cells.Count Then MsgBox "No empty cells" Else num = Range("A1:C1000").Cells.Count - _ WorksheetFunction.CountA(Range("A1:c1000")) MsgBox num & " Empty cells in range" End If -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Valeria" wrote: Dear experts, what is the quickest VBA way to determine in a big cells range if at least one of them is non empty? Many thanks for your help! Best regards -- Valeria |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
find a non-empty cell
Works very well, thank you very much!
-- Valeria "Jacob Skaria" wrote: Does this help.. Set varRange = Selection.Find("*") If Not varRange Is Nothing Then MsgBox "Data exist in this range" -- Jacob (MVP - Excel) "Valeria" wrote: Dear experts, what is the quickest VBA way to determine in a big cells range if at least one of them is non empty? Many thanks for your help! Best regards -- Valeria |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
find a non-empty cell
You didn't have to set the Find call to a variable before testing for data
in the range; this works the same way your code does... If Not Selection.Find("*") Is Nothing Then MsgBox "Data exist in the range" -- Rick (MVP - Excel) "Jacob Skaria" wrote in message ... Does this help.. Set varRange = Selection.Find("*") If Not varRange Is Nothing Then MsgBox "Data exist in this range" -- Jacob (MVP - Excel) "Valeria" wrote: Dear experts, what is the quickest VBA way to determine in a big cells range if at least one of them is non empty? Many thanks for your help! Best regards -- Valeria |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find empty cell | Excel Programming | |||
Find first Empty Cell in a row | Excel Programming | |||
find empty cells in a column then append row that empty cell is in | Excel Programming | |||
To find empty cell | Excel Programming | |||
Please help find the next empty cell | Excel Programming |