Fill Range Down N Cells & Increment By X
Aug 30, 2008
I have been frustrated trying figure out what I would assume is actually a pretty simple solution. All I am trying to do is grab a set of cells and repeat them down the column a set number of times. The 2 forms of this are discribed below.
A: I have a set of numbers from A1 to A51 I want to repeate those numbers down the columns 84 times.
B: In addition to this I need to have the cells from B1 to B51 Repeat 84 times but with an increment of 200 each time. So I would have say 1 in B1 - B51 and in B52 - B102 it would turn into 201 and so on and so forth.
View 5 Replies
ADVERTISEMENT
Dec 17, 2012
I have items in a column like below:
50
50
50
50
What I would like to be able to do is highlight the four 50's and fill down, but I would like for it to increment and paste the next four filled like this:
51
51
51
51
Then below that the next four filled like this:
52
52
52
52
If its a macro that'll be required I'd like to to be able to change the number of rows to be repeated (4 in this case, but could change).
View 4 Replies
View Related
Jun 14, 2013
I have a workbook that has a few data sheets and a summary sheet. On this summary sheet I have to grab data from the data sheets which is in the same row number but different column (always 5 to the right of the previous one).
Eg: Person's Name is in Row 10, Col E (E10), the next name is in J10, then O10, etc. This carries on past Column Z. For each person there is a bunch of other data which is in the same format (set row but 5 over for column).
Since row stays the same i thought i could absolute reference that and then leave column as relative and drag down. This works but only if I drag to the right (across columns) and only if i need to increment by 1.
View 2 Replies
View Related
Apr 28, 2014
I have data in several rows whereby my column D looks like this:
FebtReport14_01.0000
FebtReport14_02.0000
FebtReport14_03.0000
FebtReport14_04.0000
FebtReport14_05.0000
Throughout the week, additional data is added to the rows, thus creating blank cells within this D Column:
FebtReport14_01.0000
FebtReport14_02.0000
FebtReport14_03.0000
FebtReport14_04.0000
FebtReport14_05.0000
Is there a macro i can run which will re increment only the blank cells to look something like this?"
FebtReport14_01.0000
FebtReport14_02.0000
FebtReport14_03.0000
FebtReport14_03.1000
FebtReport14_04.0000
FebtReport14_04.1000
FebtReport14_04.2000
FebtReport14_04.3000
FebtReport14_05.0000
Also , I will be adding new data quite often, in which newer rows may need to be added in between: ie:
from this
FebtReport14_04.0000
FebtReport14_04.1000
to something like this:
FebtReport14_04.0000
FebtReport14_04.0100
FebtReport14_04.0200
FebtReport14_04.1000
View 5 Replies
View Related
May 22, 2008
When I have a text field, such as 123 Main Street, Suite 456 and I copy it down, I get
123 Main Street, Suite 456
123 Main Street, Suite 457
123 Main Street, Suite 458
What is this feature called, and how do I turn it off?
View 2 Replies
View Related
Mar 29, 2014
I have items in a column like below:
Line (A1) asdfasdf
Line (A2) adsfadsf
Line (A3) asdfasdf
What I would like to be able to do is highlight the three columns and fill down, but I would like for it to increment and paste the next three lines filled like this:
Line (A2) asdfasdf
Line (A3) adsfadsf
Line (A4) asdfasdf
Then below that the next three lines filled like this:
Line (A3) asdfasdf
Line (A4) adsfadsf
Line (A5) asdfasdf
The (A1, A2, etc.) are cell ranges and already contain the concatenate function that pulls data from a different location. The problem I am having is when I
highlight and fill down, it doesn't increment the cell by +1 (Ex. A1 beomes A2) but instead by +3 (A1 becomes A4) the number of lines highlighted.
View 8 Replies
View Related
Jul 30, 2013
I have got the following problem. I have got a table which looks like this:
=Time!A1
=Open!A1
=max!A1
=min!A1
=Close!A1
When I mark the selected cells and scroll down using the autofill option I get this:
=Time!A1
=Open!A1
=max!A1
=min!A1
=Close!A1
=Time!A6
=Open!A6
=max!A6
=min!A6
=Close!A6
Why does it give A6? I want A2 instead of A6 because I want to create a table from A1 to A500 but without these jumps from A1 to A6.
View 5 Replies
View Related
Feb 7, 2013
I am using Excel 2010 and basically i am trying to fill a range of cell with a green color if any value was enter in a specific cells. Example: I would like to fill range: A10:c13 with a green color (regardless of the cells content in this range) if a value was entered in cell C10 or C11 or C12 or C13.
I've tried conditional formatting but unfortunately I'll have to apply formatting for every cell and for a range of over hundred cells is not efficient.
View 7 Replies
View Related
Aug 21, 2013
I would like to get some code that will fill blanks in a range.
I have not used the board facilities properly. In the following table I need each blank cell in column B to be filled with the text from the preceding cell that has text in it.
i.e. B2 to be populated with "text1". Cells B4:B6 to be populated with "text2".
The code needs to know that row 9 is the last row to populate.
A
B
1
head
text1
[Code] ........
View 8 Replies
View Related
Dec 7, 2006
I have a set of integers in the ranges of: B11 to B40, C11 to C40, D11 to D40.
Occasionally the values in the cells are deleted and thus left as a "blank" cell.
I wish to create a macro that will find these blank cells in these ranges and replace them with a simple 0.
View 4 Replies
View Related
Dec 5, 2013
Code:
ActiveSheet.Range("A1:G40").Interior.ColourIndex = 6299648
I am trying to fill the above range of cells with a colour, but keep getting an error message.
View 3 Replies
View Related
May 7, 2008
How do I make this to work with dynamic range instead running for complete column? For example: Run this code until last active cell in Column A. Column A will always has value so if cell A25 is last active cell in range then this code should stop executing for column R25. So execution of this code would depend on active cell in column A.
Columns("R:R").Select
Dim Cell As Range
For Each Cell In Selection.Cells
If Cell.Value = True Then ' if true do nothing
Cell.Value = ""
ElseIf Cell.Value = False Then ' if false change to Null
Cell.Value = "Null"
End If
Next
View 4 Replies
View Related
Feb 13, 2013
I require a VBA code to fill Zero for empty cell in seceleted Range. Range will be select by Mouse.
I try following Code.
But It will not sucessed.
HTML Code:
Sub Zero()
Dim ws As Worksheet
Dim Specifiedrange As Range
Dim Rng As Range
[Code]....
View 5 Replies
View Related
Aug 12, 2006
I'm trying to create an excel spreadsheet to manage personnel and various ongoing projects, what I'm trying to do is create a custom box with a selection of options (5) that will automaticaly fill a selected range of cells with a colour and 'merged' text that was selected from the custom box.
View 7 Replies
View Related
Nov 26, 2012
I am searching for the best way to loop thru col A and highlite cells with a fill color of green. I then wish to copy and paste these cells to another WS.
View 5 Replies
View Related
Mar 7, 2008
Arised from my earlier posting in Populate ComboBox With Specific Sheet Column Range. I have the following working code below, but am having trouble finding coding examples to select specific cells from the selected row (that was found by selecting a ComboBox value)and update TextBoxes with those individual values after the UserForm has been initialized (the bold "GREEN" comment in the code below). I have been able to find plenty of references to update TextBox values to Cells, but that doesn't do me much good in this application since the User needs to verify the old data in these cells before updating them using the UserForm TextBoxes.
I was toying around with several different variations of code (none of which worked properly), so I left it out for clarity of my working code. I'll post up this non-working code as needed, because I really wanted a fresh answer...not what I was trying to do. The attached file should be sufficient to see what's going on
Private Sub UserForm_Initialize()
With Sheets("SR Information")
.Range("A2", .Cells(Rows.Count, "A").End(xlUp)).Name = "MyRange"
End With
SRnumber.RowSource = "MyRange"
End Sub
Private Sub SRnumber_Change()
Dim ServiceRequestNumber As String
Dim c As Range
Dim rngG As Range
Sheets("SR Information").Select
With Selection
ServiceRequestNumber = SRnumber.Value
For Each c In Intersect(ActiveSheet.UsedRange, Columns("a"))
If c = ServiceRequestNumber Then..................
View 4 Replies
View Related
Nov 7, 2008
how to enter data in non-adjacent cells using a fill command.
Here is what I am trying to do:
in the column, I am holding ctrl button to select every 10th cell down the sheet. I need to enter a date in every selected cell that is exactly 7 days apart, i.e., 11/7/08 then 11/14/08 then 11/21/08, etc.... but no other dates or data.
I have tried to figure out a way to do this other than manually, but am confounded.
View 9 Replies
View Related
Feb 13, 2014
I have a list of information contained in a massive spreadsheet. I am trying to create a counter that increments starting with 1 up to X between two date ranges. The increment counter should start with 1 for the easiest date and increment up X up to the last item in the list. The list contains tasks names with some tasks have dates but there are some tasks that don't have dates (blank cells).
View 6 Replies
View Related
Jan 10, 2007
I am using this code to create onsheet user form and populate a spreadsheet db
'Step 1 : store the information in every second row in DBsheet
Set rngDataOut = Worksheets("Database"). Range("A65536").End(xlUp).Offset(2, 0)
'Step 2 : Post the current results
rngDataOut.Range("A1") = Now()
rngDataOut.Range("B1") = Range("B1")
rngDataOut.Range("C1") = Range("B2")
rngDataOut.Range("D1") = Range("B3")
rngDataOut.Range("E1") = Range("B4")
'Step 3 : Clear current Selection
Range("B1") = ""
Range("B2") = ""
Range("B3") = ""
Range("B4") = ""
my question is how could I modify it with for-next loop because the form will be with more than 50 entries.
View 2 Replies
View Related
Feb 19, 2007
I'm trying to download stock price history inside a loop and move the destination range over one column for each new symbol. I want to keep moving the results from the query over one column each time it loops through....
View 4 Replies
View Related
Apr 20, 2013
The question that I have is as follows:
For i = 17 To FinalRow Step 14
'Select cells to examine based on For/Next loop Step...
Cells(i, 4).Activate
'Check for "value"...
If ActiveCell = Press Then
[Code]...
The "Cells(i, 4).Activate" statement steps my search criteria forward by the value of "i." The last thing that I want to do with this macro is to increment the value of A4, "Range ("A4").Select" and D6, "Range ("D6").Select" by the value of "i."
View 9 Replies
View Related
Mar 1, 2014
I am working on a model for a school project. Time is in ColA, the number of events is in ColB.
Each event requires one person to work before and after the event. For example, if we assume that I need one person 30 min before the event, one during the event and one 15 min after the event - ColC shows the number of staff required. I would need a formula to calculate ColC. Basically I want excel to add the values of the rows above and below a value if it is within a specified time range
It gets a little bit more complicated unfortunately, the time requirements need to be dynamic - so one day it is 30 min before the event, but another day it could only be 15 min before but 30 min after the event etc.
I was trying to do this with a SUMIF formulas, but couldn't get it to work.
Col A
Col B
Col C
7:00:00 AM
0
1
[Code] .........
View 3 Replies
View Related
Jan 5, 2008
I need to check the result of the difference between 2 cells in the same column. But It needs to be done with an increment of 2 e.g. A2-A1 then A4-A3 and so on.
View 5 Replies
View Related
May 22, 2014
I'm trying to use the following loop to increment the column width of a range of columns thus:
Code:
NewWidth = 0
WidthIncrement = 0.5
For MyCount = 1 To 26
NewWidth = NewWidth + WidthIncrement
Cells(1, MyCount).EntireColumn.ColumnWidth = NewWidth
Next
If I set WidthIncrement to be an integer value, the code works correctly. If, however, I make it something like 0.1, all the column widths that the loop acts on are set to 0. I suspect it's something to do with how I'm declaring the NewWidth and WidthIncrement variables - they're currently set to Double. I know that I can have decimal values for column widths (e.g. 8.43)
View 5 Replies
View Related
May 26, 2008
In my data validation I have the following formula as the Source: =INDIRECT(SUBSTITUTE($F$2," ","_")). I want to be able to copy the cell and paste it into another cell and have the formula update to reference the new cell. Currently the validation is for cell G2 and references F2. I want to be able to copy G2 and paste it in G3-G6 having the formula update so it refrences F3-F6.
View 3 Replies
View Related
Jul 25, 2014
I am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
View 1 Replies
View Related
Jan 27, 2010
I would like to copy a large selection of hyperlniks down a column of 200 plus cells and would the hyperlink to increment as I drag the cells downwards.
Is there a simple way to copy and paste down a large selection of cells, so that I do not have to edit each hyperlink individually
Have enclosed example.
View 4 Replies
View Related
Aug 13, 2009
I've got a column of IP addresses and want to increment the last octet. Starting with IP block in column A, I select those and drag to auto-fill to the right. Some cells increment and others don't. I'm using Excel 2003 on Windows XP.
View 3 Replies
View Related
Jul 10, 2013
In Column A, each cell up to A2197 has had data manually entered. A2194 has data AD453302085PIND, A2195 has data AD453302086PIND, A2196 has data AD453302087PIND.
Following on from A2197, I need to increment each cell by one number. I have modified the following solutions which were provided yesterday ="AD"&RIGHT(LEFT(A2196,5),3)+1&"PIND" and
=LEFT(A2196,2)&123+ROW(A2196)&RIGHT(A2196,3).
View 6 Replies
View Related
Jun 6, 2014
In my spreadsheet, each row of data in Column B starts with 3 numerics (e.g. 001) followed by some text. For example:
Cell B2 contains '001 - Text for this cell'
Cell B3 contains '002 - Different Text for this cell',
Cell B4 contains '003 - Different Text for this cell', etc.
I have hundreds of rows which follow this format.
I have had to insert several rows in my spreadsheet in between existing rows which has thrown off the numbering in the first three positions of my Column B cells.
Is there any way to update the data in Column B so the text data in each cell is retained but the first 3 numeric values are updated and again sequential?
View 3 Replies
View Related
