Is it possible for a macro to enter the number that is in Range("SYear") into A4, fill that number down 30 rows (31 total A4-A34), then add 1 to the number and put in the next 31 cells..repeat untill the number = Range("EYear"). For example if SYear = 2010 and EYear = 2012, I need 2010 in A4:A34, 2011 in A35:A65, & 2012 in A66:A96.
View 4 RepliesThis is a spreadsheet for a real estate office. The boss gave me a spreadsheet that he created to give a seller an idea how much money he will walk away with at closing. The spreadsheet includes all of the pertinate numbers but there is one item that he would like to have filled in automatically. When selling a house, you use a title service that charges a fee based on the price of the house. So, for example, If the house sells for $0 to $50,000, then let's say the fee is $112. If the house sells for $50,000 to $60,000, then the fee is $118. If the house sells for $60,000 to $70,000, then the fee is $125, and so on up to 1.5 million.
The boss' spreadsheet includes 5 different selling price scenarios, which I guess doesn't matter since you do the first one and the rest follow the same pattern.
So how do I automatically fill in a cell based on how one number falls within a range of other numbers? The fee schedule will be within the same spreadsheet, if that matters.
Ideally, I think they should be separate files, but this will be used in various locations as different realtors take it home or use it on their laptops.
I have on the first tab a screen where you can fill in the name of the .doc or .pdf file.
That works fine, but now I would like that when I fill in a number and click on test, it opens te .doc and .pdf file that is attached for that number.
If you take a look at the pdf file you will see a second and a third tab.
First column is the number they need to fill in and the second column is the name of the .doc or .pdf that needs to be opened with that specific number.
How to link it and open both files for that specific number.
But not every number has a .doc as well as a .pdf.
I have a range of values that are not a constant length. I want a macro that will calculate the range and fill with a formula using the new range. In this example, I need a formula to look at the values in range f464:f471 and calculate the number of values greater than $1000. Column B is a salesman identifier. I can do this manually, but it takes me about 1/2 hour to complete. At every change in "B", I need to place this formula in the open, blank cell in "E" such as highlighted below.
week39
ABCDEF45939SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046039SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046139SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046239SCHTERR-WIEDEMANNDCCDIST-MUSCHANY0463 SCH Total 14042.2146439SCITERR-SULLIVANDCCDIST-MUSCHANY15587.1546539SCITERR-SULLIVANDCCDIST-MUSCHANY7217.2246639SCITERR-SULLIVANDCCDIST-MUSCHANY5316.6246739SCITERR-SULLIVANDCCDIST-MUSCHANY2720.6946839SCITERR-SULLIVANDCCDIST-MUSCHANY520.446939SCITERR-SULLIVANDCCDIST-MUSCHANY195.7147039SCITERR-SULLIVANDCCDIST-MUSCHANY047139SCITERR-SULLIVANDCCDIST-MUSCHANY0472 SCI Total 31557.7947339SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY4190.7147439SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY3219.7647539SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY3187.147639SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2209.3747739SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2132.7547839SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2034.56
Spreadsheet FormulasCellFormulaF463=SUBTOTAL(9,F435:F462)F472=SUBTOTAL(9,F464:F471)
Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4
I have a macro that selects a range of about 20 columns and fills down. It works fine on my smaller set of data, but when I use one that has about 40,000 rows I get the error:
FillDown Method of Range Class Failed
It fills down about 7,000 rows, then fillsdown the first cell of the next row, but leaves the others blank. The entire range (including the nonfilled cells) is still selected.
I am trying to create a macro to fill Sheet1 cells A1 through P1 down, and I would like it to be filled down based on the number in Sheet2 cell R1.
View 4 Replies View RelatedI need to fill multiple number series in the same column. Example:
Have
Want
1
1
[Code]....
When I type numbers in the cells from D4 to D14, E4 to E14 and so on, the particular cell should turn into "Green". All the the cells will remain "yellow" and blank until numbers are entered based on the daily cleaning of machines. When particular machine no is entered in to a cell cell, that cell should turn green(this shows that "service is done for that machine")
View 2 Replies View RelatedI need a macro to do the following
Assume A1 has 100 & B1 has 20
The macro should divide 100 by 20 & then fill 20 for number of times I get as the answer starting from B3 9 in this case its 5 times
E.g.: B3 , B4 , B5 , B6 , B7 should be filled with 20
If A1 has 200 & B1 has 50
B3, B4 , B5, B6 should be filled with 50
I have a control chart macro which is being used for patient doses of a medication. Right now my macro automatically fills columns D-N down to row 100. However, I would like it to stop at the last row of data entered in column A. I have attached the code related to the formulae a
J
Sub Control_Chart_1()
'
' Control_Chart_1 Macro
[Code]....
I am looking to use a VBA routine so when a Date is added in a cell and a number is in the cell below on running the routine I would like the Date to be filled by serial number to the cells to the right. So if D3 has a date in the cell say 03 July 2014 and E3 has the number 10 then to the right of D3 it fills the Date's 10 Cells to the right 03 July 2014 through to 13 July 2014.
Code:
Dates
03/07/2014
Amount
10
I would like to do conditional formatting...
Range (A1:Y192)
Turn the row number (identified in cell AC1) into RED fill.
I got the following loop that is very slow. The main way (I think) to speed it up is to avoid looking at all the 65000 cells. The columns used in the calculations have data varying from a few hundred cells up to (rarely) dozens of thousands. I assume it would be better if I could replace the 65500 with something indicating the "end" of the data in the column. Also, is there another way to do this process without using a loop?
I am trying to fill in a number of rows with array formula's in the adjucent cells. I use the loop because the number of rows depends on a selection of another parameter which sets the row number before calling the loop.
I am trying to insert formulas to my cells in different columns and then fill down the formulas as many rows as in the reference column. So far I have put my formulas in a macro but I seem to get problems with " and ' symbols. My macro looks like this:
Sheets("Sold Articles Database").Select
Range("U3").Formula = " =VLOOKUP(LEFT(K3,2),'Input Variables'!$A$48:$B$52,2,FALSE)"
Range("V3").Formula = " =VLOOKUP(K3,'Product datas'!$A$2:$C$10000,3,FALSE)"
Range("W3").Formula = " =VLOOKUP(K3,'Product datas'!$A$2:$D$10000,4,FALSE)"
[Code] ........
i want to fill down a column and instead of my formula changing from A6 to A7 i want it to change to B6.
View 9 Replies View RelatedI have a excel sheet of data numbers which blongs a packet of inventory where i found number series like this:
Start Range End Range Qty
2101200 2101499 300
I have to draw this onto a series like 2101200 then 2101201 then 2010202 etc.
but some time these numbers are in qty 30000 or more. I have questions
1- If any macro colud fill series suppose if write number in A2 and qty in B2 so it reads the qty of b2 and fill the series in A. If i write 1 in A2 and write 50 in B2 so the series should be auto fill 1 to 50.
My Second question is opposit of my above question.
2- if i have different number series in column a and i want them to be as start number in column b and end number in column c and qty in column d based like mentioned below example.
Series [b]Start Range End Range Qty
1 1 1 1
3 3 3 1
5 5 7 3
6
7
Starting in cell J2 and down up to J9 - I need to preset the following values:
3
3
7
7
11
11
15
15
Tried a few times but no success. What am I missing ?
Trying to find a way to fill in a color based on a specified value, up to the last entry.
ie. Within a range ("Range1")T1:T9, anywhere the value is "R" , fill the color red within column P (offset -5 columns to the left) up to the last entry.
..this is something I would like to initiate via button assignment using a VBA script.
eg:
Column..P,.....T
1..................B
2........Red.....R
3........Red.....T
4........Red.....R
5........Red.....V
6........Red.....M
7........Red.....R
8..................X
9..................X
I have a button that when I select it, I want it to insert a new column on a different worksheet, enter a numeral, and them fill down to the last column with data. I have the insertion and entering a numeral to work for the button but I can't get the numeral to fill down. I am working with Excel 7 and have posted the code that I have.
Private Sub StepFiveB_Click()
' AddClient Macro
Windows("Final.xlsx").Activate
[Code].....
I am trying to figure out how to auto-fill a range. I am summing a range from one tab to another, like A1:A5. I want to autofill the subsequent cells to begin with the cell that follows the last of the previous range, so it would autofill as A1:A5, A6:10, A11:15, etc. how to do this?
View 3 Replies View RelatedMy code is extremely slow because it writes a row by row. I am trying to use arrays to fill a range for a problem which is essentilly this:
Let x = 1 to 10
Let y = 1 to 10
Let R = f (z)
f (z) is calculated for various pairs of x and y (coordinates) such as:
(x1,y1), (x1,y2), (x1,y3)....(x10,y9), (x10,y10). I am looking for a code that will fill columns A' and 'B' with x and y in pairs (each x with each y) and values of R in column 'C'.
I am not even sure if my title matches my problem, but it was the best I could think of. Please take a look at the following code...
Sub Test()
Dim cell As Range
For Each cell In Range("F4", Range("F65536").End(xlUp))
cell.Offset(0, 3) = cell.Offset(0, 2)
Next cell
End Sub
I use similar codes quite a lot. The issue with this is that if I want to add columns or delete columns later on to my spreadsheet, I need to go and change all the previous codes so the columns match up.
My question is, how else can I write a code that has similar functions but with changing references in case I do add or delete columns? I understand that I can define ranges, but I am not sure how I can work with that within a macro.
I am almost sure there are different solutions to this problem, and I would appreciate and be interested in knowing all of them to put them in comparison.
I am kind of new to Excel programming and would like to know if there is a solution to my problem. What I need is to have a dropdown list (I know how to make this) then select an item from the drop down, then based on the name i select, Excel automatically fill up the rest of the cells.
For example, from the drop down list I select the company name then Excel automatically type the address, phone number, Fax number and the contact name of the company for me in corresponding cells. Is there a way to do this?
I have a set of data in column R, with an unknown number of rows that looks like this
Days Late
-28
150
3
16
41
.
.
.
and I have written a script to add an adjacent column "S". I want to fill column S with conditional values based on the value of column R, sorted into categories such as "On Time", "Less than One Month Late", etc. Here is what I have so far, it doesn't work:
I have a userform (uf_PaxInput) with a Combobox (cmb_flight_dest) which I am trying to populate from a worksheet range ("Dest") using the following code:
VB:
Sub LoadForm()
With uf_PaxInput.cmb_flight_dest
For Each Item In Range("Dest")
.AddItem
Next Item
End With
uf_PaxInput.Show
End Sub
The code seems to run okay however whent the form loads the combobox drops down to show only blank items to select. These blank items number them same number of items that are in my named range ("Dest").
The idea is to get for some range (size/location doesn't matter) to fill it's cell with numbers from 1 to number of cells, but it doesn't seem to work.
View 9 Replies View RelatedFunction BG(InRange As Range)
Range("InRange").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Function
That so far but not quite sure why that isnt working. I want to change the fill color with a UDF that all they do is select a Range and it changes those fill colors to whatever the Colorindex may be. I didnt find anything while searching the forums with this already.
I'm trying to fill a list with some hard values. When I use the macro recorder it adds formula="choice 1;choice 2; etc", these are all separate values in the list. However if I use this within a macro I only have one option with all three values combined.
View 4 Replies View RelatedI am trying to add the following code to fill in a certain range only if the range is blank. I can get it to fill in with the formula but it will still enter over if the cell already contains information.
Code:
Sub YTD()
Dim isempty As Boolean
isempty = True
For Each cell In Sheets("YTD%").Range("December").Cells
If cell.Value! = "" Then isempty = False
[Code] .......
I have to run reports every week where I show the number of days items are pending some sort of action. I use an autofill action in a macro but the number of rows changes every week. Here is the current section of my macro that I use. I just input a row number that I know will not exceed the number of rows required by my data (12900). What can I replace this with (Selection.AutoFill Destination:=Range("J2:J12900") so it will only fill the number of rows current filled in in either row I or K?
Range("J2").Select ActiveCell.FormulaR1C1 = "=R1C19-RC[-1]" Selection.AutoFill Destination:=Range("J2:J12900") Range("J1").Select Selection.Copy Columns("J:J").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseApplication.CutCopyMode = False
I have a date in cell s1 that I subtract from the date in row "I". I then copy the result of row J and paste it as values.