I am trying to have a Number Line representing age of retirement.
I want to have a cursor on it Positioned on the number line which will move to desired age as I change the value of Cell representing Age.
Can this be done on Excel. I think so. Using User form or any thing like that will be ok as I need it for presenting a report.
I have a line of data (say from B6 - S6) in cell S6, when i put in the word 'complete' i want the whole line of data to move to say line 34 - clearing line B6
View 5 Replies View RelatedIm looking to use this code to move the selected rows of a workbook over to a new worksheet in the sameworkbook. It works fine however for some reason it pastes the row over the last row.
how to modify it so it pastes the row on the first empty row?
Sub MoveSelectedRows()
Application.ScreenUpdating = False
Dim strSheetName, strCellAddress As String
strSheetName = ActiveSheet.Name
strCellAddress = ActiveCell.Address(False, False)
Rows(ActiveCell.Row).Cut
Sheets("Closed Projects").Select 'Change sheet name to whatever consolidated tab name is.
Range("A" & Range("A65536").End(xlUp).Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & ActiveCell.Row).Select
Sheets(strSheetName).Select
Range(strCellAddress).Select
Rows(ActiveCell.Row).Delete
Application.ScreenUpdating = True
End Sub
Also, as a side note, how do I put a prompt in so that once I press the button to move the row the user is prompted asking if they are sure they want to move the row? 'Are you sure you wish to move row X?' Yes/No.
If yes - run rest of script
If no - abort script
Is there a way to display only the current month and the past 11 months in a Line Chart in Excel? So if I was to print Jan 2008 Excel graph, it would only display Feb 2007 - Jan 2008 data charting.
The spreadsheet of the data contains data for Jan 2005 - Jan 2008 so far, but only the current month with the past 11 months should display in the line chart depending on what is the current month.
I have been given a spreadsheet to fix as the user says the charts/graphs aren't adding the new data.
But when I looked closer at the workbook the whole thing just seemed a little wrong to me
Please see the workbook attached.
All the data is entered into the sheet 'Data Entry'.
Then on the 'Data' sheet it should pull thru some key values but half of it isn't done and it isn't very smart.
I have created a 'TEST Data' sheet so I could start messing with it.
I was going to pull the data thru from 'Data Entry' into the 'TEST Data' sheet using a Hlookup to make sure it worked before i messd with the actual 'Data' sheet.
The problem I am having is moving/copying the Hlookup across.
On the 'TEST data' sheet the Hlookup is as follows and is correct:
=HLOOKUP($A$5,'Data Entry'!$C$4:$M$472,2,FALSE)
But the next set of (Week 2) is not in the 2nd or even 3rd row of the array, its in row 11......... thats 9 rows down from the original.
Moving on the data i want to bring back is always 9 more than the last so the Hlookups should look like:
=HLOOKUP($A$5,'Data Entry'!$C$4:$M$472,11,FALSE)
=HLOOKUP($A$5,'Data Entry'!$C$4:$M$472,20,FALSE)
=HLOOKUP($A$5,'Data Entry'!$C$4:$M$472,29,FALSE)
etc etc
Can any of you guys out there help on how I can do this or it may not even be a Hlookup but something even smarter!!
I'm using Excel 2002 and looking for a way to get rid of the red comment indicator in entirety. While I get that it's not possible there appears to be a workaround which I took off the Contextures website.
Sub RemoveIndicatorShapes()
Dim ws As Worksheet
Dim shp As Shape
Set ws = ActiveSheet
For Each shp In ws.Shapes
If Not shp.TopLeftCell.Comment Is Nothing Then
If shp.AutoShapeType = _
msoShapeRightTriangle Then
shp.Delete
End If
End If
Next shp
End Sub
I have a sheet with work tasks on. Column I shows the completion date for each project. In column J I would like an automated response linked to todays date. Can we use row 2 as our example? So I need in this case cell J2 to show the following:
- If todays date is more than 5 days before the completion date (in cell I2) I would like the cell J2 to show "IN PROGRESS"
- If todays date is less than 5 days before the completion date (in cell I2) I would like the cell J2 to show "AT RISK"
I have a table with employees' persinal data including birthdays. My aim is to insert an indicating field that would show whether the birthday is gonna come soon.
It shold have several states:
number of days left if the birthday is current or next month
"not soon enough" if the birthday will come in more than 2 months (later than next month);
"happy birthday" if it is today;
"the past weekend" if it was the past weekend and it is Monday today.
What can you suggest?
I have a worksheet that has all weekday dates in column 1 and values in column 2. I want to create a 30-day moving average based on the last (non-zero) value in the column 2.
Since every month has a different amount of days, I want it to search the date that has the last value (since I don't get a chance to update it daily) and go back thirsty days from that date and give an average of all the column 2 values skipping and values that are null or zero.
I have a macro that takes quite some time to run, 3-4 minutes is it possible to have a % progress indicator in the status bar to let me know how much of the process has been completed so far?
View 5 Replies View RelatedI am using the following to import a text file w/ ~86000 lines into Excel: ...
View 9 Replies View RelatedIm trying to implement a progress indicator into my spreadsheet. I used John Waltenbach book, but Im not able to get it up and running.
Basically what Ive got so far is a user form which appears directly when the spreadsheet is open....
I don't know if this can be done. When i put on an autofilter in a spreadsheet, and I filter on a particular column, the autofilter arrow is highlighted in blue to show that I have filtered this column. Is there anyway I can change the colour of this indicator from blue to say red?
View 3 Replies View RelatedI work for a farm where we receive fresh produce from harvesters daily. I created a workbook with worksheets(ws) for my daily inventory counts according to product type and separate worksheets for each day of the week showing the orders shipping for that particular day.
I collaborated the data from the inventory count ws and the ws for each day into one ws called Harvest. I am trying to figure out how to keep a running total of what needs to be harvested vs. what is in inventory so that I can show my harvesters what new product is needed to fill orders for today forward, after subtracting what is available in inventory, and showing the amount shipped for past days . Another part that's throwing me is that harvest brings in new product daily and sometimes they bring in a surplus.
Here is an example:
Lets say today is Tuesday and my Inventory ws shows we have 50 kale in inventory - cell D10
Monday ws shows an order for 50 kale, cell D14
Tuesday ws shows an order for 100 kale, cell D14
Wednesday ws shows an order for 100 kale, cell D14
Thursday ws shows an order for 100 kale, cell D14
On my Harvest ws, Since today is Tuesday, how would I keep the Monday cell showing 50 kale as the amount shipped on Monday, Tuesday cell showing we need 50 kale to be harvested to add to the 50 in inventory and fill the order of 100, Wednesday cell showing that we need 100 kale harvested, and Thursday showing that we need 100 kale harvested?
If Harvest brings in a surplus of 100 kale on Tuesday so we have 100 kale in inventory on Wednesday how do I get the Harvest ws to now show that Monday cell should still show 50 kale shipped, Tuesday cell should show 100 kale shipped, Wednesday cell should show that we don't need any kale harvested since we are using the 100 surplus in inventory, Thursday cell should show we need 100 kale harvested.
I've a long list of value with indicator which I need to compare with an entry after which it need to return a text indicator. I'm using IF and MATCH function.
Following is the code I use:
=(IF(MATCH(C1,$D$5:$D$29,0)<=5,$E$9,IF(MATCH(C1,$D$5:$D$29,0)<=10,$E$14,IF(MATCH(C1,$D$5:$D$29,0)<=1 5,$E$19,IF(MATCH(C1,$D$5:$D$29,0)<=20,$E$24,IF(MATCH(C1,$D$5:$D$29,0)<=25,"Not Found"))))))
I've attached an excel file with an sample. Btw, Is there anyway I can omit the length of IF & MATCH function by using other function.
I want to put progress indicator for data input in Excel.
The data input is in cell A1 until A10, and B1 until B10.
So, I need two progress indicator (for cell A & B).
I have an excel work book with 6 tabs. I would like to have Excel move an entire row from one tab to another tab (removing the row and inserting it in the other tab). I.e. Example I have a tab with items that are marked as "Open Actions" so if I were to change the drop down to close. Excel would move that entire row of actions to the tab with the "closed actions" and insert into the next available row. Now if someone were to come back at a later date say no it should be reopened than I would change the drop down to open and excel would move that row back to the open actions tab into next available row. I tried a PIVOT table and no good I played with few macro and not.
View 5 Replies View RelatedMy problem is I have a sheet thats structured like this:
Purchase # Item AMT
3630130685 10 20,503.04
3630130685 20 12,814.40
I need to add all items of a po to line#1.. is there a easy way to do this??
I got three columns. The left one is the day number. The middle column is for indicator variables 1 or 0. This is suppose to be chosen by the solver function. I want the third column to show the DIFFERENCE between the "chosen" days. This can be better explained through an example:.......
(extra information: the indicator values are chosen by solver based on several criteria not stated here, but this particular part of the sheet is suppose to refrain the chosen days to have differences between them larger or smaller than a given value.
I have a macro that calls 3 other procedures during its run. I have the positon set in the UpdateIndicator sub
With ProgressIndicator
.Top = Application.Top + 300
.Left = Application.Left + 400
end with
and the Userform StartUpPosition property set to 0 - Manual (though I did experiment with the other settings as well.
The issue is that when the series of subs are running, the Indicator jumps and shifts (by 10 or so pixels down and right) and sometimes blinks off completely as each new sub is being called and subsequently returns to the initial macro.
It is accurate and does what it's supposed to do, I just find it annoying and that it probably looks a bit unprofessional (and unstable) to the eyes of some coworkers who use the macro as well.
I work for a localizer of text heavy software. Our developers normally use a converter to pull text out of a file and insert it into the program. This text is normally input into an Excel file since it has to correspond with files/locations in the program.
Since the space on the screen of the program is limited, we often face character limits when inputting text into Excel. Now, one cell might hold up to 255 characters, and I could restrict that with data validation, but within one cell I need to restrict each line (with a hard return) to 30 characters to fit on the screen.
So for example I have a row of cells that look like: ....
I would like to add a visual indicator to my sheet that checks if a specific file exists in the same directory as the active workbook.
The filename format would look like: "something.invoice.(mm-dd-yyyy).xlsm"
The macro would check the =today date, calculate the previous month, and check to see if a file named that exists.
is it possible to show progress indicator if macro execution take some considerable time say more than 10 seconds?
View 2 Replies View RelatedI am trying to count the number of commas in each line of my Excel file. So I first decided to count the total number of rows and then count the number of commas in each row. I wrote this code. But I keep getting an error saying Next without for.
Sub Give_The_Last_Row()
Selection.SpecialCells(xlCellTypeLastCell).Select
LastRow = ActiveCell.Row
[Code]....
1) This spreadsheet has 7 main sheets, UK, IBE, FIN, BENE, FRA.
2) Each main sheet has 8 sub sheets i.e UK CAT A to H, IBE CAT A to H etc.
3) col BO on the main sheets will have CAT A,B to H and can contain some other text but i'm only concerned about the CAT. Also Cat may be wrote CAT, cat or Cat etc
At the moment i'm using a loop, I had some code from another thread yesterday but this code creates new sheets if it can not find a sheet named the same
I will need to run this as 1 i.e all 7 together or 1 at a time.
I'm trying to do this in VBA.
I open a text file for input, and I want to jump to a certain line # in that text file. The difficult part is that each line has variable length, so I can't use the Seek function.
The data look like this:
1,2,3,4
555,666,777,888
99,00,11,22
... etc.
I am making a content database and need to count the number of words in each cell...
I know you can count them with
=IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2,” “,””))+1)
but the the cells have line breaks so this formula won't work
I've understood that since there is a space before the new line, the formula will not recognise the space and therefore not recognise a new word.
I am getting this error and where th If not starts its is in red showing that is where the issue is:
HTML Code:
Sub RemoveRows()
Dim LR As Long, i As Long
Dim ws As Worksheet
Set ws = Worksheets("100 Airports")
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 10 Step -1
[Code] .....
My company has an excel file that has our new customer's information (colum A & B are first & last name;Column C is customer email; Colum D is cutomer phone, ect...)
once that information has been entered we have another excel file that will load all of a customer's information, and then be pasted into a welcome letter into MS Word for their confirmation & emailed to them
The problem I'm running into, Is that I do not know how to populate my nex excel sheet with the info I want only from a specific line.
I would like to enter a line / row number (for example '6') and than have excel go to that file & copy/paste the name, phone, email, company name, ect. into my new excel sheet
I have one that works already, but the previous owner PW protected it & hid his formulas/macros, so I'm in a dead end now...
The following block of code is evaluating the term in the array, if it exists and the value in col. M is a non integer, (which what I am testing for are fractions) then format the cell to a fraction number format.
That is ok, except it is changing the numberformat on text terms. I want it only to change the numberformat on numeric values.
I added the function Isnumeric to this line:
Isnumeric(cells(i, "M").value) Int(cells(i, "M").value)
which I thought would only evaluate numeric cells only, but this was unsuccessful.
Original Code: Unedited.
For i = 4 To LRowf
For Each Item In Array("HAT", "FTWR", "BOOT", "BOOTG", "BOOTY", "HWRISR", "HWBLTS")
On Error Resume Next
If (Cells(i, "F").Value = Item Or Cells(i, "G").Value = Item) And _
Cells(i, "M").Value Int(Cells(i, "M").Value) Then
Cells(i, "M").NumberFormat = "# ?/?"
On Error GoTo 0
Exit For
'End If
End If
Next Item
Next i