Prevent clicking on a cell
I want to run the code below to prevent a range of cells from being selected
if the Range("Q7") = 1. I have all cells on the worksheet locked but the
user must be able to click on the locked cells to trigger a userform so I
have to check Select Locked Cells. So is there any way make the
If Range("Q7") = 1 Then
Range("B5:C5").Locked = True
>So is there any way make the
> Range("B5:C5") unselectable?
No but you can stop them staying there.
Private Sub Worksheet_...Access 2003 resets form variables during debugging while the form is open
I am using MS Access 2003. (FWIW, this is about an ADP project, not
A form has a variable that is initialized (by some function call) in
Form_Load() and then stays unchanged for the form's entire lifetime.
(In a language more advanced than VBA, it would be a constant, not a
variable; unfortunately, in VBA I cannot initialize a constant by non-
constant expression). Specifically, in my case it looks like this:
Private sTempFileName as String
Private Sub Form_Load()
sTempFileName = GenerateTempFileName(...)
Priv...if cell is text move left one column
ColB is a long list with sections names followed by category codes
I need to move the text into colA leaving colB with codes only (all numbers)
Dim lngRow As Long
For lngRow = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Not IsNumeric(Range("B" & lngRow)) Then
Range("A" & lngRow).Value = Range("B" & lngRow).Text
Range("B" & lngRow).Value = ""
...Can SUMPRODUCT be used for entire column?
This formula results in a numeric result:
but this formula results in a #NUM! result:
Which means I need to specify the length of the columns, which may grow over
time. Any way to do this for the entire column, without having to specify
the length of the column?
XL07 removed the limitation on array formulas (which SUMPRODUCT is, even
though it doesn't require CTRL-SHIFT-ENTER) and entire columns.
For pre-XL07, one can use
to get all but on...How do I extend a underline across an entire cell?
When working on a financial statement, I was curious how to 1. Have a line
extend across an entire cell even if the number is only 2-3 digits and 2. How
to apply a double line under a number without using the = sign in the
Look on the formatting toolbar for Borders
Regards Ron de Bruin
"Lindsay" <Lindsay@discussions.microsoft.com> wrote in message news:F4C9ED6C-7F2D-4277-86CC-6FA46D315DA5@microsoft.com...
> When working on a financial statement, I was curious how to 1. Have a line
> extend across an entire ce...Using scanner in Word97
I want to scan a picture into word97 using my HP 4370 ScanJet. Could not
find option of "From Scanner" under "Insert" --> "Picture". Apparently I
must need some sort of Word97 Add-On. What and where is the add-on? Is it
on the Office97 CD? Same applys to Excel97.
Also, does microsoft sponsor a Word97 / Office97 discussion group? If so,
would appreciate a link.
"PSRumbagh" <PSRumbagh@discussions.microsoft.com> said this in news item
> I want to scan a picture ...Using later version of microsoft access
I've got access 2000 on my computer. When I go to open a database someone
sent me I get an error message :
this database is in an unrecognized format. The database may have been
created with a later version of microsoft access.
Is there any way I can open and use this file (short of upgrading to later
version of access)?
If you do not have Access 2002 or 2003, ask the person to save it in Access
2000 format for you.
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at m...Separating Date and Time in a cell
I have a column of cells in the format "11/01/02 06:21". I would like to
separate the text into 2 cells - one with the date and the other with
the time. My attempts with LEFT and RIGHT have been unsuccesful. Thanks
for your help
Message posted from http://www.ExcelForum.com/
For the date use
replace A1 with the first cell of your range
you probably have to reformat the first to
mm/dd/yy (or whatever the setting is)
Note that you can do this by just using format but if you want to compare to
other cells with just pure d...cell contents revert to 0 when i click on the next cell
I put a number into a cell click on the next cell and the first cell reverts
to 0. If I format to number with 2 decimal places it will be ok but when I
try to take out decimal places it goes back to zero,
You haven't said what number you are trying to put into the cell, but I
suspect that the number is less than 0.5.
A quick test shows that if you set the cell to no decimal places then enter
a number less than 0.5 it is displayed 'rounded down' so it will show as
zero, if it's 0.5 or above it displays as 1.
If you need to put numbers less than 0.5 into youe c...How to track ActiveControl.Name when switching records in form with multiple subforms
I need to have a global variable always contain the name of the
current form field. This bit of code is attached to the GotFocus
event of all fields and the Enter event of all subforms:
gxCurrentField = Me.ActiveControl.Name
However it doesn't work properly when changing records in a subform.
My parent form contains two subforms in a many-to-many relationship.
The above variable usually ends up containing the name of the first
field in the second subform when switching records in the first
How to correctly code this? Or is there some native variable I'm not
aware of? I...Using Company Wide Mail Templates.
I do not know if i am at the right spot here, or if it is evne possible, but
i got the following question.
My boss would like me to make sure that every outgoing mail has the same
looks. It starts by adding a signature that is the same for everyone, except
with ofcourse personalized information. This was easily done by giving
everyone a signature.
The next question is however, to put the head of our website, also above our
mail. This means that every user that sends a mail, the mail will have a nice
header, underneath that header, the mail is typed, and then its ended with
the si...Accommodating for empty cells in this formula?
I have a formula in cell H21, for example, reads like this:
is there a way to adjust the formula so that an empty cell in G21 doesn't
give the #VALUE! in subsequent cells in column H?
Just to give a similar example, this formula =SUMIF(A1:A9,"<>0") adjusts for
any and all empty cells in A2 to A9. It no longer matters if any of the
cells are empty, the formula correctly gives the correct addition of A1
plust a sum of everything between A2 to A10 without any #VALUE! results.
Was hoping to have the formula above als...Dynamic Range Selection Using VBA
What I'm trying to accomplish is to be able to run a procedure that selects a
range based on a number provided in another cell. For example; if the number
10 is in cell A1, then cells A20:A30 would be selected when I run the macro.
If the number 6 is provided, then cells A20:A26 would be selected. Not sure
where to start, so any help is appreciated.
this may do what you want
"TEK" <TEK@discussions.microsoft.com> wrote in message
news:DA9FFF99-FC28-...how create Quota filter in WIndows 2003 R2 using Script
I need create quota filter in Server 2003 R2 using vbscript. quota
filter should be applied to directories and not by users.
I searched information about it on google without success.
thank's in advance
First you need open your FSRM (File Server Resource Manager), then you
create a quota template, you must specify if your quota is "software" (just
monitoring, but never deny the user) or "hardaware" (deny users when they
use 100% of the quota), you must specify if you want send e-mail to user
when this user use...Automatic changes in cells
Hi for some reason I now have to save my work for any formlas etc to change
when I update a worsheet, how can I stop this as it is a pain and sometimes
I need to do changes to see how they work before saving the work.
Click on Tools | Options | Calculation tab and set to Automatic
calculation, as it is probably set to Manual. You can press F9 to
force a recalculation under a manual setting.
Make sure you save the file with the Automatic setting, to avoid it
happening next time.
Hope this helps.
On Feb 1, 11:42=A0am, Office 2004 Test Drive User
<heepenm...@yahoo.co.u...cell colour change when set markers are reached
i need to get a cell to change colour when markers are reached eg
a qualification lasts 12 months. what i want to do is have the cell change
from yellow to orange to red as the expiry date gets closer.
If column A contains expiry dates then select column A,
=DATEDIF(TODAY(),A1,"m")<1 red for 1 month
Click Add button, formula2:
=DATEDIF(TODAY(),A1,"m")<2 orange for 2 month
Click Add button, formula3:
=DATEDIF(TODAY(),A1,"m")<3 yellow for 3 month
Adjust number of months as you like!
Regards,...Using Publisher 200 with Publisher 2003
How do I covert PUB2000 documents to Pub2003 documents and vice versa?
Pub 2003 can open anything, no conversion necessary. Going backward is a bit
trickier. File - Save As and chance the file type to a Pub 2000 file.
Possible problems can arise if you've used a feature that was not available
in the 2000 version and your file size will grew immensely.
MVP Microsoft [Publisher]
"nasuco" <firstname.lastname@example.org> wrote in message
> How do I covert PUB2000 documents to Pub2003 do...Calculating on alphabetic cell content
A selection of 4 different letters in a column representing different values
to be used in a formula shall be run through. The calculated result of each
cell in the column shall be placed in the cell next to the read one that
holds the letter.
Thanks in advance.
i think you're after the COUNTIF function
with your column of letters in A1:A100
and the letter you're interested in in C1
then in D1
this will count the number of times the value in C1 occurs in your range.
If this isn't what you're after, could you type out a few examples of your
...Removing text from cells leaving numbers (help with function)
I need a function that will remove all text from a cell and just leav
numbers. Formatting cells to number does not work.
For example if I have:
(Sired] Tennessee 37013 (herein
I just want 37013 left.
Anybody know a function to resolve this
Message posted from http://www.ExcelForum.com
The following will strip the text from the active cell and place the number
in the adjcent cell one column to the left. If there are subsequent numbers
in the original string you will get erroneous results. Put the cursor on the
cell to be processed and run the macro.
********************************...Sorting Cells by Colors
Is it possible to write a VBA code to sort excel cells by colors, and the
followed by other criterias, as in the normal sort?
Thank you in advance.
See Chip Pearson's Sorting By Color page at:
"swiftcode" <email@example.com> wrote in message
> Hi all,
> Is it possible to write a VBA code to sort excel cells by colors, and the
> followed by other criterias, as in the normal sort?...searching a cell for a contained text word
Is it possible to search a cell for a key word or words contained in text
made of multiple words enabling the user to than create a pivot table using
the collected key word or words as data?
...Question for Bob Phillips re Splitting Names from Cells
You gave the answers below for splitting names from cells:
Using these formulas on this example John A Doe results in John A an
Doe, is it possible to split it to show John / A / Doe in 3 separat
cells, I know I could use the formulas again on the John A result t
split them but I'd like to do it in 1 go
If possible could...How do I create upper/lower case letters in cells?
I have a large spreadsheet with names/addresses that are all capitalized. I
want to make them upper and lower case (SMITH = Smith). What's the formula?
You could create helper cells with this formula
> I have a large spreadsheet with names/addresses that are all capitalized. I
> want to make them upper and lower case (SMITH = Smith). What's the formula?
...Change Domain Name on outgoing Emails
Our company just purchased another company with their own Exchange Server and
AD infrastrure. We want all users in this new facility to have Email
addresses with our Domain such as firstname.lastname@example.org instead of their current
Domain email@example.com. Until I migrate resources from their Forest into
our Forest I have created contacts to forward all Emails from the abc Domain
to the 123 Domain. When users reply or send Emails from the 123 Domain it
still has their firstname.lastname@example.org Email address which will cause confusion
with our customers and suppliers. How do I force their Emails to us...Report: Cell #1, Cell #2, Cell #3, Cell #4
I am stuck again and would love som help :(
I would like to repeat all words found inside ~25 cells, separated only
by ", ", ignoring empty cells.
A1: [Apple ]
A5: [Syrup ]
A6: [ ]
A7: [ ]
A8: [ ]
The result should be something like:
[Apple, Orange, Banana, Tomato, Syrup]
JemyM's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=26945
View this thread: http://www.excelforum.com/showthread.php?thre...