L
Lawlera
Can anyone please help me with some code to return the column number of the last cell in a selected range
TIA
TIA
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
I
incjourn
This might not be the best way but it works
-----------------------------------
For Each B In Selection
C = B.Column
Next B
lastcol = C
-----------------------------------
For Each B In Selection
C = B.Column
Next B
lastcol = C
N
Norman Jones
Hi Lawlera,
Try
selection(selection.cells.count).column
---
Regards,
Norman.
Try
selection(selection.cells.count).column
---
Regards,
Norman.
the last cell in a selected range?Lawlera said:Can anyone please help me with some code to return the column number of
B
Bob Phillips
With ActiveSheet.UsedRange
iCol = .Columns.Count + .Cells(1, 1).Column - 1
End With
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
iCol = .Columns.Count + .Cells(1, 1).Column - 1
End With
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
the last cell in a selected range?Lawlera said:Can anyone please help me with some code to return the column number of
N
Norman Jones
Hi Bob,
I suspect that this (elegantly) returns the last column in the sheet rather
than the selection.
I suspect that this (elegantly) returns the last column in the sheet rather
than the selection.
R
Rob van Gelder
I have some examples in the Working with Ranges section of my website.
--
Rob van Gelder - http://www.vangelder.co.nz/excel
--
Rob van Gelder - http://www.vangelder.co.nz/excel
the last cell in a selected range?Lawlera said:Can anyone please help me with some code to return the column number of
L
Lawlera
Lots of answers .. all different
Got what I needed so thanks to everyone!
Got what I needed so thanks to everyone!
B
Bob Phillips
You are correct, for Selectiuon it should be
With Selection
iCol = .Columns.Count + .Cells(1, 1).Column - 1
End With
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
With Selection
iCol = .Columns.Count + .Cells(1, 1).Column - 1
End With
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)