How do I determine if AutoFilter is turned on when I open a sheet? I tried FilterMode with no luck.
HTML Code:
Sub macro2()
Dim t As Boolean
s = ActiveWorkbook.Name
t = Worksheets("SO_PO_14").FilterMode
End Sub
The FilterMode call always return False,
Is there a way to prevent a workbook from opening unless macros are allowed?
View 2 Replies View RelatedI have a huge spreadsheet requiring me to manually enter alot of fields with formulas. I am using the formula
=COUNTIFS('A1'!C10:F11,Statistics!K5)+(COUNTIFS('A2'!C10:F11,Statistics!K5))+(COUNTIFS('A3'!C10:F11,Statistics!K5))
The full formula is quite long as this pick up the data off over 300 work sheets. (there's probably an easier way to do this aswell) When I copy or drag this to another cell with on the same worksheet it gives me the correct formular with the correct cells changes as I want. However this formular does not work. I have auto calculate on and I manually press enter on the cells and still nothing. If I change the following for the entire formula (about 8min to do each cell) it works
=COUNTIFS('A1'!C10:F11,Statistics!K5)+(COUNTIFS('A2'!C10:F11,Statistics!K5))+(COUNTIFS('A3'!C10:F11,Statistics!K5))
Is there an easier alternative then manually changing each number?
I have worksheet that is used as entry log. In this log I have a month column that the month number is entered into based on the month of the entry. I have vba code that filter on this month column and copies the visible results to another worksheet for just the month that is filtered. The problem I am having is that if the month I am filtering on is not found it is pasting the information from the previous search. I am guessing there are two ways to solve this problem:
1. I need code that in the form of an ElseIf statement where the if the value of the autofilter's criteria isn't found then do something
2. I need code that clears the clipboard of copied data after it pastes the data so that when the first occurance of a value not being found occurs nothing is pasted.
I'm totally uncertain as to how either of these codes should be written.
WHEN I FILTER FOR WORDS BEGGINING WITH LETTER I. THERE IS NO DATA...SO I HAVE SOME CODE THAT WILL POP UP MSG BOX. AND IF THERE IS THEN COPY DESIGANTED RANGE..HOWEVEER WHEN I FILTER USING THE BELOW CODE...IT DOES NOT RECOGNIZE THAT THERE IS NOTHING AND JUST GOES THROUGH AS NORMAL..
Sub START()
Dim rng As Range
Dim rng2 As Range
Dim worksheet1 As Worksheet
Set worksheet1 = worksheets("MAIN")
Selection.AutoFilter Field:=4, Criteria1:="=I*", Operator:=xlAnd
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(0, 18).Resize(.Rows.Count - 1, 1)
.SpecialCells (xlCellTypeVisible)
On Error Goto 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
worksheets("noms").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
destination:=worksheets("NOMS").Range("A1")
End Sub
I would like to determine if the VisibleDrowndown is TRUE in the attached table.
The current macro sets it to FALSE in field 1. However, I want to identify when it is TRUE so I can run this macro.
Attached File : V1.xlsm
If I have a multiple workbooks open and I want to determine if a workbook is open for example "Test 1.xls", how would I do that. I want it to msgbox once to say "open" if open or msgbox "not open" if not open.
View 2 Replies View RelatedI cannot cut and paste from my working computer to the internet access computer.
This code is intended to check for a workbook already open and if it contains a particular worksheet. This function is called from a routine that reads a master workbook then opens a PCM workbook. The PCM workbook might already be open.
WB_PCM is declared as a workbook and the name is set. WS_PARAMETERS is declared as a string and its name is set to an existing worksheet. The workbook and worksheet do exist, but are not open.
This is the call to the function:
Code:
WS_exists = Is_Workbook_Open( WB_PCM, WS_PARAMETERS_NAME )
And that code is
Code:
Public Function Is_Workbook_Open( workbook_ref As Workbook, sheet_name As String) as Boolean
Dim check_sheet as Worksheet
On Error Resume Next
If( workbook_ref Is Nothing ) Then
Is_Workbook_Open = False
Else
Set check_sheet = workbook_ref.Worksheets( sheet_name ) ' < error
[code].....
During this time the master workbook is open but either not in focus or is minimized within the Excel windows. If I select that worksheet and select a cell in it, then this code runs. What should I do different to get this code to check for WB_PCM being open and being able to handle it when either open or not open.
I was wondering how i can code a if then loop to determine if a workbook by the name i specify is opened.
If Windows(vCriteria & "ISPR.XLS"). = True Then
MsgBox "true", vbCritical, "Ferguson Enterprises, Inc."
Else
MsgBox "false", vbCritical, "Ferguson Enterprises, Inc."
End If
thats what i got.... not sure if that will work... i'm missing the definition for: If Windows(vCriteria & "ISPR.XLS"). i keep wanting to type isopened, but alas it is not avaliable in the list. There seems to be no extention avaliable that appears to work with such a function. Is it possible to do what i am trying to do?
I have a userform which prompts a user to select two files from the directory. Once these two files are open I will extract data from one into the other, the only problem is these filenames will change and I need to be able to determine what their names are.
I have this code below:
Private Sub CommandButton1_Click()
FiletoOpen = Application.GetOpenFilename _
(Title:="Please choose a file", _
FileFilter:="Excel Files *.xls (*.xls),")
If FiletoOpen = False Then
MsgBox "No file specified."
Exit Sub
Else
Filename1 = FiletoOpen
TextBox1.Value = Filename1
End If
End Sub
If I could somehow extract the exact filename, not full path, from the variables Filename1 and Filename2 I would be fine I guess, I just don't know how to do that.
Split from Macro To Insert Rows In Protected Worksheet. I have found this code wgich appears to be very close to what i want. Just to re-iterate -
A) i want to detect if any other user has the shared book open, if yes-display msg and exit - it seems to do this by just adding an appropriate msg box
B) if no - open it and lock other users out by temporarily remving share or allowing them in but as read only - not sure if it does that.
Also not sure if it works for a shared file - cannot test as i do not have access to shared network from location.
Function IsFileOpened(StrFilePath As String) As Integer
Dim FileNum As Integer
'First check filepath exists
If Len(Dir(StrFilePath)) > 0 Then
FileNum = FreeFile()
On Error Resume Next
Open StrFilePath For Input Lock Read As #FileNum ' Open file and lock it.
If Err.Number <> 0 Then
IsFileOpened = 1 'File open
Else
IsFileOpened = 0 'File Closed
End If
Close FileNum
Else
IsFileOpened = 2 'File not found
End If
End Function
how do you set a return value for a function in VBA? I've looked at examples of functions and I don't understand.
All I want to do is call a function to see if a workbook is open and have it return true or false. Here is the code I have, but it won't let me use go "Return isOpen" at the end like VB would! The IDE complains.
Function IsWorkBookOpen(ByVal name As String) As Boolean
Dim wBook As Workbook
Dim isOpen As Boolean
wBook = Workbooks(name)
If wBook Is Nothing Then
isOpen = False
Else
isOpen = True
End If
'I can't reutrn the value of is open?
Return isOpen
End Function
I've noticed other VBA functions I've looked at don't use "Return"....how does does the function return a value then?
I wish to use the custom option on autofilter several times. The problem is it closes every time I enter a new filter criteria. Is there a way to force it to stay open until I choose to close it? That way I don't have to use the pull down list to choose custom every time.
View 3 Replies View RelatedIs there a way to make sure iterations are turned on at all times? I have turned it on, but periodically it seems to revert back to off.
View 9 Replies View RelatedIn my "MAIN" Sheet. Column A starts at 12th row and contains ONLY Strings. I would like to Autofilter Column A for every unique String (criteria) in Column A (from 12th row to 1000th row). Copy the thus filtered (i.e. visible) cells from (ONLY) column C (for every criteria). Paste the copied cells to a new sheet, starting from A4 of the new sheet. Give the name of the Criteria as the name for the new sheet. Come back to "MAIN" sheet and show a pop up "Sorted".
View 2 Replies View Relatedpulling out data in a column, lets say column K, that is between a 12 and 20. There are quite a few lines so I would like to be able to pull them out automatically. In addition, I would like for the macro to pull the entire row of data not just the specific cell value.
View 3 Replies View RelatedAutofilter is turned on in a weekly spreadsheet that I receive. Functionality to move around by arrows or page up/down works until I select something out of an autofilter drop down. Screen locks in place. Can't arrow down or up (but can go left/right). Page up/down is broke also.
If I exit and re-enter it works until I filter. Scroll lock does nothing.
I have 6 working tabs in my workbook (1-10, 2-8, 1-67, 3-16, 2STB, 204th). Each of these sheet has the same number of columns. The first row is a header and the last row in each sheet is used to calculate subtotals and contains no other data. Each row of data is essentially an order that contains an ID number, information on the equipment being ordered, and information on the customer, remarks, and some other tracking information. Each worksheet contains a Column called "Gaining BDE" (Column E). These "Gaining BDEs" are essentially a way of labeling a group of customers. What I need a macro to do is create and maintain a sheet for each of these "Gaining BDEs".
I need excel to look at each of my 6 working tabs and when it sees 1ABCT, for example, copy that entire row of data into a tab called 1ABCT. As I add rows to my 6 working sheets as orders accrue, I would like excel to automatically place a copy of that row in the appropriate sheet. I have a few other sheets in my workbook that I do not want excel to search for data within as they simply serve as references for my VLOOKUP functions. I would also like the cells to be linked so that when I change the Remarks column to reflect "Complete" for example, that change is reflected in these newly created sheets. I have tried working with other peoples copy/paste row VBA code but have not had any luck and I am brand new to VBA so I have a tough time understanding it still.
I'm having some trouble getting my workbook uploaded but a view of what one of my sheets looks like can be seen here: [URL] ........
I've locked certain columns on my worksheet so that users cannot overtype target dates etc. I've password protected the worksheet.
The password protection means that for some reason the users can't use the autofilters that are on the header row.
Can someone help me solve this problem; I still need the locked cells and password protection on the sheet but the success of the sheet depends on users being able to filter for specific rows using the autofilter....
I have a worksheet that will have tabs added as time goes by and a macro within the workbook currently selects all of the sheets and copies and pastes formulas within all of the sheets simultaneously. Right now, if a tab is added, the macro needs to be updated to select that specific tab name as well.
I would like to simply have the macro select all of the sheets starting with "IL" until the sheet before "reference", or all sheets except the first 3 and the last 2 if that is easier. Any ideas? And thank you for your help, you people really amaze me sometimes!
I 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.
i am uable to use autolfilter when protecting sheet via vbacode even though i have checked the autofilter box to be able to use it whilst protected, why does it work when i manually do protection but does not work via vba?
View 9 Replies View RelatedTrying to filter list and copy filtered data to another sheet in the same workbook.
I'm receiving this error:
Run-time error '438'
Object doesn't support this property or method
Worksheets("Data"). CurrentRegion.Copy _
Worksheets(" Totals"). Range("A1")
Sub GetTotals() ..............
I have 2 sheets. The first sheet contains rows of data that I wish to search (Query Results) through and find matching data. The second sheet is the source of the data I want to find (Notifications). I want to take the number located in column A on sheet 2 and then use it to auto filter the rows on sheet 1. With the range that is left visible on sheet 1 I want to select the first row (can offset(1,0) to remove the headers, and paste the selected row back in to Sheet 2 ontop of the row where I sourced the original number to filter by.
Once the item is pasted I then want to pick up the next number from Sheet2 to repeat the process until all numbers have been processed in Sheet2. I have been going round the block on this for the past few days!
Sheets("Query Results").Select
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Selection.AutoFilter Field:=1, Criteria1:=vFroID
Selection.AutoFilter Field:=15, Criteria1:=vReqData
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
On Error Goto 0
End With
vDestRow = "A" & vLoopCount
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Proposed Notifications").Range(vDestRow)
End If
vLoopCount = vLoopCount + 1
When I either manually check the box for allowing sorting and autofiltering, or I do it through vba with:
Code:
With Sheets("Inventory")
.Protect Password:="###", AllowSorting:=True, AllowFiltering:=True, AllowUserInterface:=True
.EnableAutoFilter = True
End With
I still am unable to use the icons. The icons are clickable to filter or sort, but every time they say that the cells I am selecting are protected. I want them to be protected from editing the data, but want to allow them to be sorted or filtered.
I have a sheet that I need to routinely filter for a specific code then paste it into a different sheet in the same workbook. I would love to set up a simple macro that would do this for me, but I can't seem to figure it out.
In the results I would like the header row if at all possible, but I can always just make it part of the macro.
I found one of your old VBA entries that allowed me to automatically refresh an autofilter function, and it works great.... with protection off.
As soon as I protect the sheet so users can't enter data into the pages showing the autofiltered data, the autofilter kicks off.
i have set the protection to allow autofiltering, so it's something that is preventing the macro (for automatically updating/refreshing the autofilter).
I'd love to either fix the macro to "autorefresh autofilter" with protection on, or just enter another code that will disable all functionality on the worksheet. (workbook is set up with multiple sheets, first sheet is for all data entry, subsequent sheets are filtered data-trying to make them viewable only).
I have autofilter enabled on the header row across the top of my worksheet. Is there a quick line of VBA I can use to toggle EACH one to (ALL). This would act as a "Reset" in my spreadsheet and display all content. I had a solution that worked, until I made the workbook shared / password protected.
View 3 Replies View RelatedEXAMPLE: Complete Sheet called "Day1". When day1 is complete you click on button and it then copies itself and creates and renames new sheet to "Day2", then when "Day2" is complete you click on button and it then copies itself and creates and renames new sheet to "Day3", and so on and so forth to "Day30".
View 9 Replies View RelatedIf I protect a sheet but tick the boxes to allow sorting and autofilter I still get an erro when I try to use the sort buttons on the autofilter.
It allows me to use the filters but as soon as I sort I get told to unprotect the cells im trying to sort.
Is there a way around this where I can keep formulas from being touched but allow sorting of data through autofilter?