I have a worksheet in excel that I have hidden columns from AA right to the end. Which gives the user a nice worksheet with everything to the right of AA hidden in blue. What I would like to do is now centre the worksheet in the screen and have the same hidden blue effect to the Right of the worksheet in this blue.
View 1 RepliesI'm trying to write some code to Hide columns if the first 3 characters of cells in a range equal the contents of another (formula equivalent would be something like this =IF((LEFT(A2,3))=A1,"HIDE COLUMN", "SHOW COLUMN"). I have gotten this far but cant get it to work;-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, cell As Range
On Error GoTo ErrHandler
Set r = Me.Range("B7:CG7")
Application.ScreenUpdating = False
Application.EnableEvents = False
Row = 1
col = 1
For Each cell In r
If cell.Value = "" And Left(cell.Value, 3) = cell(Row, col).Value Then
cell.EntireColumn.Hidden = True
Else
cell.EntireColumn.Hidden = False
End If
Next
ErrHandler:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Here's a weird one: I can't get some of my cells to align to center/left/right. Both the buttons on the toolbar and Format->Cells->Alignment won't work. The kicker is that other cells on the same sheet will center/left/right just fine. Is there some kind of formatting protection I inadvertently set?
fyi, Excel 2003 on XP Pro, all fully updated.
I would like to know that if i have seat count available according to floor and weekly off are planned according to team, also seat allocations is given floor wise, however i want to know how many seats are available on each floor or any given day.
I have attached excel sheet : Seat Allocation.xlsx
I think I did something but I don't know What. I select a cell that has a 20 font Size I enter a number it show at the 20 Font. Now when I go some ware else in the work unselecting that cell the number went to font 10 and droped to the left bottom of the cell. When I select the cell again and select the the left middle and right to move the number it does not responed. It happens everyware in the worksheet.
View 14 Replies View RelatedMy current spreadsheet shows text that's aligning just slightly to the left of center. In the Format Cells menu under Alignment, I have selected Center for both Horizontal and Vertical. There is no indent. Orientation is 0 degrees. Text is set to wrap. Merge cells is unchecked. Text direction is Context.
When I double click a cell to change the text, it centers correctly as the cursor blinks. But when I click somewhere else and it stops blinking and allowing me to type in the cell, it aligns slightly to the left of center.
I need to be able to save a copy of my spreadsheet but protect the structure so that the hidden rows cannot be opened by the person that I e-mail it to. At the moment I am using the current
Private Sub CommandButton2_Click()
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
Call ProtectRobin
End Sub
Private Sub ProtectRobin()
ActiveWorkbook.Protect ("Robin")
End Sub
The saving part of the macro is working perfectly, however I cannot get the protection to work. It must have a password - I do not want the receipient to be able to go 'Tools' > 'Unprotect Sheet'.
I need some VBA code to hide columns in spreadsheet when run. Basically, in row 7, I've entered HIDE in the columns that I want to hide when the macro runs (i.e. columns F,J,H,I,K, O,P,R).
View 7 Replies View RelatedBelow code isnt working for "5 Metre", columns dont hide from row 24 down.
My A10 is a drop down where i select 5 or 6 or 7 metre. If i select 5 it only hides rows 22 and 23.
I think the 2nd and 3rd lines marked red are stopping the rows from hiding!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then
Rows("22:40").Hidden = (Target.Value = "5 Metre")
Rows("24:40").Hidden = (Target.Value = "6 Metre")
Rows("26:40").Hidden = (Target.Value = "7 Metre")
End If
End Sub
VBA code that can highlight all columns except ones highlighted?
View 1 Replies View RelatedWithin a worksheet "Page_2" I would like VBA to perform following calculation: IF(COUNTIF(R:R;1);1;2)
Basically, look into column R of worksheet "Page_2" and look if there is in the column at least one number with the value 1, if there isn't show me value 2.
Depending on the value coming out of this function, VBA needs to hide worksheet "Page_3" if the value is 2 and unhide worksheet "Page_3" if the value is 1.
Here is the code which I'm using and that is not working.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.WorksheetFunction.CountIf(Range("R1:R5000"), 1) = 1 Then
Worksheets("Page_3").Visible = True
[Code]...
with a simple code that could:
If column K2:k466 is blank or says "No" then columns L & M are hidden. If it says "Yes" it is not hidden.
Also,
If Column N2:N466 is blank or says "No" then Columns O,P,Q,R are hidden. If it says "Yes" they are not hidden.
Finally,
If Column V2:V466 has a zip code (or number) then columns T,U,W,X,Y,Z,AA,AB,AC are present. If there is no value in any of V2:V466 then they are hidden. .
I got a worksheet here. I'd like to lock all the cell height and width using protected sheets function. I realized from time to time I have the need to hide them. How do I enable hiding sheets while maintaining cell integrity?
View 3 Replies View RelatedNeed the VBA script to hide/unhide specific columns within a worksheet.
View 9 Replies View RelatedFollowing is what I want to do:
Draw a line from the center of the first cell to the center of another cell.
i am tring to make any workbook i open when i writ in it, i want what i wrot to be in centerd
Private Sub Workbook_Open()
'*Center
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
With sh. Cells
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Next sh
End Sub ............
I have a 2010 excel workbook with several locked worksheet (to which I manage the PW). I and another staff member manage different section of the macro but the other staff member doesn't have access to the locked areas.
Is there a way I can encrypt the password within VBA so it's not visible to the other staff member?
Locking the VBAProject doesn't work as the other staff member has to be able to edit his VBA section.
Many staff run the macro (via a button) and don't need to access the Macro and don't have access to the protected sheets.
I understand excel isn't ideal with PW protection for people wanting to bypass the protection and this isn't an issue.
Hide Columns based on Date value in cell (Worksheet Change event)Looking for a worksheet_change event macro that will automatically hide columns based on a value in cell S3. S3 is a data validation pick list of months based on the 1st day of each (e.g. 1/1/2014, 2/1/2014, 3/1/2014, etc.). I have date columns in row 6 from columns T through AQ. These values are 1/1/2014 (T6), 2/1/2104 (U6), 3/1/2014 (V6)....12/1/2015 (AQ6). I would like to hide columns that have a date in row 6 (T6:AQ6) that is LESS THAN (<) the date in S3 after the cell is value is changed.
View 2 Replies View RelatedI used the code in the link for "Create Worksheet Index" you referenced and it works great. Is there a way to have the Index and the "back to Index" links appear in separate stationary windows on the left side of the spreadsheets?
View 5 Replies View RelatedI am filtering the data displayed in a chart by hiding columns. I would also like to filter the X-Axis labels by hiding columns. If I do this manually I have no problems but when I run the following macro the chart gives a reference error for the X-axis labels.
Sub ShowA2()
Application. ScreenUpdating = False
num = Sheets.Count
Sheets("X-Axis").Activate
Range(Columns(1), Columns(256)).Select
Selection.EntireColumn.Hidden = False
For a = 1 To 5
Sheets(num - a).Activate
If ActiveSheet.Name = "A2 Data" Then
Columns("A:Q").Select
Range("A10").Activate
Selection.EntireColumn.Hidden = False
Sheets("X-Axis").Activate
Columns("A:E").Select......................
I need some code to scroll the worksheet top-left.
View 2 Replies View RelatedI am wondering if a block of code can be used rather than having to enter line by line as the following code is below? Also if the select is necessary?
Sub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+S
'
Range("N135:V135").Select
Selection.Sort Key1:=Range("N135"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("N142:V142").Select
Selection.Sort Key1:=Range("N142"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub
I have a VBA function that shows a user form. In the form, the user has to select a value from a combo box. Once they do that and click the submit button, I want to return to the next line in the function. So far I've been unable to accomplish this
View 1 Replies View RelatedI have 12 columns of numeric data in cells AA80 through AL80. Beginning with the cell on the far right (AL80), return the value if >0. Otherwise, proceed to the cell to the immediate left (AK80) and return the value if >0, otherwise proceed to the next left cell...all the way to AA80. I tried this by nesting IF functions, but have too many IF functions to nest. Lintcoop posted a similar thread in 2008 but with text data.
View 2 Replies View RelatedI am trying to find any way possible to freeze left side 3 columns and 3 right side visible columns on the screen. and the rest columns in between these freeze columns scrollable on left or right arrow keys as normal.
View 4 Replies View RelatedIs it possible to re-order entire columns based on cell values? For example, row A gives values of 1 thru 10 to the first 10 colums. I would like a macro that reorders the entire columns based on that value.
View 6 Replies View RelatedI need to write some code that will write a sum formula and include all the cells to the left of the active cell, however this range is variable. I suspect it would be something like:
ActiveCell.FormulaR1C1 = "=SUM(xlLeft)"
but this just enters the formula "SUM(xlLeft)".
I recently installed 'windows 7 ultimates' , and after i insalled Excel 2007 .. the columns start from right to lfet (..., C, B, A), I want to reverse it to start from left to right (A, B, C, ...), I don't know whether the new ystem 'windows 7 ultimates' has some effect on it to be modified like this. moreover, the language of system is English. so how to solve it
View 3 Replies View RelatedDoes anyone now if it's possible to freeze left and right hand columns simultaneously eg. cell C3 above and left AND cell DB3 above and right?
The columns on between would then scroll left or right, until the static column was reached?
I have a big table with a lot of data in it. I basically want to get rid of all of the empty cells, so that all the data that is there for the one person is all next to each other.
All the people's names are in a row for themselves so the empty cells would have to move to the left.