I am currently using a bunch of msgboxes to tell the user if a specific error has occurred. I want to get rid of the ugly gray box and customize my own. I am having problems setting up the code as I would like it to function like msgbox does where I can supply a header and message string and then it displays in the userform. I tried coding it kind of how I would pass variables to a function and it doesn't seem to work.
Userform:
Code:
Private Sub userform_initialize(msg As String, hdr As String)
MessageBox.Caption = msg
myMessageBox.Caption = hdr
End Sub
I have a standard multi-page excel workbook in Excel 2013. I have built a user form that will allow for user input into my main excel page. This inpu includes many different variables, including one called "Paint". The value of paint can currently be selected from a drop down box that pulls its values from a spreadsheet in the workbook (Paint!A$1,A$50) but here's the issue. I have over 50 possible values for paint and it makes the drop box time searching for the right one kinda hard.
Here's what I want to do: Have a button beside the paint drop-down that says "Search", When the users clicks it it opens a search dialogue of some kind that will return the closest values to their search. When they click the value they want it gets entered as the selected value for the "Paint" drop-down box.
Here's my questions: -Is this even possible ?I know enough about VBA to know that this is probably difficult in which case id still like to try. -If it is possible. Are there perhaps any places you could point me to that would have some sort of starting point for me to work from. Remember I got the other part already I just need the search functionality.
I jst need to console data from different workbooks to one worksheet. There are 30 workbooks & each workbook contains one worksheet name as Data. The work i am currently doing mentioned below step wise
1) Open workbook 2) Apply filter on whole data 3) Select dates from "J" Column (E.g 02/10/2014 to 02/20/2014) 4) Then Copy whole filtered data 5)Paste into New workbook 6) Open another worbook 7) repeate Step # 2,3 8)Then paste whole data in below the first data New Workbook (In which we have paste the first data below that i will paste this data)
These steps i have to do manually it takes almost 1hr daily After pasting all 30 workbooks data in one workbook i have to make pivot of it & sent it to my Manager. What i need
I jst want a excel macro that will ask me date range from which i have to pull data from all 30 workbooks.
Once i gave date range will jst click on button say extract or pull. It willl console whole 30 workbooks data from the given date range in a one worksheet.
I have a userform where I key in something into a textbox, click search and then the results will be returned into the textbox or into a listview if there are more than one instances.
Now, when I type in "Box1-A( )", the only result that will be returned is "Box1-A( )" if it is present in my spreadsheet. Is there a way I can make the userform return results as long as the keywords are there? In this case, the keywords would be "Box1-A" (without the ( ) at the back).
Here is the code I'm using
Code: Private Sub cmbFind_Click() Dim LR As Long Dim strFind As String 'what to find
[Code]...
Was working on this code on another excel forum but I forgot my password and I can't retrieve it at the moment.
I have a userform for the user to use a search engine on what he needs. The following code I have written it, but it is only good if he writes exact wording of the document name. How can I twist the code to make the search look for approximate words,
The search engine will try to look in for all the titles on "Result" worksheet and copy/past it to a new sheet called "search". so when the user types in the userform "specification" for instance, it will look all titles (Specifications, specification, spec, brown color spec) that has this word in the "Result" sheet and then it will copy/paste it in the Search Sheet.
Code: Private Sub ok_1_Click() Dim sht As Worksheet Set sht = Worksheets("Result") 'if no name selected If Trim(Me.Document_box.Value) = "" Then MsgBox "Please write a document name."
I want to return to the userform if the msgbox occurres (then a text / listbox is empty) so the textbox can be filled before populating the data to the worksheet.
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.
Is there a way to change the color of a msgbox? My option then appears to build a userform that basically does the same thing but allows me color selection.
Why is this important? I have a quasi-legal disclaimer that pops up every time the workbook is opened the first time (via a template). My boss has commented that after the first couple of times folks just blow through it without reading it (which is a fair comment).
My thoughts are to randomly change the color every time it opens, hoping that it might catch their attention. How do you control the text color to make sure it stays readable?
Below is my current code. The strFind1 searches for a name within the database and then I need strFind2 to do a exact for a Subproject search and a partial search for everything containing the Subproject selected and other Subprojects. Currently, when the database entry in the worksheet includes Subproject 1 the search function works but when I have an entry that contains Subproject 1/Subproject 4 it does not find the entry. How can I expand the strFind2 to equal what is selected in the Combobox2 and find entries that have what is selected plus more text. I have set the line where I think everything is going wrong to a bold format.
I have a userform with several textboxes and 2 comboboxes. The data that I need protected from duplication is based in the comboboxes. If I ignore the other fields and presume the following it may be easier to understand:
The comboboxes are populated by the data stored in sheet1 and when the userform is complete, the OK button populates all the data into sheet2
Combobox1 contains names eg, John, Julie, Bob etc Combobox2 contains colours eg, Red, Blue, Green etc
I want the userform to allow the data to be entered into sheet2 only if it is not an exact duplicate of the choices in BOTH of the comboboxes
For Example John Red Julie Red Bob Blue John Blue
These are all ok, however, to try and enter John Red again would bring up a message box indicating a duplicate entry and prevent the data from being entered.
I'm trying to create a dynamic msgbox that will display what data has been updated based on checkbox selections in the userform. I've named my checkboxes as Carey, Keith, and Juliet.
Ideally if only Carey's data has been updated, I'd like the msgbox to say
' Data has been Updated for: - Carey '
If Carey and Keith's data has been updated, I'd like the msgbox to say
'Data has been Updated for: - Carey - Keith '
etc.
MsgBox ("Data has been Updated for:" & vbnewline & _ If CAREY.Value =true then "- Carey" End if & vbnewline & _ If KEITH.Value =true then "- KEITH" End if & vbnewline & _ If JULIET.Value =true then "- Juliet" End if & ")
I need to use SQL decode functionality in Excel. I tried but Excel won't accept decode. Is there a way to get the same effect in Excel?
Example: quite often, people use letters to represent numbers, like 1234D = 123.44, 5432G=543.27 in text files. To converter from letters to numbers, I can use decode (substr(A1,5,1), 'A', 1, 'B',2,'C',3,......,'{', 0, null).
Result column will show the result after sum ** column A & B
[Code] ......
This is simple that i will add this formula =A2+B2 in Result column cell C2.
But i want to perform this addition action on Sheet2 and return the result in column C2 ** Sheet1.
What formula should be populate in Result column ** Sheet1 that could catch addition formula from Sheet2 dynamically and display the result ** column A & B in Sheet1 .
And what type ** formula should be use in Sheet2 to add two columns dynamically.
The same concept that we are using in any functions like as below:
Sub Function Plus (value1 As Double, value2 As Double) Plus = (value1 + value) End Sub
I have a column of numbers, for simplcity lets say they are 1,2,3,4,5. The numbers change automatically, so the column can look like 1,1,1,1,1 or 1,5,3,3,2 etc. I would like to know which command can monitor this column and return a true statement if two or more of those numbers match the number I specify.
One of the useful functionality was the Excel-Addins , now I would be glad if someone could help me by posting the latest Addin or Analysis tool-pack. A setup file would be of great help as some of my formulae are suing such functions which ach are not provided by the reguale EXCEL such as "QUOTIENT" and "NETWORKDAYS"..
There's just one more request , I had a very good font by the name "POOR RICHARD" in one of my files, however after formatting and re-installning I do not have it anymore.
By typing either first letter or first two letters in cell A2 the list box should bring up matching street names. Also listbox should manually allow to select required street name by scrolling down.
Each week I get new weekly data-metrics. I have a series of formulas that figure LAST 4 weeks average, LAST 8 weeks, etc etc. How do I drop in a new week of data and have my formulas adjust? For instance, my formula figures last 4 weeks average of May Wk 1, May Wk 2, May Wk3, May Wk4. Now it is June Wk1, so I want to figure (without changing any formula) May Wk 2, May Wk3, May Wk 4, June Wk 1.
I have a hyperlink in a cell that is put there by copying and pasting it from an e-mail message. The hyperlink has a nice friendly name that is not the actual URL. Let's say that the hyperlink is in Sheet 1 A1.
In Sheet 2 I have a cell that says C3 = HYPERLINK('Sheet1'!A1), however this doesn't import the URL with it. All it does is make a hyperlink with the nice friendly name that goes nowhere.
How can I reference Sheet 1 A1 and have the result in Sheet 2 C3 be a clickable URL that works exactly like the original that is sitting in Sheet 1 A1?
I have tried the following code :
Function hyp(r As Range) As String hyp = "" If r.Hyperlinks.Count > 0 Then hyp = r.Hyperlinks(1).Address Exit Function End If If r.HasFormula Then rf = r.Formula
[Code]...
However it does not work for me. All it does is deliver NAME# as a hyperlink which cannot be clicked. I am very new to putting code into Excel so it is possible that I do not understand how to make a user-defined function work. I don't even understand how the code itself works.
I'm looking for the functionality in Excel where you can unhide/hide a group of columns or rows by clicking the plus or minus sign below the ribbon but above the spreadsheet itself. I forget how to do it, but it basically groups the columns together and hides or unhides all of them with one click.
I've attached an excel invoice template I've been making for our company. I'd like to protect all the cells except A12:H42, C8, B9, G4 and I44. The problem is, if I protect the worksheet (with these cells unlocked) then it won't let me run the macro (for inserting new rows for extra products).
I would like to select a item from a list and have a text box display data from the next column (corresponding row) Also, I would love if I could type something into a second textbox and have that copy onto a third column (again, corresponding row) Also, if the add comment command button could transfer that record to the "commentted items' sheet. I have attached an example.
I am presently designing a feature in excel through macros where I have created a box and named it box1 on sheet1 and when I click on the box1, then I want to go to sheet2 in the same workbook to specific row automatically.
I have a spreadsheet with macros and conditional formatting assigned to it. What I want is to be able to copy only the displayed contents, without the macros and formatting instruction, to a separate workbook for reporting purposes.
I've got a data dump that must be edited/converted prior to pushing it into a different main frame system. There can be NO decimals in the end result. Here's the challenge:
Starting on Row 2, there's a break down of 4 quarters of data divisible by 4 using the whole number TOTAL of Parts in Col A.
The analyst must first break it down into 4 parts (as done in Col B through E). Then, round up and down appropriately to ensure that NO DECIMAL data is entered into another main frame system.
Can't copy one formula downward because if it ends in .50, the up/down sequence is diff from how it would be rounded if it ended with .75.
Need vba to be smart enough to evaluate "IF" and apply "THEN" according to what it sees in Col B's data and convert B, C, D and E appropriately. (I will tie this to a button within a toolbar to run the macro/vba when the conversion of B thru E is needed.
EXAMPLE: IF B's data ends in: xx.00 or xx.50, then convert those 4 quarter's data accordingly: ROUNDUP, ROUNDdown, ROUNDUP, ROUNDdown, (this one doesnt really matter but works)
IF B's data ends: xx.25, then convert those 4 quarter's data accordingly: ROUNDUP, ROUNDdown, ROUNDdown, ROUNDdown,
IF B's data ends: xx.75, then convert those 4 quarter's data accordingly: ROUNDUP, ROUNDUP, ROUNDUP, ROUNDdown,
Using ROW 6 as an example for how to handle xx.25's: B6 would convert up to 4 C6 would convert down to 3 D6 would convert down to 3 E6 would convert down to 3 TOTAL after conversion = 13
