I have created this Excel schedule that is attached. The point of the schedule is to organize Jobs and Crew members. I have VBA code in, so when I calculate how long the job should take, the arrows next to the job will automatically extend. (This should all make sense if you take a look at the attachment.) The only problem is that my arrows do not extend the correct distance. In the attached file I have scheduled "James Lorenz" to do a job starting on tuesday, towards the bottom of the page I did my calculation that figures he should be on that job for 9.5 days. I would like the Arrow next to James' job to extend 9.5 days on the calender instead of 9.5 centimeters or whatever it is doing now.
I found this code for hiding an autofilter arrow for column 2. I would also like to hide the arrows for columns 35 through 50. Does anybody know how to do that? Thanks.
Private Sub Workbook_Open() 'hides all arrows except column 2 Dim c As Range Dim i As Integer i = Cells(1, 1).End(xlToRight).Column Application.ScreenUpdating = False For Each c In Range(Cells(1, 1), Cells(1, i)) If c.Column 25 Then c.AutoFilter Field:=c.Column, _ Visibledropdown:=False End If Next Application.ScreenUpdating = True End Sub
I've set up a filing system which saves sheets/ workbooks based on the value of a cell - Range("B1") Everything works great apart from when ThisFile String length exceeds 31 characters which you may know is the max useable character length for a sheet name - I had no idea! 8-0
Is there a way i can check if string length exceeds 31 characters then, if it does, shorten it to 31 characters?
My worksheet contains data with the reaction times on a psychological test. Each respondent in the test has 280 rows in my excel sheet.
The 'perfect' length of the row, is from A to M. When an error is made in the test, the length of the row will increase. So the error length can be A to AA.
For me it is important to analyse the error. So I would like to give a perfect row length, the value 1, and an error row length a value 2.
So, in conclusion:
If: Cell length = A1 - M1? --> Copy A1 B1 C1 (A B Cof that row) to Sheet3, and give D1 in sheet 3 the value 1
Cell length >= A1 - M1? --> Copy A1 B1 C1 (A B C of that row) to Sheet3, and give D1 in sheet 3 the value 2
I do a weekly report for my employer. We have our tabs conditionally formatted. We then insert the corresponding arrows to show a trend to the weekly variance. After the week is up I will delete a column and add a column to the end (making it a trended view) and move the arrows by selecting and dragging all of them into its respected week. I then go on to delete several arrows throughout the worksheet. For some reason my file continues to grow in size however I am only keeping a 12 week trend. The arrows are not deleting properly and are sitting in the background, where I cannot see them. I know this bc I did "find & Select" and chose selection pane. I was wondering how I can resolve this problem or maybe delete just certain columns of arrows (objects)? I had 61,000 arrows and shouldn't have more than a couple 1,000.
I need to analyse trends between a range of cells. The idea is to display an image of a triangle pointing up if the percentage between the current month and the previous is bigger, a triangle pointing down if the percentage has decreased or a rectangle if both months are the same. I've tried to build a userform to ask the user to input the range and then analyze the data...with no luck at all.
I can't find a way to re-size the name box (the one in the top left hand corner of a spreadsheet, to the left of the formula bar), or change the type size that this box uses.
I've looked through Excel help, but I can only find help on re-sizing toolbars and not the name box.
Morning all. I'm trying to use VBA to generate autoshape arrows to track changes in values.
Something allong the lines of Column B (Jans data) C (Febs Data) E (autoshape arrow, green up, for improvement, or red downwards for a worsening).
The problem I'm having is postioning my autoshapes. The only way I can do it at present is to keep all columns and rows a standard width, and position using multiples of those.
Is there anyway to set the autoshape to the cell height and width, and position it within the boundries of the cell? This way I don't have to worry about rewiting my code every time I change a cell width?
From the Excel Toolbar - Data/Validation - I'm successfully using a validation list [drop down arrow] to be able to choose from a list and have whatever value I choose entered into the cell. So far so good. Everything working fine.
Here's the thing though, the list I'm referencing is a column with 50 rows. Sometimes there are many items in the column - up to 50, and sometimes only 3 items depending on other variables in the spreadsheet.
Because the list is referencing the entire 50 rows in the column (only way I know how to do it), during times when the column has only 3 items (3 rows), the drop down still shows a bunch of blank spaces (like 47 of them - tons of white space with a scroll bar window that runs down beyond where one can see), which is awkward (strange looking).
How do I program the validation list to only show as many cells within a range that have actual values within the cell, or where <> "" ? Or, in other words, to leave all blank spaces found in the list = NOT SHOWN.
I have a table A-AP 4-499 (row 4 being the column headers and 5 being the first row of data).
I'd like to remove some of the filter drop-down arrows as they aren't needed for some column headers and they also look unsightly.
This code works to remove all of the arrows:
Sub HideArrows() Dim c As Range Dim i As Integer i = Cells(1, 1).End(xlToRight).Column Application.ScreenUpdating = False For Each c In Range(Cells(1, 1), Cells(1, i)) c.AutoFilter Field:=c.Column, visibledropdown:=False Next Application.ScreenUpdating = True End Sub
However, I want to only remove arrows in the following column headers: A, G, I, J, K, M, N, O, P. I want to keep the rest.
I now have 5 textboxes "on top" of one other (i.e. vertically arranged). I would like to - depending on which checkbox is checked - extend the top one all the way down and make the bottom four invisible. I'm pretty sure I can handle the second part:
I am trying to copy down a range of formulae using the resize function. Here's the code I have :-
Code: Dim no_of_transactions As Long no_of_transactions = Last_Row_of_data(main_workbook.Sheets("working").Range("g2")) main_workbook.Sheets("working").Range("w2:ak2").resize(no_of_transactions,1)
However I am told by the vba editor that I need an = sign ? The function Last_Row_of_data tells me the number of rows that I have.
I have a worksheet named Advisers with a range also named Advisers, the range is a list of names which is added or deleted from by use of a UserForm.
I have the following lines of - The first populates the worksheet and The second is supposed to resize the range Advisers accordingly but it gives a Run-time error I've tried the 2 examples below
= SUMIFS(E9:E1494,C9:C1494,1) This formula works ok. If I rename range E9:E1494 as "Col_1" and change the formula to =SUMIFS(Col_1,C9:C1494,1). I get #VALUE error. The range is formatted as number.
Also ...
If I delete some cells in a range, referring formulae are modified accordingly, but if I add cells in the range the formulae do not recognize the change
I am trying to make different colour arrows appear based on a set criteria, I am having issues with the hide/show amber part, it doesn't seem to be doing the "AND" part.
'Hide/Shows Green' Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value >= 0 Then ActiveSheet.Shapes("Arrow1").Visible = False Else ActiveSheet.Shapes("Arrow1").Visible = True End If 'Hide/show Red' If Range("A1").Value = 0 And Range("A1").Value
The sheet was working fine, then all of a sudden (i dont know what i have done) the up and down arrows (on my kayboard) wont work when the sheet is protected, when i unprotect the sheet they work fine, i can use left and right. i have checked the scroll lock isnt pressed/illuminated on my keyboard.
I'm trying to create a VBA macro that will compare two worksheets. If an item has "moved" then I want to draw an arrow on the new worksheet of where (the cell range) it was on the previous worksheet, to where it is now. Using Record Macro, I've noticed the coding looks like: ActiveSheet.Shapes.AddLine(276#, 60.75, 309.75, 60.75).Select
How do I make sense of these numerical values? Is there a way to input cell ranges? Is there anything besides drawing arrows I can represent this phyiscally? (as opposed to with values)
Is it possible to re-size a non-contiguous range? I'm guessing "no", and a Google trawl hasn't provided me with anything.
Here's what I'm trying to do:
dim mult_rng as range dim rng2 as range
set mult_rng = range("A1:B1,D1:E1") set rng2 = mult_rng.resize(rowsize:=10) That is, my original range is comprised of non-contiguous cells in the same row. When re-sizing, I'm trying to increase the number of rows, but leave the columns the same.
Like I said, my gut instinct says that this isn't possible using the 'resize' property. Can anyone think of another method to use? My constraints are that the original mult_rng isn't always the same (and isn't always non-contiguous).
I am looking to show Month Wise Trend Up/Down/Nuetral Arrows for the Achievement % for each month.
I want to show the Increase or Decrease trend of the % in the next month.
I have Baseline figures (count) and i have count of Mar, Apr, May months. (Column A)
I have calculated the Achievement % by 100%-(Actual/Target) (Column D, G, J for Mar, Apr, May Months)
I want to show the Increase or Decrease Trend Up/Down/Nuetral buttons either by the Achievement % or by the Total Incidents Each month compared to the Baseline Figures (Column A).
I tried to use Icons Set in Conditional Formatting but i was not able to do that.
I have a table with a filter applied. I don't want all of the column headers to be filtered because the data in those column is not suitable filter criteria. Is there anyway I can remove the individual arrows on the right hand side of the cells in question?
Lets say i type for now... A1 = USA B1 = Philippines
and then later A1 = dog B1 = cat
Is there a way that the width would automatically adjust even as I change the values of the given cells; meaning, if a word is long, the width will automatically adjust "longer", if a word is short, then it will automatically adjust "shorter".
I know how the "AutoFit Column Width" works but I don't want to press that every time my values change (words becoming shorter or longer).
I finally have the merged cells resizing the way I need, however it seems to lock the cell after the process not allowing it to be edited again until I unlock the sheet. below is the current code I am using
1) Is it possible to write a macro that will resize fonts in a chart (axes, text boxes) to specific sizes?
2) I usually copy chart sheets and paste them into Publisher but I have to resize them because they are huge when pasted. I would like to create a toolbar command that will take the selected chart sheet (not just a chart in a worksheet) and resize it and its components (part 1) to specific dimensions, then copy it as a picture so that I can simply go to Publisher and paste the chart after pressing said button in Excel.
