I have very limited VBA skills and I have tried to get a vlookup working on a userform. I need data from a range selected in ComboBox1 to drop into Textbox1. I have tried but it doesn't work.
I also need if possible a button that pushes the result of TextBox1 to a cell and another button that allows the user to edit the TextBox1 value in situ.
This problem has come up fairly frequently lately, and I'm not sure how to fix it, or if this is by design...but in Excel 2003 I can't seem to do a "Find and Replace" based on the value of a cell. I can do a find, based on cell value, but the moment I change to the replace tab, the "values" and "comments" are missing from the "look in" dropdown.
I've only noticed this when I'm trying to replace on a filtered list, so I'm not sure if that is part of the issue.
Perhaps an alternative way of arriving at the same goal. Basically I have a worksheet with a number of filtered columns. They are filtered just right, using custom filtering, and so I do not want to undo the filters. In some columns I have formulas that are returning #VALUE! errors. I'd like to replace all of these cells with NA.
I am pretty much a novice at this whole excel / vba stuff, but I have been trying! unfortunately I have now got well and truely stumped! I require the macro to perform a loop and once saved the first row of data, select the next row of data (in exactly the same way) until it reaches the last row. The macro I have created does the first part fine, but I have reached the end of my knowledge base!
Below is the macro I have created:
Sub TEST_1()
'
' TEST_1 Macro
' Macro recorded 20/08/2009 by ..........'
'
Sheets("Input").Select
Range("A1:CI1").Select
Selection.Copy
Sheets("Results").Select
Range("G3").Select
ActiveWindow.LargeScroll ToRight:=7
Range("G3:CO3").Select..............
picking things up. At the moment I am trying to create a macro using VBA to do the following in this exact order:
1. Delete Column A and B (once only)
2. Automatically pick up credit card number (In column A)
3. Copy all instances of this credit card number (and all data on same row)
4. Open a template I have set up
5. Paste the copied data onto a specific sheet on this template
6. Save as file name "xxxx - branch name - XXXX - DDMMMYY"
7. Repeat (loop?) this for all credit card numbers on the sheet.
There are approximately 90 credit cards, and I need a new workbook for each one to work on separately.
The thread title is the entire email message I got from a customer (thru the help desk). I have sent back asking her the following:
Is this happening in all excel documents you try or only some? Are you getting any sort of error message? Can you send me an Excel document you are having trouble with and tell me the exact actions you take?
While I am waiting for her answers, I thought I would ask here if anybody knew:What would cause this to happen?What sort of things I should look for?What other questions I could ask her?At the moment I do not know if she was in an Excel workbook that had vba code behind it or not. So my questions are for both what could be in vba code and what she could have done (without knowing) to cause this phenomenon
I want to create a userform that users can fill out and then be able to save so that it can be emailed/saved with that data. I guess my first question is can this be done? What I have so far is the userform and a save button. Now what do I need to do to allow a user to populate this form and save the form with the data so that it can be attached in an email or just saved to a folder?
Private Sub CommandButton1_Click()
Application. ScreenUpdating = False
Dim Fname As Variant
' Opens Save dialog box
Do
Fname = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
Loop Until Fname <> False
ActiveWorkbook.SaveAs Filename:=Fname
Application.ScreenUpdating = True
Unload UserForm1
ThisWorkbook.Close True
End Sub
Private Sub UserForm_Initialize()
End Sub
how to create two buttons so that I can have a data entry specific protection and then a lock all button. Here's the link to the thread:
http://www.excelforum.com/excel-prog...-a-button.html
And here's the code I'm currently using:
I wanted to stop users from using cut and paste as well as drag and drop so I found something in Ozgrid to do that. (http://www.ozgrid.com/VBA/disable-cut-copy.htm)
Problem now is I am trying to run a macro that will copy and paste certain values, but because of the code I have added in the above link, whenever I click on a cell and copy it, when I click any other cell, the copy area gets cleared which of course disallows me from pasting it.
Private Sub Worksheet_Activate()
Dim oCtrl As Office.CommandBarControl
With Application
.CopyObjectsWithCells = True
.CellDragAndDrop = True
.CutCopyMode = True 'Clear clipboard
End With
'Enable all Cut menus
For Each oCtrl In Application. CommandBars.FindControls(ID:=21)
oCtrl.Enabled = True
Next oCtrl
'Enable all Copy menus
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = True
Next oCtrl.....................
I am trying to write the code to;
1) change to a different sheet
2) select a specific cell range
3) save that range as a text / xml file with a filename derived from a cell outside the given range
Here is where I have got to so far, but it fails
Private Sub Export_Click()
Sheets("Parsed Data").Select
ThisFile = Range("B1").Value
ActiveWindow.SmallScroll Down:=-15
Range("A1:A41").Copy
SaveAs Filename:=ThisFile, _
FileFormat:=xlTextMSDOS
Application.WindowState = xlMinimized
End Sub
I have a userform where data is entered and upon pressing submit it saves the workbook. this has been working fine, but all of a sudden today it has stopped saving.
I have tried using ThisWorkbook.Save and Activeworkbook.save and both appear to save (i see the "saving" dialogue box), the data is submitted into the spreadsheet behind the userform. But as soon as i close and re-open it, the data isnt there.
I assumed it may be some sort of permissions issue where the file is located. But if i manually enter the data into the spreadsheet and press save, it works and retains the data! So it appears to be something wrong with my userform, which has magically happened over night.
I have bug with the code below
rstClient.Open "select * from clients" & "where category=cboCategory.value" And "postcode = cboPostCode.Value",strConnectionString, adOpenStatic
fyi:if i select * from clients without where, all will run good. so i think it is only this part problem.
cboCategory is the combobox which is used to select category, and the same for postcode
I'm trying to get one more feature added to this priority queue tool that a forum member created. Essentially, this attached spreadsheet is a dynamic task/priority list that will change on the fly. See the original thread here: [URL]
The only missing feature is the ability to delete an entry and have all other entries below it change up a rank.
The attached spreadsheet is the almost completed solution
Example:
Original
-----------
Item D - 1
Item B - 2
Item E - 3
Item A - 4
Item C - 5
Remove item B
-----------
Item D - 1
Item E - 2
Item A - 3
Item C - 4
if it is possible to have data validations on a cell within Excel but allow a user to input a formula? The data validation is a decimal between 0 and 1 and the formula would be a vlookup.
View 4 Replies View RelatedI have a workbook that has a macro that needs to run before it is closed. I have a button on my sheet that runs that macro and then closes the sheet. Is there a way that I can disable the "X" at the top right hand of the workbook and force the user to close the workbook via my button?
View 3 Replies View RelatedI have one userform that loads combobox values upon userform Initialize. Though through a second userform changes can be made to anotherworkbook this workbook is saves any changes. when i close the second userform i need to rerun the 1st userform Initialize event to update the combobox's incase changes have been made.
View 5 Replies View RelatedHow to get a macro that can do a VLookup on a different workbook, and then paste only the value (not the formula) in a cell.
I.e.
Sub CopyData()
Worksheets("Week 1").Range("G23").Value = _
"=VLOOKUP(""Total A"",'[Cycle.xlsx]Week 2'!R1C1:R90C15,5,FALSE)"
End Sub
but that only puts the formula in that cell. Any way to get it to paste only the value?
I created a userform with 3 textboxes and 1 combobox. I want the user to be able to open the userform, fill it, save the information on a worksheet and email the userform information according to the combobox information. I've managed to do the email part. It's working great. The saving to the sheet part I just can't figure it out. I would like to textbox1 info in column A row 2, textbox 2 in column B row 2 and Textbox 3 in column C row 2 and comboboix info in column D row 2 . After, if the user opens the userform again, I want the same thing to happen but instead of row 2, row 3 and so on.
View 5 Replies View RelatedI'm trying to solve when hitting the Save/Close button on my Userform.
Give the User the option to Save As the toolGive the User the option to either exit or return after Save AsIf Exit - hide all but the first worksheet (in case they open with Macros DisabledClose/Exit
My current issue is when I click the button and choose Exit Yes then the form and workbook close, but Excel is still open. Is there a way to have Excel fully close if no other workbooks are open?
Code:
Private Sub cmbSaveAs_Click()
Dim sFilename
If MsgBox("Save the file?", vbYesNo) = vbYes Then
sFilename = Application.GetSaveAsFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
[Code] .........
I want the Userform1 that has a text message to be displayed for 5 seconds before it saves to D:DATAsimon to input.xls
I have placed the code below in the module and in the MacroPreviewList, I insert the Call Function as "Call UserFormSimon_Activate" before it continues with saving the workbook. It doesn't work. Did I use the Call wrongly?
Call UserFormSimon_Activate
ChDir "D:DATA"
ActiveWorkbook.SaveAs Filename:= _
"D:DATAsimon_to_input.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
I'm trying to analyse some data, consisting of a table with clients "checking in" at a certain restaurant at a certain time. In another table I have the restaurant data, including information on different discounts they offer on different days and at different times. If a restaurant offers distinct discounts for distinct days of the week (or hours), it will be listed several times. Now, for each check-in I'd like to know, how much money the client safed (all check-ins are within some of the discount hours of the restaurant they checked in at). If there were only one line per restaurant, VLOOKUP would do the task without any problem, however, as there are several rows per restaurant, I don't know how to look up the correct discount according to the date and hour the client checked in. I've attached a data sample.
View 1 Replies View RelatedMy question is - for a Ref range in the user form, I want to set it up to only be able select from column A B and C. ( it has select ABC column at the same time, if missing any column, error message will come out, or select out of this range, the error message should also come up. )
I know how to set the range to all three columns, but I know don't how to ask for " must select from all three column?"
I have a report and users will need to key in password while opening. Currently, i am using inputbox and it works exactly like what i expected. However, the only downside is that i cannot mask the password.
I am aware that I have to use userform to do so. How to replace the input box with userform and still deliver the same result.
I know how to create a user from with title, text box, OK and Cancel buttons, and that's it. How to put it in my current code.
Below are the codes that I currently have. There are 4 possible outputs.
[Code].....
I have a user form containing a drop down list and two text boxes. The drop down list contains at the moment 2 items (address 1 and address 2) I have two worksheets,1st named address 1 and 2nd address 2. So far I have it set up so that the information enter in to text box 1 and 2 plus whichever one of the address is selected from the drop down list is entered in to the next available blank row on the active work sheet. What I would like to achieve is when address 1 is selected from the drop down list all of information is added to sheet 1 in the next blank row, same for address 2, this would be enter into sheet.2
All of the above would run from a command button (Enter)
When my userform is displayed, I would like to have the input field preselected. It is the same as using the Shift-Home key.
I current ly use a shortcut ( Ctrl-M ) to select the sheet and display the userform, as in
Sheets("Select").Activate
Call Worksheets("Select").CommandButton1_Click
UserForm1.TextBox1.Select ' NOT correct
The last line does not work, but it was my stab at the problem
I am trying to get my Userform to open the Insert Picture Dialog
Private Sub CommandButton1_Click()
at a set Path
fPath = ThisWorkbook.Path & "Pics" & "*.jpg"
where the user selects the Picture to LoadPicture in Image1 control. No matter what I try I keep getting errors.
In MS Excel, I find that when the zoom is dropped to 50% the fonts in the
list become unreadable. Is there anyway that the fonts in the list have the
ability to have their own formats?
I am using a spreadsheet for a consignment sales program. I took over the spreadsheet already in use but want to improve on it.
Here are the important cells:
=(SUM(E2:M2)-SUM(N2:Q2))*1.35 This gives us the tentative order for 2013. First sum is amount sent, second is amount returned. The 1.35 is our built in sales expansion.
=ROUND(T2,0) Rounds the above result
Now I need to have a minimum of 5, so anything for tentative 1-5 would be a 5, and there are some negatives under tentative, need those to read 0. Can I get both of these to happen in the round column of step 2 above?
I have a simple bike log that lists out each day of the month in rows with a summary row between months. Like this...
January Summary
Jan 1
Jan 2
Jan 3
....
Jan 31
February Summary
Feb 1
Feb 2
Feb 3
....
Feb 28
and so on. Each column has a data field where I enter in miles and distance and so on. I frequently add rows if I do two rides in a day so two rows may start with "January 23rd". I would like to have a chart that shows me my weekly ride summary. But I have some issues:
1. With the field summary I don't know the best way to do a chart that doesn't include the summary (the summary data would throw the chart way off)
2. If I have multiple rides in a day I don't know how to make the week include those days
3. I may want the week to start on Monday and not Sunday. Is it possible to have the user choose and have the chart change automatically?
I have a text box. I want it to pull the data from Cell B2 and list it in the text box. The problem is that I want to be able to change the data if the user clieck inside the box and changes it.
View 3 Replies View RelatedI am on the final part of a visitor log and I am stumpped on how to finish it. I have a electronic signature pad (Interlink Electronics-ePad) that the controls will not allow me to use in VBA for excel, I can get the image and signature on my usersform but am unable to save just the image through any code.
All I have been able to come up with at this time is saving the userform and pasting it in the active worksheet (code for this I found here written by "Michel Pierron"). What I would like to be able to do is have the userform image cropped to where the "Image1" image is (Signature will be in it place when done, the OCX esign block will not show on upload) and then saved as "visitors name, date/time.JPEG" to a folder in my documents.
The attached file is a stripped down version of what i have so far with no checking involved, just trying to get the save part of this done. If all I can do is save the userform as a whole that would work also but would like to be able to change it to a jpeg for storage. Have tried to use epads SDK's to achieve a saved signature but haven't been able, was suppose to be on vacation this week but need to get this done before the 1st.