ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   VBA to find difference in cell locations (https://www.excelbanter.com/excel-discussion-misc-queries/252113-vba-find-difference-cell-locations.html)

James

VBA to find difference in cell locations
 
Is it possible to find the difference between cell locations. Such as if I
am on cell E1 and pick another cell H1, I would like to know the difference
between the locations. In this case there are 2 cells between E1 and H1.

I am writting a code that needs to know the difference between the cell
location, I just don't know what the VBA looks like for something like this.

Thanks

Dave Peterson

VBA to find difference in cell locations
 
You don't need VBA for this.

You could use:
=column(h1)-column(e1)
and if you wanted the row difference:
=row(h1)-row(e1)

If you wanted to ignore the end points, you could just subtract 1 from the
formula.
=column(h1)-column(e1)-1

But I'm not sure I do that.

How many columns are between H1 and H2?

In code, you could use:

Dim Cell1 as range
dim Cell2 as range

with worksheets("SomeSheetNameHere")
set cell1 = .range("h1")
set cell2 = .range("e1")
end with

msgbox cell1.column - cell2.column '-1 'if you want.



James wrote:

Is it possible to find the difference between cell locations. Such as if I
am on cell E1 and pick another cell H1, I would like to know the difference
between the locations. In this case there are 2 cells between E1 and H1.

I am writting a code that needs to know the difference between the cell
location, I just don't know what the VBA looks like for something like this.

Thanks


--

Dave Peterson

James

VBA to find difference in cell locations
 
Dave,
That was to easy, I guess I tried to get to complicated the other day.
Thank you again.

"Dave Peterson" wrote:

You don't need VBA for this.

You could use:
=column(h1)-column(e1)
and if you wanted the row difference:
=row(h1)-row(e1)

If you wanted to ignore the end points, you could just subtract 1 from the
formula.
=column(h1)-column(e1)-1

But I'm not sure I do that.

How many columns are between H1 and H2?

In code, you could use:

Dim Cell1 as range
dim Cell2 as range

with worksheets("SomeSheetNameHere")
set cell1 = .range("h1")
set cell2 = .range("e1")
end with

msgbox cell1.column - cell2.column '-1 'if you want.



James wrote:

Is it possible to find the difference between cell locations. Such as if I
am on cell E1 and pick another cell H1, I would like to know the difference
between the locations. In this case there are 2 cells between E1 and H1.

I am writting a code that needs to know the difference between the cell
location, I just don't know what the VBA looks like for something like this.

Thanks


--

Dave Peterson
.



All times are GMT +1. The time now is 04:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com