Macro Hides Userform Without A Reason
Mar 25, 2007
to ensure the user ends up looking at UserForm5 after having closed the UserForm2 with the x sign.
It works just great - the user gets logged on and can use the UserForm2 but when he/she closes the form with the cross and tries to lo on aner using the UserForm5 - which pops up autmatically due to the above code, both of the UserForms get cloed (or hidden).
Private Sub CommandButton1_Click()
Dim popup As Variant
If ExecuteExcel4Macro("'D:[target.xls]Trg Info'!R1C255") _
= UserForm5.TextBox2.Value And ExecuteExcel4Macro("'D:[target.xls]Trg Info'!R1C256") _
= UserForm5.TextBox3.Value Then
With UserForm5
.TextBox2.Value = ""
.TextBox3.Value = ""
.Hide
End With
UserForm2.Show
With UserForm2 .....................
View 9 Replies
ADVERTISEMENT
Sep 7, 2008
I have a sheet that has the ability to display information for 60 employees, but most of the time there is only 25 - 30 employee row being used.
The sheets starts are row 1 and goes to row 60. A61 has a formula that counts how many employees there actually are and where the last employee is. (example: if A61=32 than I need to hide rows 32 to row 60)
View 9 Replies
View Related
Jul 25, 2007
macro - show rows ONLY if two columns = each other AND......
Hello Excel Swammis!
I am in need of your assistance again.
I have an Excel report set up as follows:
Col D - Order #'s
Col G - part #'s
Col H - warehouse code for each part # ("N", "M", etc...)
Col K - Qty of part # ordered
Col L - Qty reserved for that part # on the order
List of orders starts on row 9.
If a particular line on the order is filled, then Col K = Col L for that row.
When the whole order is filled, then Col K = Col L for all rows on that order.
What I need is a macro that identifies FULL ORDERS and hides all other rows. So, if Col K = Col L for all rows adjacent to same order #'s in Col D (AND if Col H has value of "N" or "M" for warehouse code), it will be visible. Any orders with even ONE unfilled line will be hidden.
I am also looking for the reverse of this for a seperate macro. IE: Any orders with even ONE line not completely filled, I want all rows for those orders to be visible and all else hidden (again, only if Col H = "N" or "M").
View 9 Replies
View Related
Mar 19, 2012
I am completely new to using Macros in Excel. I have a cell with a yes or no question. If the answer to the question is Yes then I want rows 30-42 to be displayed. If the answer to the question is no I want rows 30-42 to disappear.
I have tried several different ways of doing this and no matter which one I use I get the same error. It says, "Argument not optional".
Here are the two different ways I'm trying to do accomplish my goal right now.
Attempt 1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BS$15" Then
Select Case Target.Value
Case ""
Rows("30:42").Hidden = False
[Code] ........
Attempt 2:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Range("$BS$15")
Select Case Cell.Value
Case vbNullString
Rows("30:42").EntireRow.Hidden = True
Code] ..........
View 9 Replies
View Related
Feb 21, 2008
I have a macro that hides and unhides certain rows in a worksheet based on what number (1-10) is entered in a cell on that same worksheet. I have this same macro in different worksheets hiding/unhiding different rows based on this same number. So here's the problem: right now I have a number entry cell on every worksheet. I would like to only have it entered on 1 worksheet, with the rest of the macros reading the cell from that 1 worksheet.
View 11 Replies
View Related
Oct 3, 2007
Code that will make it so that when a checkbox is UNCHECKED, the sheet that it originally opened re-hides itself? In other words, I have a mcor that works great that allows for a checkbox when checked to unhide a worksheet and take the user to that sheet. Now I need it si that when it is UNCHECKED, the sheet goes back to it's hidden state. This is what I currently have that UNHIDES it. Obviously somehow I need it to REHIDE it after being unchecked:
How would the corrected code look AFTER being added to this one:
Sub CheckBox615_Click()
Sheets("FedEx Freight Opp Form").Visible = True
Sheets("FedEx Freight Opp Form").Select
Range("B16").Select
End Sub
View 9 Replies
View Related
Mar 11, 2009
I have a sheet that is autofiltered. Once a user autofilters columns 20, I would like to hide the arrow for that column so the user can no longer autofilter using that column. When I run the code - it hides the arrow in column 20, but then it unfilters all the data . . . can I hide the arrow in column 20 but keep the data as it was filtered before the code ran.
Dim c As Range
Dim i As Integer
i = Cells(2, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(2, 1), Cells(1, i))
If c.Column = 20 Then
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End If
Next
End Sub
View 9 Replies
View Related
Jun 15, 2009
This is something that's been bugging me for the last few hours.
I've written a fairly simple VBA
View 9 Replies
View Related
Jan 10, 2007
I currently have a worksheet with a range of A1:P2500. I am trying to create a macro that will check every Row to determine if Column A is blank (""). If Column A is blank in this row, It will hide this row and then continue to the next, until all 2500 rows have been accounted for.
View 4 Replies
View Related
Nov 26, 2011
I have the below code that loop through a list and hides rows that doesn't contain a value of the Textbox, it works fine but becomes very show where number of records it passed through the loop is greater than 1000, is there more efficient way of writing this code?
Number of cells to loop through is 10000 Max
PHP Code:
Private Sub tboxSearch_Change()
LastRow = Cells(rows.count,5).end(xlup).row
For Each cell In Range(Cells(55, 5), Cells(LastRow,5))
If InStr(UCase(cell.Value), UCase(tboxSearch.Value)) = 0 Then
Rows(cell.Row).EntireRow.Hidden = True
End If
Next cell
End Sub
View 8 Replies
View Related
Apr 21, 2007
I'm currently trying to put together a rather large application to automate a release procedure.
Somewhere in a procedure I have the following
'previous code...
WS.Columns(8).Select
Selection.Copy
WS.Columns(1).Select
Selection.Insert Shift:=xlToRight
WS.Columns(1).NumberFormat = "General"
End Sub
The WS is defined in the beginning of that sub as follows:
Dim WS As Worksheet 'iSpares sheet
Set WS = Workbooks(FrmReleaseFlow.Caption).Worksheets("iSpares")
whereas the FrmReleaseFlow is a userform, active at that time, the caption contains the filename currently working on (in NAME.XLS format, no path), the file is open and the sheet iSpares exists...
The problem is that the code in above procedure gets executed to just that line and then the sub exits and the program continues in the sub right after this sub was called...
The weird thing is, if I set a breakpoint on the line WS.Columns(8).Select, then the execution halts there. If I then continue, the other lines are not executed. Breakpoint on the other four lines are never seen...
So the problem lies within that line WS.Columns(8).Select ...
If I execute this command in the Immediate window, while the code is halted on a breakpoint, it does work as it should...
View 9 Replies
View Related
Oct 21, 2008
If I enter anything in a cell on one work book I get calculating cell for about 3-5 seconds.
I don't have any formulas looking at the book. and I have deleted, renames, copy and pasted, exported to text and reimported and still it does it.
The thing that is odd though is that if I press return again it clears the calulation cells message.
View 9 Replies
View Related
Mar 17, 2007
I have a macro that uses user input to locate a file. If no file is found matching the user input, a message box displays informing the user. However, if a file is found that matches the user input, the file should simply open. If a file is found, the macro successfully opens the file however it will still display the message box saying no file is found. Since the message box is triggered by an error, there must be another error I haven't accounted for in my code.
Private Sub CommandButton1_Click()
Private Sub CrmFrm1_Click()
If Len(TextBox1) <> 12 Then
MsgBox "Incorrect Case File Number"
FrmNew.TextBox1.SetFocus
Exit Sub
End If
Dim MyCase
MyCase = Dir("S:AccountingProbationTest Files" & FrmNew.TextBox1.Value)
On Error Goto ErrorHandler
Workbooks.Open Filename:="S:AccountingProbationTest Files" & FrmNew.TextBox1.Value
Unload Me
ErrorHandler:
MsgBox "No file found for this Case Number." & Chr(13) & "Please proceed to Template.", 0, "No File Found"
Unload Me
Exit Sub
End Sub
View 2 Replies
View Related
Jul 2, 2008
I have come across this only a couple times and have tried in vain to find out what the "--" does in formulas
one example I have run accross in the forums is below
= SUMPRODUCT(--(ISNUMBER( FIND("SMS",A1))))
Also, is there a good refrence source for formulas like this?
View 3 Replies
View Related
Feb 18, 2014
I have created several macros where i use an active-X control button. This button is pressed and the macro begins...........but every now and again this button changes size for no apparent reason.
I have read countless articles/posts about what "may" be causing the problem but i have never read anything which clearly identifies the soln to this problem and the problem has been out there for years. To make matters worse the problem can not be duplicated on any regular frequency that i am aware of............so its not like i can post a file that will show the problem.............
View 4 Replies
View Related
Apr 15, 2009
My sub is supposed to take the values from Sheet1 and paste them into 16x10 tables on Sheet2. However, for some odd reason, the loop is skipping some rows. If you take a look, there are 2184 values in Sheet1, but only 1368 end up in Sheet2...SKUs such as 518166,518167,510573,513746,513752 are just being skipped for no reason.
View 2 Replies
View Related
Sep 23, 2013
A
B
C
D
E
F
G
740048
08/29/13
08/30/13
202
[code]....
I would like to have the count of column E. I would like to sepperate current month and year to date using column C. I would like it to reflect it in the below chart.
M
Code
N
Year to Date Date
O
Month to Date
105
1
202
5
4
402
1
View 3 Replies
View Related
Sep 19, 2007
I've just seen a formula with two - (minus) signs right next to each other placed before a section in a formula while reading possible answers to my post. Here is the link: Understanding this formula. I've seen it before and am intrigued as to why it is there and what it actually does. Assume it is used such: = --(1+2). Would the answer then not be =--3 = 3?
View 4 Replies
View Related
May 31, 2013
How can I total overtime based on a "Reason Code" and whether the employee chose "Cash" or "Time" compensation?
View 2 Replies
View Related
May 4, 2007
This is going to be difficult to explain, but I'll try... I need to be able to format a sheet that has all data in column format. Column A contains a number and B an application. C contains the issue data. I need the issue data to be moved under column A and B as illustrated below. What formula can I do to accomplish this?
Original:
Final:
Can't get html or the image tags to work for some reason.
View 9 Replies
View Related
Jun 15, 2009
This is weird - if you delete a sheet that contained a control then
a. showing a modeless userform resluts in a userofrm that goes invisible at subroutine End
b. public variables lose their value
These things do not happen if the sheet did not contain a control. Attached is an example file - put the inputfile.xls in your default file location (or add a path in the code) then open the ProblemDemo.xls and run the main macro to see it fal - isthis another Excelbug I've found?
View 9 Replies
View Related
Sep 18, 2013
I've found a cell that replicates another cell on the same sheet. If any number or text is entered, its replicated as text, but if I enter a formula in the cell, the cell works normally. There's no conditional formatting, no links, no macro, no nothing that I can see, yet it happens.
View 8 Replies
View Related
Jan 26, 2009
I have a macro that I found somewhere on the net to look within a folder and list all the files of a certain file extension.
The macro to do this is in the attached example and is called 'Get_File_Names_Within_Dir_ext'.
I have created a basic userform outline, 'UF1' for the user to define:
Select File Extension
Select Folder to Search
Destination Sheet
I just don't have any idea how to sync the two.
If you type 'exe' into 'TB1_File_Extension' of 'UF1' the macro should search for '*.exe' files within the specified folder.
The search folder 'RefEdit1' box should open a windows explorer box (or some such) so that the user can select the directory in which to search for the previously specified file extension.
'TB2_Destination_Sheet' is a text box for the user to type the sheet within the workbook in which to list the files found within the specified directory.
'CB1_Find_Files' should activate the macro to find any files for the specified criteria.
There is also a Button 'Find File Types' in Sheet1 of the file which should activate the userform 'UF1'.
View 14 Replies
View Related
Apr 17, 2014
I have a userform with a command button which fires a macro.
everything works fine so far.
my problem is:
I would like to add a msgbox at the end of the macro which confirmes "successfully completed".
I cannnot simply add the msgbox at the end of the macro. don't know what I'm doing wrong.
(see below)
Private Sub CommandButtonOK_Click().
If Me.OptionButton1.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Government Securities"
ElseIf Me.OptionButton2.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Corporate Bonds"
[Code].....
Unload Me
Application.ScreenUpdating = False
Sheets("MySheet1").Select
Application.ScreenUpdating = False
'run macro
MyMacro1 (adds, hides and deletes various sheets)
MyMacro2
[Code]....
View 2 Replies
View Related
Apr 2, 2007
How can I run a macro from within a commandbutton on a userform?
Ive tried
private sub commandbutton_click()
macro1
end sub
but not worked..
View 9 Replies
View Related
Nov 5, 2009
I'm trying to run the macro AddAdvertisers after clicking a command button in a userform, but I keep getting an "Expected Function or Variable" error after clicking on the button.
FYI - both subs are Public, and the macro is in module Advertisers.
Run (AddAdvertisers)
View 9 Replies
View Related
Aug 30, 2006
I was just wondering how can I save a userform as macro, so the user can just run the macro and so the form would pop up.
View 6 Replies
View Related
Nov 10, 2008
I have an userform say frmNew. In the form, I have three textboxes: txtCost, txtRate, txtSale.
The following two boxes are filled by a user:
txtCost contain the Cost of an item (numbers)
txtRate contain the % Rate (3 character), i.e. the txtRate can contain only A,B,C,D,E,F,G,H,I and J. The corresponding value is 1,2,....9,0 respsctively.
If a user enters any numbners or characters other than A,B,..J, a msgbox should popup with a error message.
The value for txtSale is generated by the Macro i.e. txtSale = (txtCost + (txtCost * txtRate)).
View 14 Replies
View Related
Nov 14, 2008
I've created a simple UserForm, and with some great help from royUK. I've managed to get it working to suite my needs. The next thing I need to do is call it when the user runs the macro.
How do I call the UserForm from within the macro that I created?
Once the user gives the input, how do I take the values and pass them to the loop in the macro?
View 11 Replies
View Related
Mar 18, 2009
I like to run Vlookup function in macro excel userform with combobox & listbox..
View 2 Replies
View Related
