I am trying to pop open a messagebox if a cells interior color index = 3 in a named range.
Private Sub Workbook_Open()
If Sheet1.Range(" Schedules").Interior.ColorIndex = 3 Then
MsgBox "One or more Trainee requires more than TWO HOURS PER WEEK to forefill his log book requirements"
End If
End Sub
I am trying to assigned the values of two adjacent cell in a msgbox (columns AE and AF) as it is to far away for me to scroll and hiding the other columns will cause me to unhid it when I need to enter some information on it.
What I want to do, is when I double click activecell in column B, msgbox will pop and tell me the values nested in the same row under columns AE and AF (contract start date is : in column AE, contract end date : in column AF)
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Contract Start Date" & ActiveCell.Row.Offset(0, 30).Value & "Contract Start Date" & ActiveCell.Row.Offset(0, 31).Value
End Sub
Users will either accept the numerical entry that is in any cell, or enter a different number or Zero.
I have a few users that have not found the Delete Button, therefore they are typing a Space and hitting Enter, for Zero (nothing).
This is causing alot of problems because there are formulas that work off of these cells, and can't because the "data type is different"
I recorded the below (and also tried the commented out part) but it is not doing what I wish.
The ActiveCell will give the MsgBox after I return to that cell (if I do), but I need the Msg to appear after I leave the cell instead.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.FormulaR1C1 = " " Then
'If Target.Cells < " " Then
MsgBox prompt:="Please use the DELETE button or put a ZERO in that cell"
End If
End Sub
I need a MsgBox to show one time for five seconds, and not repeat.
Here is a sample of where I'm at. But this code repeats.
Public Sub timebox()
MsgBox "Let Me See You Work"
Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="timebox"
End Sub
I'm having some trouble showing a messagebox if the user presses OK but doesn't select a folder using msoFileDialogFolderPicker.
[Code] .....
The 2 MsgBox's I've added show the same string, yet the If Not InStr line returns true regardless if ":" is in the string or not.
Is there any way that I can format a cell to insert a colon three spaces to
the left from the end of any group of numbers that I type in the a cell?
Examples 9:15 10:15
in A1 I have a drop down list with unit numbers and descriptions
example - 123456 - 30 to 150 lots
I want to see if when I pick from the drop down list the right unit and description that the cell will only show the first 5 digits.
example I pick 123456 - 30 to 150 lots in cell A1 would say 123456
I'm sure there must be a way to dimension a string and format it for use in a MsgBox, but I have no clue how to do the initial formatting; any help would be GREATLY appreciated.
FYI - something along the lines of...
Dim S as String
S = "This part of the string is bold and italicized, and this part is not"
MsgBox S, vbInformation, "My Title"
This stems from an earlier thread but I didn't want to raise a new question on a previous thread. So, Wigi had kindly shown me some code for seeing how long a macro takes to run. I've been trying to adjust the format so that when it's complete it shows as "This macro took 00:01.23 seconds to complete" Or, mm:ss.ss, if that's possible. Here's what was shown to me earlier:
Dim t
t = Timer
'-------rest of the code here-------
MsgBox "This macro took " & Round(Timer - t, 2) & " seconds to run."
I've been trying some variations like: MsgBox "This macro took " & Format(Timer - t, 2, "h:mm:ss.0") & " seconds to run."
(3) examples when I type a number to a cell:
If I type a number "1", I want that cell to show 1.000% but not 100.000%.
If I type a number ".2", I want that cell to show 0.200% but not 20.000%.
If I type a number "25.5", I want that cell to show 0.255% but not 2550.000%.
I play around with the below custom format cells but they do not work.
_0.01*#.000%
_0.01*#,.000%
0.01*#,.000%
I could use two cells one for number, other cell has a % mark. But I rather to format a single cell if it is possible.
I need to enter dates for the previous year, is there any way of formatting the cell to show the dd/mm/2011 when I format a whole column?
View 2 Replies View RelatedHow can I condition format a cell to show no format if the cell contains a date
Please see the attached book1.xlsx for more info. Book1.xlsx
can you format msgbox? i want to centre/center some text
(also - mods...
....If are you new to the forum, or unsure,...
surely -
...If you are new to the forum, or unsure,........?
)
I have a number format that I need assistance with:
The number format I need is 1234-000 or 1234-001
The normal number format is 1234-000, very rarely does the 1234-001 be used. So I would like the number format to left fill the left section 1234 and right fill the right section 001.
In excel if you press F5Special, you will be given to select cells with some criteria but there is no criteria to select cells with zero value in a selected range. Is any such option is available in excel or a macro is needed for the same?
View 9 Replies View RelatedIn one of my spreadsheets users can see the active period on multiple worksheets
All have cell references to the 1st worksheet (cell B5). I would like 2 things:
1. If users change one of the reference cells on the other worksheets I would like a msgbox to appear
2. After clicking the msgbox away I would like the "old" cell contents (the referenece) to be restored.
I have a formulae in cell C1 (looks up A1, B1). I want to have a msgbox come up when the value in cell C1 is either #VALUE! / #N/A / any other error. So: if error.type in (1 - 7), want error box. Else if error.type = #N/A, no error box!
View 5 Replies View RelatedI have the following format in Excel, how I change to show just year as when I go to format, cells, it appears to be customed to be h:mm:ss but I need it as yyyy, which if I change to it shows 1900..
2002:09:00
2002:10:00
2002:11:00
2002:12:00
2003:01:00
2003:02:00
2003:03:00
2003:04:00
In the formula =A1&" "&"Statement Value". I would like to show the value of A1 as a Month (Aug) rather than 40056. The formula is in cell J1 and A1 is a link from another sheet formated as a Month. The result would update as the value in A1 get changed.
View 4 Replies View RelatedIs there a way to format a cell based upon a condition? If the cell value is <1, I want to show two decimal places. If the cell is >1, I want to show zero decimal places. I tried to use the conditional formatting, but there is no option for this.
View 3 Replies View RelatedZ3=Z4 in a "ddd" date format
Z4=mm/dd/yy (this is auto populated)
What I want in Z3 is for it to show the ddd format for the day of the week (which I have done), BUT I want it to be blank if there is nothing in Z4.
How do I format numbers so it will show the actual first digit, and the rest as x?
so that $1,234.56
will appear as $1,xxx.xx
or alternatively,
$1,234,567.89
will appear as $1,xxx,xxx.xx
I would prefer to do this with custom formatting rather than VBA,
(this is so I can generate sample reports for prospective clients, without showing the real numbers in the tables)
I have used conditional formatting, by which cells in a column (Column D) would either have "Text1" or "Text2" or "Text3". VB code so that macro runs a check on 'Column D' and if any cell contains "Text3", a pop-up appears with message "Text3 is there"
View 14 Replies View RelatedI need is a MsgBox that will be displayed when the user clicks a command button in a UserForm. The MsgBox shows the data in a specific cell.
View 9 Replies View RelatedSheet1 AB120091002Valid220090702Valid320100702Not Valid Excel tables to the web >> Excel Jeanie HTML 4
In this A column Shows Year month Date format I need VBA Coding.
If A column is Grater than Today date Means B Column States Not Valid. Else Valid.
I would like to format a row of cells. I want each cell in the row to contain (and show) both an interger and text. The interger will range in value from one to ~10,000. The text will always be two characters long...but these characters will change from cell to cell.
Elsewhere in the spreadsheet I will have a cell (w/ a formula) that counts the values of the intergers in the row, but ignores the text in each cell.
a procedure for format ing the cells in the row?
I'm trying to get an excel custom number format to show the difference in two dates as 0 years and 0 months...for e.g.
Cell a1 = commencement date = 1/1/05
cell a2 = expiration date = 12/31/10
Then cell a3 = Lease Term = 6 years 0 months.
is there a way in VB to make it fast, and tidy, clear the contents of all unlocked cells on one sheet ?
View 2 Replies View RelatedI have set up a userform. I have alot of if statements to help the user input correctly. The first part of the code is fine, it's just to show you what i'm doing. The part in red shows where i have no idea how to write it.
There is a value in worksheet 'day 1 grade 2'!h31, if the value is equal to or greater than 30 and a value has been entered into Me.NoOfStudents.Value, i want the msgbox the appear.
-In cells J6:P11
- Display a MsgBox for the value in J6; Then
- Display MsgBox for the value in K6; Then
- Display MsgBox for the value in L6
- etc, etc