note: obviously “id”:A2 is not working is only an possible solution, can be also {“id”,A2} or “id”&A2.

Sub doFillOrders()
Dim oTotalOrder As Range
Dim oStandingOrder As Range
Dim oSupplementalOrder As Range
Dim lStordItems As Long
Dim lSupItems As Long

Application.ScreenUpdating = False

lStordItems = Application.WorksheetFunction.CountA(Range(“stordItems”)) ‘ standing order
lSupItems = Application.WorksheetFunction.CountA(Range(“supItems”)) ‘ supplemental order

Range(“firstItemQty”).Select
Range(Selection, ActiveCell.Offset(lStordItems – 1, 2)).Select
Set oStandingOrder = Selection

Range(“supplement_begin”).Select
Range(Selection, ActiveCell.Offset(lSupItems – 1, 2)).Select
Set oSupplementalOrder = Selection

Application.ScreenUpdating = True
Set oTotalOrder = Union(oStandingOrder, oSupplementalOrder)

‘ no null fields please
If isCompleteOrder(oTotalOrder) Then
Call doUpdateSales(oTotalOrder) ‘ update access db
Else
MsgBox “Incomplete Data, Check Entries and Try Again”, vbCritical, “ERROR”
End If

Set oStandingOrder = Nothing
Set oSupplementalOrder = Nothing
Set oTotalOrder = Nothing

End Sub

How would one select the contents of these two ‘AREAS’ programatically if there were only one item in either area? (0 items and many items is simple.)

Range(Selection, Selection.End(xlRight)).Select
Range(Selection, Selection.End(xlDown)).Select

won’t work with one row because you get to ‘davy jones locker’ pretty fast.

Range(“firstCellInArea”).CurrentRegion.Select

won’t work because there are headers and one column is populated with formulas

doco

I think this is quite difficult. I’ve never dont it myself but understand it involves creating the formula auditing arrows and navigating them to the next sheet.

This Groups search might assist:
Google Groups Excel Precedents

Cheers,
Rob

I want to find the Precedents of a given cell. I am able to find the precedents in the Active sheet.

Is it possible to find the Precedents of a given cell in an Inactive Worksheet?

Plz reply.

Thanks,

Cheers,
anantha

?union(range(“A1:A5?),range(“B1:B5?)).Areas.Count
1
?union(range(“A1:A5?),range(“C1:C5?)).Areas.Count
2
?union(range(“A1:A5?),range(“B2:B5?)).Areas.Count
2

The first makes A1:B5, which is a nice rectangular contiguous range. The second is obviously discontiguous. The third is not considered contiguous by Excel, because it’s missing a corner. You need to refrence both areas to describe its shape.

Another strangeness is that the areas are numbered in the order they are selected or defined. Both of these define the same bunch of cells on the worksheet, but in one case, column A is specified first, in the other column C is specified first. Area(1) and Area(2) switch, as does the address of the combined range.

?union(range(“A1:A5?),range(“C1:C5?)).Address(false,false)
A1:A5,C1:C5

?union(range(“A1:A5?),range(“C1:C5?)).Areas(1).Address(false,false)
A1:A5

?union(range(“C1:C5?),range(“A1:A5?)).Address(false,false)
C1:C5,A1:A5

?union(range(“C1:C5?),range(“A1:A5?)).Areas(1).Address(false,false)
C1:C5

You have to be careful, because this line of code from the discussion above will have different effects:

MyRange.Areas(2).Font.Bold = True

- Jon