Autofill With Variables ...
Oct 15, 2007
I am having major trooble getting Autofill to do what I want it to - I have looked at pretty much every result on a search here, and as far as I can see, I can't find any problem with my code -
If FormShiftSet.BoxS.Value = True Then
SourceRange = "C" & x + 1
Range(SourceRange).Value = "S"
fillRange = "C" & x + 1 & ":" & "AX" & x + 1
Range(SourceRange).AutoFill Destination:=fillRange
End If
I want to do is fill the value "S" in all cells from "c" & x+1 to "ax" & x+1" - at the moment the code fills the first cell (SourceRange) with "S", but it gives the 'AutoFill method of Range class failed' error once it gets to the right point -although the variables are correctly referrenced after the error.
View 4 Replies
ADVERTISEMENT
Jan 9, 2008
I'm having a bit of a problem with syntax.
Sub Macro2()
Dim rng As Range
Dim rng_AutoFill As Range
Set rng = Range("A1:E1")
Set rng_AutoFill = rng. CurrentRegion
rng.AutoFill Destination:=Range(rng_AutoFill)
'rng.AutoFill Destination:=Range("A1:E36")
End Sub
If I replace rng.AutoFill Destination:=Range(rng_AutoFill) with the commented out version rng.AutoFill Destination:=Range("A1:E36") it works fine. I can select the rng_AutoFill range, I don't seem to be able to use it with a variable name.
View 6 Replies
View Related
Jan 14, 2014
I am trying to write some code that keeps throwing me the error message "Autofill method of range class failed". But I cant understand why, I think it may have something to with my range notation:
Code:
Sub SummariseSheets()
'collates individual client development data from consultant
'worksheets and compiles in one sheet on summary page
[Code]....
The error is in the "Selection.AutoFill Destination:=("C" & LR & ":C" & LR2), Type:=xlFillDefault" line, however I cant figure out why? The code essentially takes a section of data from multiple worksheets, then pastes it onto the summary page. It then adds the name of the sheet the data has come from into column C next to the relevant rows.
View 2 Replies
View Related
Feb 5, 2009
Unzip Code - Works without Variables, Breaks with Variables.... This has been driving me bananas...
I have the
View 2 Replies
View Related
Jul 27, 2006
Can a Function give two or more output variables. e.g.
Sub a()
x = 5
result = Y(x)
End Sub
Function Y (x As Integer) As Integer
Dim B
B = ... * x
Y = ... * B
this will give back Y as a result. But if I want to get 2 or more output variables (let's say I need to get also B into sub) from one function, how should I do that?
I need this because function works with large matrix and I want to extract some values appeared in between.
View 2 Replies
View Related
Apr 27, 2006
I'm trying to loop through a range in excel from access, checking where the titles (in Excel row 1) match with the fields (in a recordset in Access that is passed to the function) - and where they do, I want to dimension a variable to hold the column number - I'm not sure it's possible, but I'd be interested to know either way. The line I'm asking about is at the bottom of the code - the rest of the code is just to give context...
Sub ImportGeneric(rsImported As ADODB.Recordset, rsConfirmed As ADODB.Recordset)
Dim fd As FileDialog
Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Worksheet
Dim iFilePicked As Integer
Dim strFilePath As String
fd.Filters.clear
fd.Filters.Add "Excel files", "*.xls"
fd.ButtonName = "Select"
iFilePicked = fd.Show
If iFilePicked = -1 Then
strFilePath = fd.SelectedItems(1)
Else ..................
View 3 Replies
View Related
Jan 16, 2007
i have a "problem" to empty / reset my variables. I defined them as vHour1_KW2 where the "1" is from 1 to 21 and the "2" starts from 1 to 53. Now I want to erase all of this variables or to set the value of them to "0".
At moment I use following
vHour1_KW1 = 0
vHour1_KW2 = 0
...
vHour1_KW53 = 0
vHour2_KW1 = 0
vHour2_KW2 = 0
...
vHour2_KW53 = 0
until...............................
View 3 Replies
View Related
Nov 3, 2009
I am trying to simplify my data entry and I have this idea that I do not know how to tackle, but it would be nice to have it worked out.
I am looking for an autofill macro that will fill column B2 to Bxx with values from 1 to max value specified in cell B1. Lets say I know I have 5 trees I need to enter. I want to enter "5" in a cell as a reference, and everything else will be filled in automatically with press of the button.
To make things even more productive I would like to use value from cell A2 and replicate it through the range specified above in column A2:Axx.
Result: ....
View 6 Replies
View Related
Mar 13, 2009
I have this ActiveCell.Offset(0, -1).Range("A1").Select. Selection.AutoFill Destination:=ActiveCell.Range("A1:A6"). However I need to copy the value down, so it is identical to the Range("A1"). At the moment it adds one year to each value when copied down. e.g. A1 = 12.01.09. and it copies it down so I get 12.01.10, 12.01.11 etc... I want them all to be 12.01.09
View 3 Replies
View Related
Nov 13, 2009
I am looking for a way for my macro to select cells C4:T4 and then auto fill the formulas down to the last row with data. I have found suggestions when working with one cell to auto fill, but cant seem to find a way to do it with a range of cells
View 2 Replies
View Related
Dec 29, 2009
I have a Macro and I need to code it to Autofill a formula in column B with data from A and I need to set it to AutoFill to the last row. Probably basic but I've tried a couple posts previously and I am just not getting it. This is what I currently have. Sorry, I recorded it and have some additional steps in here I don't need.
View 6 Replies
View Related
Apr 23, 2009
I have a piece of code that includes the following line:
Selection.AutoFill Destination:=Range("B1:B9414")
I want it to always autofill to the last row that has content in it. I have been changing the value to a large number that I know is always more than the content of the worksheet which changes periodically, but I would rather it always only go to the last row that is not empty so I don't have to go back and delete those extra rows.
View 9 Replies
View Related
Dec 27, 2008
I have a spreadsheet with data where the number of rows change daily, in column D.
I have formula in column E which I autofill manually by double clicking on the cross thingy of the first cell.
However I'm trying to do it using VBA, but it always stops at a certain row and not where the column D data stops.
Below is the macro which stops autofilling at row E7762
Selection.AutoFill Destination:=Range("E3:E7762")
Is there a way to amend the VBA to autofill based where Column D data stops?
View 9 Replies
View Related
Apr 24, 2009
I have a piece of code that includes the following line:
Selection.AutoFill Destination:=Range("B1:B9414")
I want it to always autofill to the last row that has content in it. I have been changing the value to a large number that I know is always more than the content of the worksheet which changes periodically, but I would rather it always only go to the last row that is not empty so I don't have to go back and delete those extra rows.
View 9 Replies
View Related
Oct 24, 2008
I need to write a code that will autofill down column A until the next value is reached and will continue to fill down using the new value. This will continue until the last row in column B. I have attached a small sample file for clarification.
View 3 Replies
View Related
Jul 26, 2007
I have a macro that copies 3 cells and a range of cells from various sheets to a new sheet (See attached). I would like the rows in the first 3 columns to populate with the same values as in the first row. I only need to copy as far down as the last row that has been copied over. Problem is amount of data copied over each time will vary, and so will the start point on the spreadsheet as more data is copied across.
View 9 Replies
View Related
Jan 11, 2009
I have data in range A2:A20 (column) and I like to see all range data also in row B1:U1. Like B1 cell "=A2" in C1 cell "=A3",... (I like to set some kind of matrix with the same data in first raw and first column.) Is there any autofill solution to this problem. Copy and paste is not usefull, because range A2:A20 is editable and I need direct link to range B1:U1. Probabely in future I will need to set range like A1:A700 and autofill will be common solution to this setup.
View 2 Replies
View Related
Oct 22, 2013
I fill out this form everyday and sometimes need to type "S" and every time it fills in "Sampling Rate #1" because that's what it says in the same column higher up. Is it possible to turn this off somehow?
View 3 Replies
View Related
Jul 11, 2014
I want to change the following code so that it fills a row instead of a column
[Code] ......
This fills column "A" top down but I now would like to fill row "1" left to right.
View 2 Replies
View Related
Sep 17, 2008
I have code to fill down to the last row with data for 1 column Can I adapt the code to fill down more than 1 column. current code for 1 column
View 2 Replies
View Related
Dec 29, 2008
I am working on automating our truck payment system. When the macro copies the data over to the output printout sheet, it will only copy the information once, even though there are 15 lines that it should be copied to. When I originally recorded the macro, I used the auto fill option to fill the information for all 15 lines. However, when I run the macro the auto fill doesn't work for me.
View 8 Replies
View Related
Feb 10, 2010
the code as shown below so that in column A of worksheet: Data to Text I need an AutoFill from cell A1 to the last row. The value in cell A1 needs to be: 1
If there are more than 1 records then I need an AutoFill from cell A1 to the last row. However, the value in cell A1 needs to be 1, value in cell A2 needs to be 2, value in cell A3 needs to be 3 etc...
View 2 Replies
View Related
May 4, 2009
I have the following formula that I would like to be able to autofill.
=UniqueItem('Divide Outs'!$A$2:$A$999,1)
The 1 after the comma needs to count up...anyway to autofill a formula like this?
This is a function that i use to display unique listings.
View 3 Replies
View Related
Jun 16, 2012
I was wondering if it was possible to have some cells where when I start to type it suggests me from a list from another sheet?
View 1 Replies
View Related
Sep 27, 2013
I have multiple worksheets each with varying amounts of data. I have a number in cell A1 that I need to autofill down to the bottom of each worksheet. All of which have varying amounts of data.
RA-0151
0
765804
3308345
168
0
5.74E-07
8.8E-09
1.371696
0
0
[Code] ........
When I record a macro it sets the autofill range as the bottom of what ever worksheet I recorded it on.
How can you write a macro that goes to the last row of each worksheet.
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A122"), Type:=xlFillCopy
Range("A1:A122").Select
Range("B1").Select
End Sub
View 2 Replies
View Related
Dec 8, 2006
I have this code present, however the autofill part needs to work by looking at the cells to the right & i dont know how to do this
Sub Merge()
Application.ScreenUpdating = False
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("A10").Select
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[1])=TRUE,"""",RC[1]&RC[2])"
Selection.AutoFill Destination:=Range(Selection, Selection.Offset(0, -1).End(xlDown).Offset(0, 1))
Columns("A:A").Select
Columns("A:A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
View 6 Replies
View Related
Nov 20, 2007
Range("B2").Select
ActiveCell.FormulaR1C1 = "=LEFT(C2,3)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B235")
Range("B2:B235").Select
I have this code here, it basically writes the formula in the cell, then sends it down to the bottom of the list i have. The problem is: It will not always end at Cell B235. It could be more or less. How can i make it so it will auto-fill to an undetermined end of range?
View 9 Replies
View Related
Mar 18, 2008
I have the following code...
Sub updateDB()
Cells(1, Range("D1").End(xlToRight).Column).EntireColumn.Select
Selection.AutoFill Destination:=Offset(1, 0)
End Sub
Its erroring out on the Autofill line... All i want it to do to finish the code is autofill one column to the right after it selects the column after finding the first blank cell in row A?
View 9 Replies
View Related
Oct 30, 2008
I have this bit of code;
Selection.AutoFill Destination:=Range("j2:j20000")
But I want it to only autofill as far as the data goes in column I rather than down to row 20000
View 9 Replies
View Related
Jan 22, 2010
I am making a macro that takes the cell I have selected, extends the selection exactly 3 columns over, and then autofill extends the formulas 3 rows down.
So far I have:
ActiveCell.Offset(0, 3).Select
Selection.autofill Destination:=Range(Offset(0, 3)), Type:=xlFillDefault
The range(offset(0,3)) in the destination doesn't work. What am I doing incorrectly?
View 9 Replies
View Related
