To Filter Then Protect Rows With Certain Word
Mar 6, 2007
I need to protect and unprotect rows of data on my "Near Miss Data" sheet, periodically.
When data is added via a Userform, one of the columns (column N) will have either a YES or NO in it. Those rows which have a NO in column N, needs to be unlocked. Those which have a YES, need to be locked. BTW ~ The yes' and nos refer to whether it's completed or not
I am planning to CALL the code below to protect/unprotect as needed, but i am struggling with the code to use so i can unlock those rows with NO in column N
Sub Unprotect()
' Simply UNPROTECTS the sheet
Sheets("Near Miss Data").Select
ActiveSheet.Unprotect Password:="lock"
MsgBox "unprotected"
End Sub
Sub Protect()
' Simply PROTECTS the sheet
Sheets("Near Miss Data").Select
ActiveSheet.Protect Password:="lock", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "protected"
End Sub
View 9 Replies
ADVERTISEMENT
Jun 11, 2009
I have VBA code to set a password on multiple worksheets in a workbook. I new need to force a check in the "Format Columns" and "Format Row" checkboxes. The current VBA code is:
View 4 Replies
View Related
Jun 6, 2012
I have a SS that puls data from another sheet using the following formula
=IF(OR('Site Visit ASSESSMENT'!D9={"PARTIAL COMPLIANCE","NOT COMPLIANT","NOT ASSESSED","ADDITIONAL INFO NEEDED"}),'Site Visit ASSESSMENT'!A9,"")
I also have VB Code in teh sheet as follows to hide rows. If I protect colum A and protect sheet I get an error. How can I protect the sheet and still have the following commnad work?
Private Sub CommandButton1_Click()
'Toggle rows hidden where cells in column D are blank
If ActiveSheet.AutoFilterMode Then
[Code].....
View 6 Replies
View Related
Mar 5, 2008
I have a workbook list of activities that I am hoping will visualise the scheduling of routine maintenance tasks in my engineering department. The date of the most recent check is entered in row 6 and the interval in row 5. Hence the number 7 denotes a weekly check. The conditional format is such that the reds indicate that a check needs to be carried out. If the check is done on the scheduled day then a "Y" is entered into the square. This will then turn the square green. If "Y" is entered on any other day then the square turns orange to indicate the check is done, if not on time. The red squares do not change colour unless a yes is entered. This is designed to show the history of checks and give us the opportunity to show compliance to routines. What I need to do is lock the rows that have passed the current date, to prevent unscupulous modification. Thus the macro would look down column A and if the date is less than today() would lock the row. I have truncated the file as much as I can. A nice to have would be the facility for an adminstrator to go in (perhaps password protected) to make changes if necessary.
View 3 Replies
View Related
Mar 4, 2014
I have an excel file with a table in it. It contains 2051 records (attached). This is just a sample, the original file has around 30,000 rows.
When I start using filters, I run into problems:
Step 1: Filter by Unit, condition (e.g.) Unit_23
Excel shows in the status bar the following message: 437 of 2050 records found.
Step 2: If I scroll to the bottom of the table, the row numbers are colored in blue (normal for a filtered list) however the last row is not colored and it actually should not be shown since its unit is not what I filtered for (its unit is Unit_25)
Step 3: Clear the filter of Unit
Step 4: Sometimes (depending on what I filter for), one or more of the bottom rows are hidden!!!
Attachment 301726
View 4 Replies
View Related
Jan 9, 2008
I got a code to delete all rows in the sheet which contain the word "DETAILS" but I now want to delete all the rows that do not contain the word "DETAILS"
My code if needed is:
Sub Find_details()
Dim rng As Range
Dim what As String
what = "DETAILS"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End Sub
View 9 Replies
View Related
Jan 17, 2013
Some sensitive data is held on worksheets that are used by people that do not have access to see the data.
It would be most convenient to keep the data in these worksheets but hide it from view of the users.
Is there a way to password protect a users ability to unhide a column?
View 2 Replies
View Related
Nov 16, 2009
I want my macro to protect my sheet again after it is done to allow editing objects and formatting rows. I am really stuck and have come up with the below, but it isn't working.
View 5 Replies
View Related
May 26, 2006
I have an excel program that is supposed to count word instances in a word document. I can't seem to find the right declaration for a word document.
For example to declare a workbook in excel its
Dim wb As Work Book
I've tried
Dim doc As Word.Document
'or
Dim doc As Word.Application
as shown in some of the forum posts, but an error user-type not defined keeps displaying.
View 2 Replies
View Related
Jan 6, 2013
I would like to get a simple function to count how many times the word fox is mentioned across rows , my answers are in col K .
If possible I would like to look for more than one word , sometimes two or three .
looking at row 1 , what would function be if counting fox , red , a
Sheet1 ABCDEFGHIJK1Theredfoxwasjumpingoverafox,ok 221fox,twofox.3fox. 337cows
0419thanimalwasareddogwithafoxfriend1
View 6 Replies
View Related
Aug 22, 2008
Looking for a VB solution to parse each cell in column B if a specific word exists then hide the entire row. in this case the word or phrase will be (inactive) each row will be different words but can contain (
like this...
___A___B____________________________________________C
1 44 this row does not contain the word but has other 3
2 23 this row does not contain the word but has other 5
3 21 this row does contain the word (inactive).................Hide the Row
4 26 this row does contain the word (inactive).................Hide the Row
5 43 this row does not contain the word but has other 6
6 20 this row does not contain the word but has other 9
and so on....
View 3 Replies
View Related
Jan 16, 2007
I am trying to copy rows that contain a specific word from one worksheet to another.
View 9 Replies
View Related
Mar 4, 2014
How can I delete all rows that have a cell that starts with the letters APP
View 3 Replies
View Related
May 28, 2013
I have the following formula that picks up the cost of the item with a certain number and the description includes the word post, however I now have a scenario whereby under a certain number there are several items that include the word post and the formula is only picking up the first one and not the sum of them all.
Formula:
{=IF(ISERROR(INDEX(Sheet1!$E$3:$E$706,MATCH("*"&$C$1&"*"&A3,Sheet1!$C$3:$C$711&Sheet1!$F$3:$F$707,0))),0,(INDEX(Sheet1!$E$3:$E$706,MATCH("*"&$C$1&"*"&A3,Sheet1!$C$3:$C$711&Sheet1!$F$3:$F$707,0))))}
Data:
Description
ID
NAME
Qty
Unit $ exc
Number
[Code] .....
Result:
Job Nos
Product Description
Post
24741
IN Wave
124.3
Is there anyway to pick up all the information?
View 5 Replies
View Related
Dec 18, 2013
I get a report each week that has a bunch of unwanted header info. It used to be static and the macro just deleted the first 49 rows. I recently found out that the header format changed and it's been deleting crucial data.
I need something that will find the words "Medical Center" and delete all the rows above it, however many that may be...
View 4 Replies
View Related
May 15, 2007
I can trying to let the user type a word in to cell A1 and then have Excel remove the rows that contain the word. But VBA below just seem to delete all nonblank rows?
sub delete2()
Range("a2:a200").Select
For Each cell In Selection
If cell.Value = A1 Then
cell.ClearContents
End If
Next cell
Range("a2:a200").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub
how I can update this code?
View 9 Replies
View Related
Jan 16, 2007
I am trying to copy rows that contain a specific word from one worksheet to another.
View 9 Replies
View Related
Jan 12, 2007
I have a sheet that is password protected. I have this code attached to a command button. It will unlock the worksheet, autofilter it, print it, unfilter it, and password protect the sheet again. However it is protecting it without a password. I need to have it protected with the password so that someone will not be able to just go to tools to unprotect the sheet.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "rainforest"
Columns("O:O").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub
View 3 Replies
View Related
Jan 27, 2009
I need to build a macro which will look for a specific word say :"ABC" in a particular column say "B" and delete 5 rows including the row containing the word "ABC"
View 6 Replies
View Related
Aug 31, 2012
I am trying to get macro which will find word "Service" in sheet 1 and after that delete that row and below row.
View 1 Replies
View Related
Jul 22, 2008
I have a spreadsheet that I need VBA Code to do the following
1) Delete all rows where the word totals appears in Column B for eg "Totals for Vehicles Stocked in 0706" "Totals for Vehicles Stocked in 0707" etc
2) Delete all rows where the value in col m is less than 45
I have written the code, but cannot get it to work-see my code below
Sub Del_TOTALS_Underaged()
FinalRow = Cells(65536, 2).End(xlUp).Row
For i = FinalRow To 1 Step -1
If Cells(i, 2).Value >= "Totals" Then
Cells(i, 1).EntireRow.Delete
If Cells(i, 13).Value < "45" Then
Cells(i, 1).EntireRow.Delete
End If
End If
Next i
End Sub
View 9 Replies
View Related
Oct 5, 2009
I have got an excel sheet with 2 columns A and B.
Column A's rows are merged according to column B. E.g.
Column A:
Row 1-7 (merged) Ron
Column B:
Row 1: New Jersey
Row 2: New Delhi
Row 3: New Jersey
Row 4: New York
Row 5: New York
Row 6: New Jersey
Row 7: New York
My result should be like:
Column A:
Row 1: Ron
Column B:
Row 1: New York
and similarly for other rows also.
PS: The no. of rows merged for column A can be different.
Also the keyword that should be present in Column B should be according to hierarchy, New York, New Delhi and then New Jersey i.e. first the macro should check for New York, if its present (in 1st 7 rows according to example given) then New York should be written in Coulmn B, if New York is not present then it should check for New Delhi and New Delhi should be written in Column B and if New York and New Delhi both are not present then it should check for New Jersey.
There are only 3 keywords which need to be checked i.e. New York, New Delhi and New Jersey.
If these 3 keywords are not present then the macro should not do anything.
View 9 Replies
View Related
Jun 21, 2007
I am trying to create a search function in a database I have made. I have a userform with drop down boxes that people can choose what they want to search for. Once they have chosen and clicked the search button I want it to search only in the relevant column, i.e. search for the word in the dropdown for "engine" only in the "engine" column of the database. Once it has found the appropriate cells with the answer, I want it to delete all other rows that don't include the answer.
Once it's done this it needs to do it again for the other fields, unless they are empty. I have used 'If engine_type <> "" Then' as the starting point so that it only searches chosen fields.
View 4 Replies
View Related
Oct 14, 2013
I need to filter data between two rows.
First row of data being a category, say 1-5. The second row is data I want the AVERAGE for only if the category is equal to 2 in the column. Looking for formula that uses 'Array of row 1' if = 2 to average of Array row 2???
1
4
3
2
1
5
4
1
2
2
[Code]...
So, filtering to only find the average of 300,500,800 = 533.33.
View 7 Replies
View Related
Jan 10, 2009
Here is my table which is just a test sample of the larger table, but in the end, it is column 1 I want to base the new ws on.
Before Macro
AY *AB1UnitCount2533210431 LGR SQ10584631 LGR SQ7726 Excel tables to the web >> Excel Jeanie HTML 4
The code below works fine through the first instance of the match and adds a new ws based on the name, but when it gets to the second match the macro tries to add the ws all over again and I get a run time error 1004 which states you can not add a ws and name it the same as one that already exist. I only have one sheet in my wb titled "AY". How can I also have the two column headers transfer to the new ws?
Public Sub CopyUnit()
Dim N As String
Dim i As Long
Dim ws As Worksheet
Set ws = Sheets("AY")
N = Worksheets("PAS Codes").Range("L14").Value
For i = Range("A65334").End(xlUp).Row To 1 Step -1
With ws
If Cells(i, 1).Value = N Then
.Rows(i).Copy
Sheets.Add.Name = N
Rows("1:1").Select
ActiveSheet.Paste
End If
End With
Next i
Application.CutCopyMode = False
End Sub
After Macro
31 LGR SQ *AB1UnitCount231 LGR SQ7331 LGR SQ10 Excel tables to the web >> Excel Jeanie HTML 4
View 9 Replies
View Related
Mar 29, 2014
I have a huge data file with dozens of columns and hundreds of rows. To check which values are negative I use conditional formatting. Now because the number of columns are so many I am unable to filter only highlighted cells at once. I have to go through each row and scan for highlighted cells which is very time-consuming. How in hundreds of rows I can filter out which row has any highlighted cells. Or may be some other easier way to pick out the negatives only.
View 6 Replies
View Related
Jun 3, 2007
I have two spreadsheets. Spreadsheet B reads from the master. No entries are made on spreadsheet B, it is visual only. Changes are made only on the master. I want to create a Macro where all blank lines are filtered out automatically on spreadsheet B, in effect only lines with values are displayed.
Once a new task is created, the details are typed into the master spreadsheet and spreadsheet B, located in another building, is automatically updated to display the details. Once the task is completed which can be seconds, minutes or hours later, an "x" is placed in column A of the master. I have formulated spreadsheet B is "" all rows where "x" is listed in the master. Towards the end of the day however, I can have 50 visable entries on spreadsheet B spread over 500 rows.
I want spreadsheet B to display only active tasks from the top of the page down. I currently have those that read the spreadsheet filter out blank rows. Because tasks can be updated at a rate of 10 - 15 per minute with new tasks and the completion of old, I want to eliminate the need for our employees to have to filter themselves.
View 4 Replies
View Related
Jun 19, 2014
I'm trying to build a report whereby i collate the first punch in and the last punch out from a set of data.
This is a sample data:
02-May-1409:00
02-May-1419:14
05-May-1409:31
05-May-1419:38
06-May-1409:31
06-May-1412:56
06-May-1413:10
06-May-1420:11
07-May-1408:36
07-May-1412:45
08-May-1408:45
08-May-1412:35
08-May-1413:23
08-May-1419:54
My result should be the following:
02-May-1409:00
02-May-1419:14
05-May-1409:31
05-May-1419:38
06-May-1409:31
***these cells should be filtered out
06-May-1420:11
07-May-1408:36
07-May-1412:45
08-May-1408:45
***these cells should be filtered out
08-May-1419:54
View 10 Replies
View Related
Jul 13, 2014
I have some data captured in a spreadsheet. The data was recorded every 15 seconds in this format 00:00:15. The total time of recording was 24 hours. I need to filter this data to every 2 minutes and capture it into another sheet.
I have attached an example of the data captured.
View 2 Replies
View Related
Oct 8, 2007
I am using the following code to filter for data I do not want and then to delete those rows and show remaining data. It works fine except when the filter comes up empty and there is no unwanted data to delete.how to improve this code to accomodate this situation?
Selection.AutoFilter Field:=4, Criteria1:=">" & dweekend, Operator:=xlAnd
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
ActiveSheet.ShowAllData
Thank you for reading
View 9 Replies
View Related
