Is it possible to prompt the user for a specific row number to delete in a vba textbox? If yes, then the code would fire using a button. I have the worksheet protected and only want to unprotect through code to delete a specific row number, then protect it again.
View 5 RepliesI have a Macro which deletes a sheet called "Pre selection" with:
Sheets("Pre selection").Select
ActiveWindow.SelectedSheets.Delete
It asks me every time if I am sure and I have to click to continue. Is there any way to remove this prompt or set it to continue without my intervention?
whenever you want to delete a sheet, excel would prompt you to ask you if you are sure you want to delete the sheet. im making a vba so that the sheets will delete upon workbook close, but i dont want to be prompted everytime to be sure to delete it when running the vba macro. Also, i would like to avoid being asked to save any changes to my workbook
View 2 Replies View RelatedIn column L on sheet1, I want the user to type in a number. That number will be the number of recommendations that need to be done.
Once "L" is populated I would like the user to be prompted to fill out
-what the recommendation is
-date in should be finished by
corresponding to the number that was typed into "L" which would be listed onto a new sheet. So if the user typed in 3 - I should have 3 recommendations with dates.
On my new sheet, I would like "A" to match "A" from sheet1 for the first one only
"B" would be the recommendation from the prompt
"C" would be the date of that prompted recommendation
Name - Recommendation 1 01/01/10
<blank> - Recommendation 2 02/02/10
<blank> - Recommendation 3 02/03/11
I'm in search of a way to prevent people who use a spreadsheet of mine from screwing up formulas. I've hidden rows 10 and 12 in a spreadsheet. i have a TOTAL formula in a cell on row 13 that counts from 10-12. that way, when people insert rows, the total is always right. problem is, people somehow seem still screw it up.
I'm hoping there's a way for me to put a button on the sheet to insert rows. and when the button is pushed, be promted to enter a number of rows. then have it insert that many rows.
Is that feasable?
Thanks!
I've not used Input Box function before. When a user opens my workbook I want to check whether a named range ("Name") is blank and, if it is, to prompt the user to type their name in an Input Box which then returns that value to the named range. This is what I have tried but I don't think I am referring to the named range correctly,
Dim strName
If IsNull("Name") Then
strName = InputBox("Please enter your name", "Name Required", "1")
Range("Name") = strName
End If
I have created an addin that runs several macros. To enable the user to undo any changes, I keep a backup prior to them using any of the macros in the form of a worksheet named back00xx. I want a prompt to be displayed to the user to remove these backups at the closing or saving of the file. The problem is that as an addin, how do I get it to display this prompt as the open workbook is not part of the addin.
Could one have a looping routine that is checking every xx min/sec to check if the current workbook contains any sheets starting back00
Currently I have information that includes numerous distributors information on one sheet. The code below separates each distributors information into a new tab and a new workbook, names the workbook and saves it in the specified file path.
I am trying to figure out a way to use an InputBox to popup and ask the user where all the new workbooks will be saved at. Thus, avoiding the need to change the code each time you want the new workbooks saved in a different folder .....
After recording a macro that goes to last figure in data, how do I edit this to prompt for a new data value and enter it into 1st empty cell at end of data?
View 8 Replies View Relatedexcel macros and only know how to record certain tasks, and then edit after recording the task.
I am working on a project to automate a daily routine task for a company which involves creating a new tab and inputting various datas.
How can I create a macro such that I create a new tab and a combobox appears asking me to input the date in a particular cell?
This is the first in a number of steps for fully automating this process.
So far I only have this to create a new tab.
------------------------
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Copy After:=ActiveSheet
End Sub
------------------------
is there a way to make a macro that runs on startup
and prompts with a yes/no question, if the user
wants to multiply all new data values time 1.0825,
and after having selected if they do or dont want
to allow that, would it be possible to have the
prompt minimize itself but still be present in
case they decide to toggle that on/off?
How The Vba Code Used For
My Excel File Name "eai.xls" ,when I Click The File , It Open The Sheet Name "menu" With The Inputbox Prompt:="put Your Id"
When The User Put The True Id , It Will Show The Input Box Prompt:="your Password" . If The Password True Will Activate The Sheet Name "data" .and Hide All The Menu Bar.
If The Wrong Id Name Show The Msg.box "re Enter Your True Id " ,that Also For The Wrong Password In Which If User Put More Than 3 Times Wrong , Will Close The Workbook And Exit File.
The User Persons Allow 10 Person Id . Keep In The Table Of The Sheet Name " Id And Password" The Id No. Are In The A1:a10
Password No. Are In B1:b10
This Sheet Name Is Hide And Protect
I run a macro to open multiple workbooks and run a macro within those workbooks. All worked fine until a message/input box was included in the individual workbook macros [that I cannot change] to notify the single workbook user when the macro had successfully completed and prompts for an “ok” input.
Can I get my macro to ignore this prompt and not wait for an input – I am currently clicking “ok” everytime it comes up on screen. Have searched help and forum but nothing jumps out.
I have eventually got my Worksheet up and running but now im trying to make things a little easier to complete. The plan is when the Engineer is on site he has to open the Excel sheet to check the tests he has to complete and then mark the results. this is fine but for vaildation he has to sign everthing etc... i made it easier so they only had to fill in one box and it would complete the rest but this seems to get missed more often than not.
SOOO
i want a Screen to pop up when some one opens my excel that says Enter name and contact details. then they submit this which updates the spread sheet with this information and then the engineer can continue as normal.
What is the best option to validate a value entered through the below prompt?
View 4 Replies View RelatedIs there a way for VBA to prompt the user for a new selection?.
For exmaple,
Code:
Sub BlankRow()
The reason I need this is because I am already in a macro and can not change selection on screen and I don't want to exit routine to make new selection (last line of code).
'I need to be able to select new active cell!
ActiveCell.EntireRow.Select
Selection.ClearContents
ActiveCell.EntireRow.Interior.ColorIndex = 1
ActiveCell.Offset(1, 0).Select
Edit.Show
End Sub
I attempted to copy the cells (which had formulas) from one workbook worksheet into another workbook worksheet. It didn't paste properly, so I deleted it and resolved to enter the formulas I needed manually one by one. The formulas reference values in other worksheets within the same workbook. The issue is, now, for some reason when I attempt to enter the formulas, I get an "Update Values" prompt and the formulas won't reference the sheets within the same workbook anymore. Is there a way to stop this prompt from appearing? and unlink the workbooks?
View 1 Replies View RelatedThe VBA password prompt keeps popping up when I closed my workbook even though I haven't opened up the VBA window. How do I stop this?
View 1 Replies View RelatedI have an excel spreadsheet that when opened and closed prompts to save changes, even when no changes have been made.
The spreadsheet is a copy of another spreadsheet which has then been modified. The original spreadsheet doesn't have this quirk.
There are no 'links' in the spreadsheets. Which was my first thought.
Is there a macro to supress the popup prompt saying "the cell is protected...." when users double click on a protected cell ?
i prefer for nothing to happen when users double click a protected cell..
I have a macro used to format data from a software export. The user exports data from another system, copies and pastes the values into my sheet. I have a macro set up to strip out unneccessary columns, format everything, etc. The problem I'm having is that people keep clicking the macro button multiple times, which deletes more columns, and strips useful data out. Is there a way to set up a flag in the macro to stop them from doing this?
Once the sheet is formatted, it types in "Imported ____" (where the blank is the current date and time). So I'm thinking that is the best option to flag the macro; if A1 contains Imported*, then prompt "don't touch that friggin button"....or something to that effect.
Here is the code I have:
Sub Formatting()
'
' Formatting Macro
' Macro recorded 3/27/2008 by mileskb
'
I am currently using the below to generate a message prompt. I have two questions that require assistance.
1. How can I furthur tweak it to show the value contains in the cell that correspond to the date?
For example in cell A2 contains date value; Cell B2 is the order number.
If the date in A2 matches today's date, the message prompt should carry Cell B2's value instead of B2 that is displayed as of below code.
2. Can I set the prompt date to be like 15 days after today's date?
Example: Today is 05/01. There will be a prompt if the date in cell A2 is 05/16.
Private Sub Workbook_Open()
Dim r As Range, ff As String, msg As String
With Sheets("Test")
Set r = .Columns(1).Find(Date, , xlFormulas, xlWhole)
If Not r Is Nothing Then
ff = r.Address
Do
msg = msg & vbLf & r.Address(0, 0)
Set r = .Columns(1).FindNext(r)
Loop Until ff = r.Address
End If
End With
MsgBox IIf(Len(msg), "Matches Found:" & msg, "No match found")
End Sub
I have a macro that performs an operation on all Excel files in a given folder. The only problem I had was I couldn't walk away until it was done because the files themselves had macros that gave me a Yes/No prompt to recalculate.
I already have a calculate command in my macro so how can I override this command without physically selecting and clicking "No" with my mouse and without editing the macros that are already in the files (each unique and embedded in the individual worksheets). I cant edit each file because there are close to 300 of them.
I have a spreadsheet that has hyperlinks in it and is mostly protected to prevent changes. Is there a way to prevent the "save changes" dialog box from appearing when this file is closed as I have to make this file available to others and don't want them to get this message or make save any changes.
View 7 Replies View RelatedAfter recording a macro that goes to last figure in data, how do I edit this to prompt for a new data value and enter it into 1st empty cell at end of data?
View 6 Replies View Relatedhow can I have a prompt and input box that I can put the name of the file and it would open the sheet.
View 6 Replies View RelatedI have an excel sheet which contains date in a cell .I need to find the date in sheet and keep it in a variable. I came across this code which finds dates but it prompts the user to enter a value and then searches.But i need the macro to run automatically and find any date present in the sheet without any prompt for the user.
Sub FindDate()
Dim strdate As String
Dim rCell As Range
Dim lReply As Long
strdate = Application.InputBox(Prompt:="Enter a Date to Locate on This Worksheet", _
Title:="DATE FIND", Default:=Format(Date, "Short Date"), Type:=1)
If strdate = "False" Then Exit Sub
strdate = Format(strdate, "Short Date")
On Error Resume Next
Set rCell = Cells.Find(What:=CDate(strdate), After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
On Error Goto 0
If rCell Is Nothing Then
lReply = MsgBox("Date cannot be found. Try Again", vbYesNo)
If lReply = vbYes Then Run "FindDate":
End If
End Sub
I need to put together a macro, which will be assigned to a command button, that will prompt the user for a pre-specified password, and, if the password is correct, return a pre-specified value in a different cell. Is there any way to do this?
To put it in perspective, at my company we have approval sheets that need to be signed by several executives that are scattered all over the building. The first executive gets the copy, signs it, sends it off, etc. They tend to dissappear on occasion, so we are looking to make it all electronic, where they can access the file in a shared folder, and the if they enter their password correctly, their initials are input into the specified cell. They can than save the file for the next executive to do the same.
I'm using code which forces users to enable macros prior to being allowed into a file. Then I ran into an issue of needing this Shared Workbook to update links, which you can't do in the workbook_open event and I do not want users prompted to update or not. So what I've done is made a 'skeleton' file to force the macro enable and then open up the real file with updated links. Once the real file is opened I want that skeleton file to close. For some reason, once the file closes the code halts. "Forcemacroenablemaster" closes, but nothing runs after it. If I comment the close line out everything after runs. This code is in my "Forcemacroenable" file:
Private Sub Workbook_Open()
Call ShowAllSheets
Workbooks("Forcemacroenablemaster.xls").Close False
MsgBox "Test"
Call ValidSetup
frmCtrlPnl.Show
End Sub
Is there a way to incorporate a prompt that allows the user to browse a folder. The code I am using is below but 'myDir' will change each month.
Sub CombineWorkbooks()
Dim myDir As String, fn As String
Dim WSName As String
Dim WB As Excel.Workbook
WSName = "Summary"
On Error Goto Nxt
'turn off screen refresh for speed
Application.DisplayAlerts = False
Application. ScreenUpdating = False
myDir = "C:Users\DocumentsUsersWendyNew Folder"
fn = Dir(myDir & "*.xls")