i have 2 workBooks (firstWB & secondWB)
In fristWB i have UserForm in which their is
TextBox_1 & Transfer_btn-->cmdbutton
..with transfer_btn i want anything written in TextBox_1 should always paste new row in secondWB workbook
I am trying to do this with USERFORM
i am also trying to do DYNAMIC CHART in USER FORM
Below is a code which I added to my 'Quick access toolbar' (and which is based off a hidden workbook). I use this macro to fulfill tasks to regular excel spreadsheets that are not macro enabled, however, I can't seem to get this macro to work for other workbooks. How to modify my code to work for other spreadsheets.
[Code] .....
i can use application.username to get activeuser name and have excel check this and close the workbook if its not me, what i want to do is have excel check lets say cell A1 in workbook SECURITY.xls stored in C: and if it says Craig Shippey leave workbook open if not close the workbook, why i said working with closed workbooks is i dont want to have any indication on where its checking from,
1. i have a workbook in which i want an Workbook_open macro lets call this workbook staff.xls
2. the staff.xls should read cell A1 from C:security.xls into a variable called Check
3 if check craig shippey close workbook without any prompt
all this should be done without anyone knowing that a macro opens another workbook, i know if the user disables macros then it will still open, but i will just set their Macro Security level to low so they wont be prompted, i will also remove that item from their menu bar, if they cant see it they wont be able to alter it back
Why isn't my copy and paste working between workbooks? We use excel 2000. I've resorted to using a lot of selection because I can't seem to figure out what is going on otherwise...
I'm sure this should be much simpler...
Sub PortData()
Dim wbA As Workbook, wbB As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet, ws6 As Worksheet
Dim sPath As String, sName As String, bTextSwitch As Boolean
Dim nLast As Long
Dim i As Long
I've been developing a form in excel (not userforms, just the usual conditional formatting, validation and macros to show/hide rows etc). It all works fine now except one thing was noticed when a colleague was testing it. If she opens the form from the email, and she already has excel open, then the form will not work when she makes a selection from the dropdown list, which unhides the rest of the form. If she closes down all of excel and opens the form from fresh, it works fine.
View 9 Replies View Relatedin simple terms im trying to cross reference a name list with registers from another wrokbook. so basically the desired result is. i press my button and it loads the second workbook up, it then uses the a name list in the new book and searches for that names maches in the registers (a group of sheets) on the previous workbook then if a match is found it colours the background in green. I am however getting errors e.g. "run time error: '424': Object required"
with this line then highlighted in yellow:
u = ShtNm.Sheets("Sheet1").Cells(1, "C").Value
Sub Macro1()
Dim u As Integer
Workbooks.Open FileName:= _
"S:HR TrainingO2 Operational TrainingRetentions and CollectionsUpgrades
ames 18th june onwards.xls"
ShtNm = ActiveWorkbook.Name...............
I am trying to create a timekeeping workbook that will track the time I spend on certain tasks. I have created the attached worksheet including macros that correctly allows me switch between tasks but I cannot run this set of macros in one workbook and work in another.
AtTask Timer.xlsm
Windows 7 . How do i open multiple instances of excel? even when im working with two workbooks rather than both appearing as the active book in excel only one can be on top. id ideally like to have both appear side by side on my desktop, vertically not horizontally.
View 1 Replies View RelatedI'm working on a sheet which references a sheet in another workbook. I want to refer to the other workbook simply by it's filename (Forecast.xls) but whenever I save and reopen Excel has replaced the filename with the full path (C:Documents and SettingskoconnorMy DocumentsAuto-sheet project[Forecast.xls])
This is quite inconvinient as I am eventually going to want to move both workbooks together to a different location. Is there a way to make Excel stop working out full file paths and just look for the filename in whichever folder the active sheet is sitting in?
Im trying to add a print button to a userform. But three things that have to happen when the button is clicked:
1.Excel has to tell the print dialogue box to ensure the page will only fit on one page by one page
2.The print dialogue box has to pop up so the user can ensure the settings of the print
3.Right now when the print happens scroll bars are printing from the userform. I need those to disappear
This code in its current state is messing with me, it appears I set it to one page by one page but yet when the print happens its only printing the last part of my userform. And right now it also does trigger the dialogue box so that part is solved. I just cant figure out why its not resizing to one page by one page.
While using an userform, is it not possible to swap to other files in the window?
I.e Alt+tab function is not working while an userform is opened.
Private Sub Worksheet_Calculate()
frm_document.Show
End Sub
A userform is called up upon a calculation change in the spreadsheet on two computers and has for years. We just hired a new employee and the userform is not pulling up for her. Instead she gets an error: Runtime error 75...Could not find the specified object.
I'm having some problems with SetFocus on a user form that I am using. Code is Below.
Dim Answer As Variant
With cboAccount
If .Value "" And .ListIndex = -1 Then
Answer = MsgBox(cboAccount.Value & " is not a registered account, would you like to add it?", vbYesNo)
If Answer = vbYes Then
Load frmNewAccount
frmNewAccount.txtAccountName.Value = frmEnterTransaction.cboAccount.Value
frmNewAccount.Show
If Answer = vbNo Then
cboAccount.SetFocus
End If
End If
End If
End With
End Sub
basically the code asks if the if the answer placed in a cboAccount (combo box) is valid against the list designated to that combo box,
If the entry is not valid a message box appears asking if they would like to add the entry to the valid list if they do not want to do this they can click no and in which case I wan't the focus to be set back to the combo box however currently the setfocus command above does not does not work and the focus is set to the next text box.
I have a UserForm which enables the user to input sales figures for each month for 5 years.
At the bottom of each year is the total box.
At the moment it only sums the 12 months when each month has a figure in it. Sometimes the user only needs to enter, lets say, 4 months figures and the total box doesn't work. It also doesn't sum as data is entered i.e. it only adds them up when all 12 months TextBoxes have a number in them.
Can I literally make it as simple as it would be on a normal worksheet i.e. =SUM(A1:A12) ??
Here is my code that is 'in' each month's TextBox
[Code] .....
End Sub
The total box itself - txtY1Total - doesn't have any code in it.
Below is code i wrote to change a password. password value is hidden in cell iv4 in different sheets. My userform contains 3 textboxes and button to run macro. As long as old password matches cell value AND new password is entered twice correctly then it will change value in cell iv4.
View 4 Replies View RelatedI have a UserForm with Combo Boxes, List Boxes, Text Boxes etc. When the OK button is clicked I want it to ensure certain fields are not left blank and notify the user (see code below). This works great for the combo boxes but not for list boxes. It seems to skip over that code. In other words, in the code below, if a manager is not selected, it doesn't notify the user.
Private Sub OkButton_Click()
'Verify fields are not left blank
If cboAgent.Value = "" Then
[Code]....
is there any way to work with excel workbook while in another excel workbook userform is running
View 1 Replies View RelatedI have a userform with two buttons : O.K. and Cancel
When I use the O.K. Button, all is correct, but when I use the Cancel Button, it doesn't work.
What line I have to add, to leave that userform ? (Cancel : CommandButton2_Click()
Sub CommandButton1_Click()
Me.Hide
End Sub
Public Function userChosen()
Me.Show
userChosen = Format(DateSerial(cmbJaar, cmbMaand, cmbDag), "dd.mm.yyyy")
Unload Me
End Function
I have a user form that has a label "txtcompno" which displays a "Auto incrementing" number everytime the user form is opened. e.g. 90001, 90002, 90003 and so on. This was working fine till yesterday, but has since stopped working for some reason: This is the code I wassuccessfully using before:
Private Sub UserForm_Activate()
Me.txtdate.Caption = Format(Now(), "dd/mm/yyyy")
Me.txtcompno.Enabled = True
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ComplaintData")
' find last data row from database
iRow = ws. Cells(Rows.Count, 1) _
.End(xlUp).Row
If ws.[A2].Value = "" Then
Me.txtcompno.Caption = 90001
Else
Me.txtcompno.Caption = ws.Cells(iRow, 1).Value + 1
End If
End Sub
but now its giving me error - "Run time error 13 : Type mis-match". and its highlighting the line: Me.txtcompno.Caption = ws.Cells(iRow, 1).Value + 1
I have a User Form that is used to collect data. CommandButton1 loads the User Form data into the worksheet and CommandButton2 clears all data from the Form in preparation for entering the next record. Immediately after a user first opens the Form, the very first time CommandButton1 is clicked, the Enter Key stops working. At this point data can be typed into any TextBox on the Form, but when the Enter Key is pressed the cursor remains in the TextBox. (The Enter Key will not move the focus to the next Textbox in the Tab Order. Also, if I alter the code to set the focus on a CommandButton as the active control instead of a TextBox, pressing Enter on the active CommandButton does not execute the CommandButton's macro... the same behavior as a TextBox; nothing at all happens when the Enter Key is pressed even though the CommandButton has focus).
At the point when the Enter Key stops functioning, if the user presses 'Alt-Tab' to leave the Form and then immediately uses 'Alt-Tab' to return back into the Form the Enter Key suddenly works again and continues to work correctly from that point on even after CommandButton1 is clicked. Again, the Enter Key stops working ONLY the first time CommandButton1 is run immediately following initially opening the workbook and Alt-Tabing into the Form immediately corrects it. I saw one other post in this forum with this same problem in 2003, but unfortunately it did not get answered.
I have an excel sheet that has a userform on, when this is open my users are required to cross reference with another excel sheet they have just typed up to make sure they enter the right information into the userform. The only problem i have is, when the userform is open my users cant access any other excel workbooks.
View 2 Replies View RelatedI am trying to develop some data package for my office and created Userforms to add/input data, and amend/modify data. To input its working fine. But when I want to amend/modify the records its not working. I am new to Userforms, Codes. Can anyone help me by rectify me coding, for which I am attaching the sample sheet.
I am working on a "Salary Payment voucher excel Userform".
How can i do it, if i don't want manually fill in the number of working days into the textbox myself, Can i have the userform to automatically fill in the number of days when i initialize the userform.
We are working at 6 Days weeks.
I have created an userform listbox in workbook A and RowSource points to a specific range of values in a particular sheet in workbook A. The macro is activated by CTL(z). This part works fine as long as the active workbook is A. I want to activate the listbox from a different active workbook say B. The List box appears but no data because the rowsource points to a range in workbook A. I have tried to put Workbooks("workbook A") in rowsource but still no success.
View 2 Replies View RelatedI have a workbook with 'Application.Visible = False' in the 'Workbook
open' event, as well as 'Userform1.show'. The relevant Desktop shortcut
is set up for the application to run 'Minimized' and to start in
"C:Program FilesMicrosoft OfficeOFFICE11".
In this manner, when the shortcut is Dbl clicked, the userform appears
with no visible evidence of Excel having been started. The
application.visible attribute is reset in the 'workbook close' event
with :"Application visible = true.
All of this works extremely well, however wilst previously opened
workbooks remain open and visible when I start this workbook, while the
workbook is opened I an unable to start any other excel workbook via
their shortcuts. I can however start a new instance of Excel then
browse to the workbook to open it.
MY QUESTION: How do I allow users to start any of their Excel
workbooks via their shortcuts while my application is running and the
userform showing?
I am currently running VBA when ComboBox1 is selected ComboBox2 shows specific information based on lists in the spreadsheet.
Now I would like it if ComboBox2 showed "Business Improvement" then ComboBox3 will show information set in that list.
Also, my submit button isn't working and I can't find out what's wrong using the debugger
Userform Loading with database turns to close all Excelworkbooks completely
Database created in Excel worksheets to load and show in various different objects on userform. At present this project file size is approximately 2.5 mb and more to go as it is not yet complete. Now you can imagine how much big this project can be.
It uses various different types of objects such as listboxes with many columns, combo-boxes, textbox, checkbox and many. Every objects has its own style to display data on userform which is set in its properties itself.
Before loading userform to display, program creates database from manual entry (which is made by user on their working sheets) to database entry sheets (which is made to make compatible to show on userform). Upon loading, it also loads/populate all datas required in their objects to display.
All works perfect when I am in editing mode. It doesn't matter how big the database can be and works as required. This Project is now Password Protected and distributed among all staffs in our company to work with.
Error Occurs, when I tested in non-editing mode. The moment I triggered the macro to load the program, it takes some few times and pops-up with Excel Recover error message box asking whether to send Error Report and to whether recover & start Excel application again??
I don't know what is wrong. Sometimes it also run successfully when in non-editing mode even there is no changes in program codes.??
Sometimes I feel there can be a virtual memory issue, but my Pc is more than enough with 1GB ram. I hv also increased virtual memory limits and tested but all vain attempt...
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 workbook in excel 2003 which I had been running the following macros (listed below). We recently upgraded to Excel 07, and neither are working. When I try to run them, the "debug" option highlights the following line in the sort macro "Range("A2:z" & lastcell).Sort key1:=.Columns(1)". This is driving me crazy, as the macros worked perfectly under the older version of Microsoft. Is there an issue with crossfunctionality between '03 and '07'.
Private Sub Worksheet_change(ByVal target As Excel.Range)
If target.Column = 1 Then
ThisRow = target.Row
startRow = 1
i = 1
Set ws = ActiveSheet
maxRow = Cells.SpecialCells(xlLastCell).Row
maxCol = Cells.SpecialCells(xlLastCell).Column
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Do While i
I have 25 files with certain worksheets that I need to move to 25 other files.
Worksheet 1, 2, 3 and 4 in Workbook A needs to be moved to Workbook A-2014 Worksheet 1, 2, 3 and 4 in Workbook B needs to be moved to Workbook B-2014 Worksheet 1, 2, 3 and 4 in Workbook C needs to be moved to Workbook C-2014 etc....
Is there a way to do this with a macro? Preferably I would like to do this automaticly - i.e. runing the macro from a master file that
1. Opens Workbook A copies the worksheets
2. Open Workbook A-2014 paste the sheets
3. Save and close Workbook A-2014
4. Close workbook A without saving
then doing the same for Workbook B, etc.