Replies

Hi verad
Do you mean a continuous range as in Shift+Click or discontinuous with control +click?

If a continuous selection then what about something like this as something different.
You pas in the starting cell, columnOffset and rows required.
If it looks likely then some tidying up is required.

Code:

Sub main()
    defineSelection "A7", 5, 100
End Sub

Sub defineSelection(rStart, colOffset, rowCount)
    Range(rStart).Select
    Range(ActiveCell, ActiveCell.Offset(0, colOffset)).Select
    Range(Selection, Selection.Offset(rowCount, 0)).Select
End Sub

Cheers
Geof

Hi Danci007

What happens if you put the bookmark name in place of A1 in the conditional portion?

Something like
{IF BkmkName= ” ” “Until resignation” {A1} }
or
{IF BkmkName= ” ” “Until resignation” {BkmkName} }

Cheers
Geof

Geoff, your attachment is based on the assumption the OP has a userform. However, the OP says in post #1 that he is using formfields, which are entirely different.

Hi Paul
Oops, a critical misread of the original post.
I will delete the post.
Geof

Show Office 2003 Pivot Table Old Wizard

Can you do this in Excel 07

[*]Right Click in PT
[*]Select Pivot Table Options
[*]Choose the Display tab[*]

42273-PTOptions

Cheers
Geof

Hi

Excel 2010
You would look for the contextual tab Named “Options” under the “PivotTable Tools” .
On there you will find a button named “Change Data Source”.

42272-excelPTChageSource

Geof

Hi LaurieW
The attached word document has an example form that demonstrates activating a text box control based on the contents of a combobox.

This is not a complete solution, merely a demonstration. You would need error checking and validation. For example check for valid dates
You might find a need to capture other events than those I show here.
I hope it helps.

Geof

Hi Chuck
You will have more joy customising the ribbon.
I believe that MS deliberately limited the QAT to the limits you have highlighted.
Geof

Does the Options dialog resemble excel 2010

In Options>>Advanced>>General we can specify a path to open all files at Startup.

Geof

Hi

Sorry but I am in the same boat as you.
And I have my head in the hunny jar reflecting on judgement. I am going down to the creek to toss sticks and think some more.
Geof

Hi
Does this article help?

Geof

Hi CWBilow
Is that folder listed as the Excel Startup location listed in Trusted locations?

In my 2013 I see locations for a default User Startup and an Excel Startup.

My Excel Start up is off Program FilesMicrosoft OfficeOffice14XLSTART

Cheers
Geof

Hi Zeddy

I was surprised to read that some thought it was associated with layout and pagebreak views. I don’t recall that but I cant refute it either.

As far as I can remember extend mode was there forever.

Off topic …
Something similar in Word with F8 key. Multiple successive presses select current word, sentence, paragraph and document.
F9 to toggle extend mode off.

You need to modify the status bar to view the mode.

Cheers
Geof

Hi again

The code below will only operate on the two sheets, m1 and m2 shown in the screenshot.
Each of the sheets m1 and m2 are activated in turn and the value 100 is inserted into “A30”
42213-Farrukh

Code:

Sub master()
    test ("m1")
    test ("m2")
End Sub

Sub test(sheetName As String)
    Sheets(sheetName).Activate
    Range("a30").Value = 100
End Sub

Geof

Hi
It sounds to me as if you have (inadvertently) activated “Extend Mode” in excel.
This is done by pressing “F8”. Having done so the selection is extended to the next cell you click on.
Look that the status bar at bottom left of screen.

42212-PaulHBS_extend

You turn off “extend Mode” by either

[*]pressing F8 again or
[*]pressing F9

F8, right arrow, right arrow will select the current cell and the next two to right.
F8 is an alternate manner to using shift and arrows or Shift + Click to extend the selection.
We used to teach these keyboard alternatives because this gave more control when selecting cells close to screen boundaries.

Hope it helps
Geof

Hi
Do you need activesheet.UsedRange ..

If so then you might have to activate the sheet first

Code:

Application.ScreenUpdating = False
Sheets(sheetName).activate
LastRow = activesheet.Usedrange .Rows.Count

Geof