i have a close workbook with path ("Z:42766Jan 2 Dec 2014Tally.ERP9GrpSum.xls") from another open workbook i want to popup a inputbox to select the sheet and run the macro on selected sheet.
e.g
i put 2 in inputbox than run the macro on sheet2
I am trying to select a range using this method. I am indicating type:=8, but isn't the box itself supposed allow you to select a range on a sheet? I cannot do this.
My only thought is that I have disabled events and updating; could that be it?
Here is my delimma. I am using the standard InputBox for my users to input the number of errors found for each category in a record from a daily report. The problem I having is that every time the user types in data using the InputBox it overwrites the previous days numbers. I need to set up the InputBox code so that after the user has input the numbers for that day that the next time the InputBox is used it selects the next column to the right and continues to do this for each day.
View 4 Replies View RelatedI'm using an inputbox to let the user select a range of cells. Here's the line
Set MyRange = Application.InputBox("Select cells with numeric data", Type:=8)
When the inputbox comes up, it won't let the user click any cells (or anywhere in the worksheet, for that matter). The cell/range reference has to be typed in manually.
Using InputBox Method to Select Range from Other Sheets
I need to select a range of cells from a second workbook via a InputBox or similar.
I'm trying to do that with the following
Sub InputBoxTest()
Dim MySelection As Range
Set MySelection = Application.InputBox(prompt:="Select a range of cells", Type:=8)
MySelection.Select
End Sub
But I can't select a cell range if it is located in other workbook.
I have the inputbox so i can set a string value,
When the inputbox Cancle button is pressed i want to exit sub,
If the inputbox value is nothink and ok button, I want the msgbox displayed then goto newname.
If the inputbox has a value do >>>>>>That>>>>>
I have a quick question that'll hopefully have a quick answer. Part of my workbook requires an input box to appear. When you type the name of one of the worksheets into the box and hit enter I want a VLOOKUP formula I've written to compare to that worksheet. Heres what I mean, with some descriptions of what i would like:
View 8 Replies View RelatedI am having some trouble conceptualizing how to write code for the following situation: When the macro starts, the user types in a job title into the box and the macro then searches for this value throughout the whole worksheet. I want to return a msgbox that says if the job title was found and if so, what the cell address is and for that to be stored in a variable. If the job title is not found, then I want to return a msgbox that says the job title was not found.
View 2 Replies View RelatedI am using an inputbox to pull over information from another sheet to be reviewed. The problem is that I can't get the cancel button to work. I am not having a problem with the ok button though.
Sub test()
Dim pull As String
pull = InputBox("How many would you like to retrieve.", "Retrieve", vbOKCancel)
If pull = vbOK Then
MsgBox "ok " & pull
Else
MsgBox "Cancel"
End If
End Sub
I created with code to copy a template, hide that template, and pop up a box to rename the copy, I noticed she clicked "Cancel" on the InputBox. When she did, she received an error (400). What I would like to do is when the "Cancel" button is clicked, the newly created copy would be deleted. Is this possible?
Here is the code for my full "Create New Project" sheet procedure:
Sub CreateNewProject()
'This code will copy the Project Data sheet, hide it and then
'rename the new copy to the MSA number. Code also prompts user for
'MSA Number and fills that in on the form.
Dim RenameSheet As String
Dim oSheet As Worksheet
With Sheets("Project Data")
.Visible = -1
.Copy After:=Sheets("FHWA Quarterly Report")
End With...............
I have a command button on sheet MASTER. When the workbook is Activated I want it to check and see if in sheet COSTM, cell B3 there are the words "Project Number", if so then show command button (ClearPrevious), if not, don't show. Also, when the If statement is finished, then the workbook needs to end up showing the sheet MASTER. I have tried various codes and none work, or they are on perpetual loops. I know this has got to be simple, but cannot find an example to take from to solve the issue. Would appreciate any help offered. Below is code I have right now.
Private Sub Worksheet_Activate()
If Sheets("COSTM").Select Range("B3").Select = "Project Name:" Then
Me.ClearPrevious.Visible = True
Else
Me.ClearPrevious.Visible = False
End If
Sheets("MASTER").Select
End Sub
Need a code using application.inputbox to get a range, then use that range to copy and paste the range's link and format to a different sheet? The specifics don't matter, I just can't figure out the syntax. Here is what I have currently:
View 2 Replies View RelatedI work for one half of a joint venture & am responsible for planning & expediting. The other half does purchasing. The bi-weekly PO download reports I receive are less than useful. I have already written the code to delete undesired sheets & add, format, and enter headers for a "Summary" sheet.
I need code to move to the next row, and run formulas to pull data from the next sheets, and repeat until there are no more sheets.
The number of sheets will vary from one download to the next, and the sheet names will vary from one download to the next.
Following are example formulas that need to be run on successive rows while pulling from successive sheets.
I am running Excel 2013 on Windows 8.1
I have a workbook with a Cost Analysis sheet, a master menu sheet, and then all the sub sheets. I have coded command buttons on the master sheet, so once a category is selected, it goes to the appropriate sub sheet. On the subsheet is a list of items of varying sizes, and command buttons beside that which will allow the user to "Select" that particular size. Once the size is selected, the verbage in cell B5 plus the verbage (size) beside the selected amount, and the prices (labor and materials) in the next two columns, need to be transferred to the first available blank line, starting with line C5, to the Cost Analysis sheet. I have never done coding before for a Loop (i.e. For i = ???) and am not sure how to get it to do what I want. After they select that, they can pick a command button that takes them back to the master menu so they can continue picking various items until they are through. Then the Cost Analysis sheet will show all the items they picked, (name of item, material cost and labor cost: Columns B, C, & D). Not everything is coded yet (such as selecting a command button to go back to the main menu, because I wanted to make sure I could solve this problem before doing the easy stuff).
I read over quite a few of the previous threads and am not sure how to change them to suit my circumstance. I know some code (VB), but not much. I do not understand the concept of DIM, and how the loop works to make it happen myself, and all the websites I could find were not suited to my situation of copying three cells of data to the first blank cell on another sheet.
is it possible to hide a sheet automatically if i select the other sheet. For example, I have sheet1, sheet2 and sheet3, I'm at sheet2 and if i select the sheet1, sheet2 and sheet3 will automatically hides.
View 4 Replies View Relatedif I change the name of my sheet throught this code, how I can selected again? ...
View 9 Replies View RelatedI have a macro that duplicates a hidden page, and names the duplicate sheet by cell reference. then the macro goes back and resets the forms that were used, what i would like to do is have it end selected on the newly created sheet, but i can't reference the sheet because i don't know in advance what the sheets name will be.
View 5 Replies View RelatedI have written this code;
VB:
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 22 And Target.Count = 1 Then
Sheet("Graphs data ref").Unprotect
Sheet("Graphs data ref").Range("E1:E1").Select
Sheet("Graphs data ref").Protect
[Code]....
The problem is the first code isn't working, it is running the macro whenever any cell is selected and not refreshing the auto filter on my table.
I hope I have provided enough information on here, if I haven't let me know and I will reply as soon as I can.
I have a sheet that have 100 checkbox. i want to select(not check) all checkbox for change their property.
How can I select all? (by macro or other way)
I'm trying to select 1 out of 9 checkboxes on one sheet, first checkbox located in Cell#I22 and when it's selected, I would like it's name ("ROC") of that checkbox to appear on second worksheet in cell # I23.
View 3 Replies View RelatedIs there a simple bit of code which I can add to a button which will always select the next tab along?
Looking to add a 'next tab' button at the top of each sheet so it can be run through quickly, almost as a presentation.
I could just do
Sheets("TabName").Select
But that would involve doing a new one for each sheet, and would need modifying if I then re-ordered the sheets.
Below is a macro I'm trying to create. The basically it's supposed to be a quick simple macro to save lots of time. I want to select current tab, move/copy (create copy) to the end....then select the tab I've just copied and copy paste special the values (then rename the tab to todays date) FYI the tab I'm copying is called rebuy shipping.
However, I want to then do the same at a later date with the most recent tab, but with the below code it always selects and copies the original tab:
Sub macrorebuy1()
'
' macrorebuy1 Macro
'
' Keyboard Shortcut: Ctrl+k
'
Sheets("Rebuy Shipping").Select
[Code] .....
I assume this is a simple error. I've tried inserting Activesheet.previous.
So far my line of code is:
Sheets(" & Cstr(y) & " - " & Cstr(i) & " load" & ").Select"
Selecting a worksheet with 2 variables in it and some text,where y and i are integer variables. P
I have a workbook with multiple sheets , final sheet has a data of all sheets , in the first sheet i want to select what results to be shown in that final sheet ,, specially the week and the LDM
View 12 Replies View RelatedI have a workbook that uses Autofilter.
Column A has data. Column B is hidden, has no data, and is empty.
Colmn C has data, on through the rest of the sheet (to Column AB).
Why column B has no data is unimportant for now. It, however, must maintain its existance and cannot be deleted.
When I select the autofilter sort button on column A, it selects only that column, and not the rest of the sheet. Data is subsequently scrambled.
When I unhide the empty column B and select the sort button on column B, it selects the entire sheet. Data remains intact.
When I select the sort button on column C, it selects the rest of the sheet, but not column A (with data), or B (with no data). Data is subsequently scrambled.
Using this code from Ron de Bruin to e-mail one sheet from many in a workbook. Three questions...#1 - how would I select and mail only the last sheet in the workbook or #2 - allow user to enter the unique sheet name (one of many) to select and mail only that sheet. #3 - Would like to put the unique sheet name in the e-mail subject line after "MIR #_____.
View 4 Replies View RelatedI am trying to set a macro that will delete a sheet which the spreadsheet user types the name of the sheet into a dialog box rather than go to the actual sheet and delete the sheet.
View 3 Replies View RelatedI have a workbook with several sheets. I have written a macro to check if the value in a column is matching with that in another column in another sheet and return the value in a preceding column in the second sheet into a preceeding column in the first sheet. The code looks likes this and seems to be working fine.
Sub Copy_Price_Code()
Dim Rw As Long
For Rw = 6 To Sheet6.UsedRange.Rows.Count
[Code] ....
However, there would be more sheets in the workbook in future and I need to edit the macro in such a way that the user can select the source and destination sheets which I could use in the above macro. I tried to do it as follows but its not working.
Sub Copy_Price_Code()
Dim Rw As Long
Dim Rw2 As Long
Dim Sourcesheet As String
Dim Destinationsheet As String
Sourcesheet = InputBox(Prompt:="Enter source sheet name. (example: Sheet1).", _
[Code] .......
I seem to running into dead ends with each previous post concerning this similar idea, despite brave efforts of kind people . . .
So here is another thought: As the title suggests, can one help me with code that would take the value in (say) Sheet1A1 (Say Harry) and use that value to search for a sheet with that name (Harry) in the same workbook and then link to that sheet, cell A1 (Harry!A1)?
The other posts are here, should you want to know, but they differ as far as the linking method goes:
Post 1, Title: Newly created Tab Names placed as Hyperlink on Content Sheet
Newly created Tab Names placed as Hyperlink on Content Sheet
Post 2, Title: Automatically redirect hyperlink when cell value changes
Newly created Tab Names placed as Hyperlink on Content Sheet
I am trying to select all unlock cells in the active sheet. However, my method checks through each cell in the sheet and it takes too long.
Sub SelectUnlockedCells()
Dim rng As Range
If IsNull(Cells.Locked) Then
'if null then there is unlocked cells
For Each c In cells
If c.Locked = False Then
If rng Is Nothing Then
Set rng = c
Else
Set rng = Union(rng, c)
End If
End If
Next c
Else
End If
If rng Is Nothing Then Exit Sub
rng.Select
End Sub