Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then ....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

first check that only one row is selected:

MsgBox (Selection.Rows.Count)

and then check that the entire row is selected:

MsgBox (Selection.Count)

for a complete single row, the first should be 1 and the second should be 256
--
Gary's Student


"Jack Sons" wrote:

Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then ....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

GS,

Thank you, but I don't want a message box to appear. Depending on wether an
entire row is selected or only one cell or a limited group of cells, I will
let something happen. I just need to know in that part of the code what in
the sheet is selected, an entire row or something else.

Jack.

"Gary''s Student" schreef in
bericht ...
first check that only one row is selected:

MsgBox (Selection.Rows.Count)

and then check that the entire row is selected:

MsgBox (Selection.Count)

for a complete single row, the first should be 1 and the second should be
256
--
Gary's Student


"Jack Sons" wrote:

Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then
....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

Sub JackSons()
Dim rownumber As Long

rownumber = ActiveCell.Row
If rownumber 1 And rownumber < 43 And _
Selection.Columns.Count = ActiveSheet.Columns.Count Then
'your code
End If

End Sub

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Jack Sons" wrote in message
...
GS,

Thank you, but I don't want a message box to appear. Depending on wether
an
entire row is selected or only one cell or a limited group of cells, I
will
let something happen. I just need to know in that part of the code what in
the sheet is selected, an entire row or something else.

Jack.

"Gary''s Student" schreef in
bericht ...
first check that only one row is selected:

MsgBox (Selection.Rows.Count)

and then check that the entire row is selected:

MsgBox (Selection.Count)

for a complete single row, the first should be 1 and the second should
be
256
--
Gary's Student


"Jack Sons" wrote:

Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then
....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

if selection.address = activecell.entirerow.address then
'single row selected
else
'not a single row
end if


Jack Sons wrote:

Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then ....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

--

Dave Peterson

Bob and Dave,

Thank you very much, would never have found this code myself.

Jack.

"Jack Sons" schreef in bericht
...
Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then
....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands

Hi Jack,

To check if an entire row is selected in VBA, you can use the following code:

Let me explain what each part of the code does:

1. Selection.Rows.Count = 1: This checks if only one row is selected. If more than one row is selected, this condition will not be met.
2. Not Intersect(Selection, ActiveSheet.UsedRange) Is Nothing: This checks if the selected row(s) intersect with the used range of the active sheet. If the selected row(s) are outside the used range, this condition will not be met.
3. Selection.Cells(1, 1).Row 1 And Selection.Cells(1, 1).Row < 43: This checks if the first cell of the selected row(s) is between row 2 and row 42 (since you mentioned rownumber 1 and rownumber < 43).

By combining these conditions with the "And" operator, you can check if the entire row is selected and if the row number is within the specified range.