how to specify a file extension type for a browseforfolder part of what i've been doing.
It's not calling correctly as i'm not sure how to feed the inputData string back into the main.
Obviously there's probably better ways of doing this, but can my way be corrected easily?
I've been looking into ByVal and ByRef, but have only seen examples goin from main to the sub and not the other way.
Code:
Sub Main()
Dim strFolderName As String
Dim strFolderTest As String
Dim FRCntrHiLim As Variant
MsgBox "before calling inputbox"
Call InputBoxTest(inputData) '
I have the below code which creates a new template
Code: Private Sub NewTemplate_Click() Dim Tsh As Worksheet Set Tsh = Sheets("TEMPLATE") Tsh.Copy After:=Sheets(Sheets.Count) shName = InputBox("Please enter new sheet name:") ActiveSheet.Name = shName Tsh.Visible = False End Sub
What I would like to add to the above code is two more inputbox prompts, the first should prompt the user for a Name (text and length) to go into the new sheet cell A6. The the second input box should as for code, (number any length), to go into the new sheet cell b6.
I am trying to pass a string to a function requiring a ParamArray. See below
Code: Declare Function LibFunc1 Lib "FuncAddin" (ByVal vtSheetName, ParamArray Mylist() As Variant) As Long Sub testsub() Year = 2013 Period = December MyStr = "Year#" & MyYear & """", "Period#" & MyPeriod & """"
LibFunc1("Sheet1", MyStr) 'how to declare string so it can be passed as ParaArray?
I want to display a string to users. Normally I would do that using message boxes. But that would not give me enough control over the font size, and I want to display using font size 48.
I could have used global variables, but that is not a good coding way. The other way of doing that is using property procedures. I could pass a string variable to a Label control on the form and then could format it.
I am trying to search through column "I" for numbers that are decimals, when the first decimal is found, use the row number that the first decimal appears in the string that populates the bookmarks stored in a word template I have created. The code I have so far checks for the decimal and then populates the bookmarks, however it requires me to input the ranges manually, meaning I can set them as the first row in my tabel. But if the decimal appears in the second row and not the first I'm bookmarking the wrong data. Here is the code I have so far;
I'm trying to enter text (a staff members initials) into an Input Box so that the initials are then used as the citeria in a CountIF formula entered by VBA
A simplified version of the code I am using is:
Dim staffname As String staffname = InputBox(Prompt:="You name please.", _ Title:="ENTER INITIALS", Default:="MC") Range("H9").FormulaR1C1 = "=COUNTIF(RC[-3]:RC[-1],"" & staffname & "")"
The issue is getting the staffname string to be entered within the formula.
What is the correct combination of "" & to enable this to work?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Target = Me.Range("c4:f100") Dim iSold As Long, iColumn As Integer Dim strTitle As String If Intersect(ActiveCell, Target) Is Nothing Then Exit Sub iColumn = ActiveCell.Column Select Case iColumn Case 3
An what i need to happen id the input box saying "Please enter quantity of (whatever is in cell A11) assuming i am clicking on E11
so in other words, in cell A11 it says "MONITOR", i need the input box to pop up and say "Please enter quantity of MONITOR "
I'm writing a macro that will automatically change the display in a column of cells.
The input in the cell would be a decimal value, (e.g. 1, 1.25, 1.5, 1.75, 2). As of now, I think the only input options are whole numbers and 1/4, 1/2, 3/4 fractions.
After inputting the decimal value, the cell should update to display the value as the following string format :
Input: 1.25 Displays: 1-1/4"
The purpose being to enable fast data entry while displaying in the desired format.
Here is where I know to begin for the automatic update:
Code:
Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ' ' 'Code ' ' Application.EnableEvents = True End Sub
assuming user has inputed two numbers 1 and 5. I know you might have lots of questions like how the hell user input is coming when there is no usage of VBA.
I have a list of names in the A column of the sheet. I wish to use the input string, a new name, of a vba box to insert into the column of existing names in alphabetical order by inserting an entire row, which I suspect will be the case anyway. Also 'Return' key doesn't seem to be inserting a CR on the page that I typed this request upon.
i did some VBA quite a while back, and picking it up again.
I'm trying to get a function to read in a string, and return a value based on the string value.
Public Function value(ItemType As String) As Integer If ItemType = " Upper" Then value = 40 ElseIf ItemType = "Middle" Then value = 50 ElseIf ItemType = "Lower" Then value = 25 End If End Function
When i tried using it at the Cell level, it keep giving error i.e. Invalid Name Error
I have declared a 'long' variable. however; how do I change the variable data type to string if user input is not a number? how do I recognize the user input's datatype?
In my attached sheet.. I want the result from data sheet.. I have to enter the batch no and pallete no.. then all the data have to display in result sheet
I have a bunch of spreadsheets in a folder and I need to take one line of each spreadsheet (which is in the same place on every one) into a master spreadsheet.
I am always adding to the spreadsheets in the folder.
Is there a way to have my master spreadsheet look out for changes in the folder and when there are changes add the row into it?
I receive everyday 100 excel sheets contaning data out of which i have to copy only 4 cells- amount, name, invoice number, vendor name into the master excel sheet. So i every time one all the excel sheet one by one and copy particular cells- e3, h45, l9,x0 and paste them one by one in the master file which i had mainted to treack the invoices issued.
Is there any shortcut where as i can minimize my copy paste work and click a button after opening each file- which i think i have to do as there can be no shortcut to it, and the 4 cells can be copied to my master file.
I have a main spreadsheet that lists all the members and profile URLs for members in a forum. In Sheet 1, Column A is the username and Column B is their profile URL.
In sheet 2 I have a list of the members who are in listed in a particular category in the forum. However, I don't have the profile URL data. What I want to do is create a macro that look in Sheet 1 for the username and if profile URL is thier, copies that into sheet 2 next to the appropriate username.
I went through your board and found the code below posted My Mr. Tom Urtis. I tired it and it worked fine except that it needs another workbook. Can it be changed to work in the same workbook to copy to a sheet named as Main from all other worksheets that I can chose?
Sub ImportDistricts() 'Instructional Message Box MsgBox "Click OK to access the Open dialog." & vbCrLf & _ "Navigate to the folder path that contains" & vbCrLf & _ "the District workbooks you want to import." & vbCrLf & vbCrLf & _ "When you get inside that folder path," & vbCrLf & _ "use your mouse to select one workbook," & vbCrLf & _ "or use the Ctrl button with your mouse" & vbCrLf & _ "to select as many District workbooks" & vbCrLf & _ "as you want from that same folder path." & vbCrLf & vbCrLf & _ ....................
I've been using this code to make menus for all my Excel sheets since NateO made it back in 2003.
- The workbook has 370 sheets, 365 of them are one day per month with the tab named ddmmmyy. - The Main Menu in this file puts the months Jan, Feb, Mar, etc in cells A3:L3. - In the single cells under each month it put the month day tab name (ddmmmyy) and hyperlinks it to the sheet tab.
I would like to do two new things. 1. Put the name of the month in everyother cell in row 2, so Jan would be in A2, Feb in C2 and Mar in E2, etc. 2. Put the day of the week for each date in the cell to the right of the date. So the column heading would be Jan in A2, 01Jan08 in A3 and Tue in B3.
I thought I could make another macro and just insert the rows after the Main Menu was built and then VBA copy/paste TEXT(cell,"ddd") down the ranges, but thought there might be a better idea out there...
Sub Workbook_TOC() Dim ws As Worksheet Dim wsNw As Worksheet Dim z As Integer
In order to beutify my prog's interface, i would like to open the Excel file(active VBA) with the worksheet in the minimized background or hide, i.e. only the Userform or a Dialog window, from the right beginning on! as if it was a standalone VB main interface.
I am trying to create a macro which gives me an input box. I need to enter 2 numbers into the input box. It would be as follows:
Input Box Msg 1 - "What is your labor cost?" (NUM1) Input Box Msg 2 - "What is your productivity rate?" (NUM2)
Then I need the macro to take this info and enter it into a formula which changes according to the row which you are on. (I need the macro to work based on which ever cell I currently have selected). The formula would be this if I currently had a cell on row 10 selected:
=(NUM1*(NUM2*$H10))/$H10
So, if I currently had cell L10 selected, and I ran the macro and put 100 in for "NUM1" and 10 for "NUM2" and my sheet had 20 in cell H10, then the macro would enter the number 1,000 into cell L10. If I had L500 selected, then the macro would enter the final number into cell L500 based on what value H500 contained.