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
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
What i am trying to do: 1) check whether any value in column J, rows 7-18 is changed, 2) check whether the value is above the value in col H, respective row multiplied by 1,25, 3) if point 3 true, clear the contents of cells E24, F24, and show up a messagebox, 4) run another macro by pressing button in cell C24 in order to fill the E24 and F24 cells again.
What happens: Points 1-3 work perfectly well, but then i have a problem in point 4 - the messagebox of point 3 appears again and the work of macro of point 4 interrupts showing an "Application-defined or object-defined error".
Going around in circles. I have managed to piece together some VBA from the forumns to show some information in a MsgBox, I now want to past that same data and possibly more into a worksheet called "Status of an App" in Cells A2, B2, C2 etc.
If there is more data in a cell than can be displayed due to the size of the cell, is there a way to get a real-time preview of all the contents in the cell just by hovering over or clicking on the cell?
I have a column of dates in column E1:E100. E1 = 25/06/2012 E2 = 02/07/2012 E3 = 09/07/2012 etc.
In column F1:F100 I will insert "Y" in the one of the blank cells next to one of the date cells in column E1:E100.
In cell B1 I want to reference where the cell in column F is "Y" then use respective date in column E.
e.g.
If i have "Y" in cell F1 then in B1 I want to show E1 (25/06/2012). If i have "Y" in cell F2 then in B1 I want to show E2 (02/07/2012). If i have "Y" in cell F3 then in B1 I want to show E3 (09/07/2012). etc.
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 to check a range of cells (B4:B35) and see if any of the contents are less than a specified cell (M1) and then show a message, (the message part I can do). I have tried using For Each but I then get the message for every cell that is below the specified cell (which in theory could be all of them). I have also tried using an If Any statement but didnt work.
I thought this was a pretty simple formula but I am having difficulty creating it. I am attaching a little test spreadsheet. Sheet 1 is where the data will be entered. The Reimbursed column has a drop down choice of yes or no. The next 2 columns are the cost of registration and the cost of accommodations. On sheet 2 is where I would like the formulas. So in cell A4 I would like a formula that says if B3 on sheet 1 is Yes populate this cell with the contents of Cell C3 only, B4 of sheet 2 would then be B3 if A3 on sheet 3 is Yes and so on with the Not reinbursed if sheet 1 the Reimbursed column is no.
In 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!
I am referring to the post made by NBVC at http://www.excelforum.com/excel-gene...xcel-help.html, Try: =IF($A1="",INDIRECT("A"&ROW()-ROW($A$2)+COLUMN(B1)),"") in B2, copied across and down
I have a similar case but there are no empty rows between lists, what would be the formula to get the same results? (The transposed address should appear next to each first line of each block).
Earlier, I posted at http://www.excelforum.com/excel-gene...-one-cell.html and I got brilliant answers, I also would like to get benefit of the above mentioned formula but in cases when there are no empty rows between lists.
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"
I 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
Cell C1 contains the words "last made" then a space then a date (which changes daily, but that's not relevant to this) e.g. "last made 25/10/2013".
I am trying to create a message box (on opening - I'm OK with that part) with the following message and so far I have got this:
MsgBox "You last did this on " & Sheet1.Range("C1").Value, vbInformation & vbOKOnly, "Information"
However, this gives "You last did this on last made 25/10/2013"
I want the message box to ignore the "last made " so it just says "You last did this on + the date shown in the cell, without the words. I need to keep the words "last made" in the cell.
I have the following code, that I found on this forum, in my worksheet change event.
Private Sub Worksheet_Change(ByVal Target As Range) Static old_value As Variant If Sheet1.Range("C5").Value <> old_value Then 'a change has occured in cell C5 so do your processing.... MsgBox "Changing 5" old_value = Sheet1.Range("C5") End If.............................
The user enters data into Column E on Sheet1 and i want my code to display a pop-up box when a cell's value exceeds 500. I've tried the two codes below which i thought would work as Excel didn't highlight any breaks when i wrote the code, but no pop-up box is being generated when values > 500.
ATTEMPT 1:
Private Sub Threshold_Check2(ByVal Target As range) Dim cell As range
For Each cell In ActiveSheet.UsedRange.Columns(5).Cells If cell.Value > 500 Then MsgBox "Value within 15% of Threshold" Next cell End Sub
ATTEMPT 2:
Sub Threshold_Check(ByVal Target As range) Set Target = range("E1:E150") For Each cell In range("E1:E150") If Target.Value > 500# Then MsgBox "Value within 15% of Threshold" End If End Sub
Triggering a message box. one of the worksheets in my workbook is called Update Comments - this is a sheet that contains data in the following format (headers)
B7 = Week Number C7 = W/C D7 = Update Due E7 = Updated By G7 = Update Comments
I have a formula in column D (beginning D8 and copied down for the year) as follows:
Im looking for code for a button that asks for a Record number, and it will delete the record. But the record number is written in cells as 'Record No.1' 'Record No.2' etc. But i want the messagebox to ask for a single number and it would delete that record. Now the position of the records is what will be the difficult bit about this code, but it has a pattern.
For Record No.1 i need deleting cells C2:J100 For Record No.2 i need deleting cells L2:S100 For Record No.3 i need deleting cells U2:AB100
If anyone could give me a bit of code that works for these 3 then i could waste a load of time filling the rest of them out.
If there is data in the cell then it is to be left. If there is no data in the cell then I would like to show the value 0.
I have tried using a circular reference, using the formula =IF(ISBLANK(B1),0,B1) and other similar formulas but they dont work as the formula overwrites the data in it.
I do not know if I have this written correctly, I would like to have the sub - Retro run whenever some one opens this worksheet - "FORM". The retro is also suppose to test cell H12 to see if it is blank before running the msgbox.
I have 2 inventory reports: what my store has and what my supplier has. I need to copy Tab1:K# to Tab2:T# provided that Tab1:A#'s contents match Tab2:A#'s contents. The A column represents the SKU of the item, but there is a difference in the amount of SKU's in each (my store sells ~6,000 items, supplier has ~10,000 items), so it's not as simple as sort by column A and copy pasting column K to column T.
For instance: On Tab 1, A2's value is [1], K2's value is [9.38]. On Tab 2, A70's value is [1], K70's value is blank, but I need it to be [9.38], to match Tab 1's respective SKU.
I almost thought I had it figured out with VLOOKUP, but I cant seem to get it right... It doesn't reference the correct number.
Screenshots for reference
First tab, from the wholesaler: [URL] Second tab, store's stock: [URL]
I am in the process of reformatting an excel workbook to act as a review tool for different factors in a process. Part of my redesign includes the use of coding that creates different cell colors based upon the cell contents. The new workbooks will be used to handle existing data for this year. I have developed a process macro to open an existing workbook and copy and transfer the original data worksheet into the newly formatted workbook. The data gets transferred to the new worksheet and the resulting workbook is renamed and saved, Heres'' the rub... the newly saved workbook is missing all of the coding for the worksheets... apparently this is a MS bug.
Has anyone figured a workaround for this. One thought I had is to open both( new and old )workbooks and rather than move/copy , i would transfer the data using cell references.
