Copy First And Last Cell In Column Range To Use In Constructing Filename?
Jun 25, 2013
I have users that enter data into a worksheet that has a fixed number of columns. They can enter 1 to many rows. I need to copy the data in cell A3 and concatenate it with the last cell in column A that has visible data. I am using this to construct part of a filename. Here is a snippet of my code, however, I am receiving a run time error 13, Type mismatch.
Dim strFileName As String
Dim dt As String
strFileName = ActiveSheet.Range("A3", Range("A3").End(xlDown)).Copy ' & "_DEV" + "_" + dt)
View 2 Replies
ADVERTISEMENT
Feb 19, 2010
what is wrong with this
I am getting on the line below.. i have commented out the line after the blue as I couldnt seem to get that to work either.
View 14 Replies
View Related
Nov 10, 2009
I have a macro that is copying information from one spreadsheet into columns "A through E" on the next available row in a seperate spreadsheet. Beginning with column "G through L" I need to copy the formulas from the row above in the same spreadsheet. Is there a way to do that since the row being copied from will change each time?
View 4 Replies
View Related
Apr 27, 2008
I'm trying to Copy and Insert formulated cells from sheet "Add Entry" range A3:AZ4 to Sheet "January" just above the last row containing data (the Totals line) starting in column B. The cells need to remain the same in cell size and maintain the formulas that are inmbedded within them. I want to be able to do this repeatedly by applying this macro to a button. I would also like (if possible) to alternate the color of these cells in an alternating row fashion.
View 9 Replies
View Related
Jan 23, 2012
I am doing an advanced lookup and I have a list of lookup values that I need to get in th following format.
BK146
into
="=BK146"
IF BK146 is in cell A1 what do I need to put in B1 to get it into the above format
View 7 Replies
View Related
Feb 6, 2014
I’m trying to write a macro to look down two different columns in my work sheet and if the is a value >0 then copy a set range of cells to another sheet,
I need to search column (k) and (x) range (“K2 : K147”) and (“X2 : X147”) in (sheet1) for values >0 if there is, then copy from (“f : m”) if it is found in the (k) column, or copy from (“s : z”) if it is found in the (X) column, and paste value only to the next empty cell in sheet2 . Sheet2 is empty so (A) on down is fine for paste range. There is a spin button in the copy range column (L) and I don’t want that picked up in the copy. Manually I (paste text) only but I think (values only) will do the same thing.
[Code] .........
View 14 Replies
View Related
Jul 28, 2006
able to create a table that is derived from a pivot table (see attached file). The pivot table represents sales amounts for each company in each period. And can be drilled down on country and category. The table that is derived from this pivot represents the market share percentages. In the attached file in filtered sales data from country "UK" and the pivot table only shows the active companies in this market. However in the derived table all companies are still represented but inactive companies are now represented by "#REF" values. Is there a way to exclude inactive companies in this derived table? If so, how can i make this derived table dynamic?
View 6 Replies
View Related
May 3, 2014
I have been struggling with a way to use an IF statement that determines if a cell in column B = 1 then copy that cell and the two cells next to it to a cell starting in range B50. Once the condition is true would want it to copy another below and so on.
B C D E D
1 E10 Rear door failed BL OK
2 B4 Clearance light inop. KL OK
2 C1 Fire extinguisher date expired KL Ok
1 E1 Bumper falling off BL NO
The first and fourth row have a "1" in column B. So as a result these two rows meet the condition and want to copy just the cell in B thru D. Results would look like below
First entry copied to cell B50
1 E10 Rear door failed
1 E1 Bumper falling off
View 3 Replies
View Related
Dec 14, 2012
Here's what I'm trying to do (improperly apparently!!):
Book1, ''Master'' is the sheet, I'm copying info into, and Company info are the sheets im getting info from each of my .xls files in a folder, ie cell C2. Just in case, to be clear, I have all my vba projects opened from each .xls book, and need to copy, from each .xls book, in Company info, cell C2 into Master column A:
Sub collate_cell_data()
Dim dest As Range, wbNew As Workbook, wb
Set wbNew = Workbooks.Add
[Code] .........
View 1 Replies
View Related
Mar 17, 2014
Please see attached sample worksheet. Column A will be generated by the user manually.
I'm looking for a way in VBA to have A1:D20 in Sheet2 copied and pasted in the "Bank Reconciliation" Sheet based on how many "Markets" there are in Column A. Then, once that's complete to have A22:D30 (the smaller box in Sheet2) copied and pasted directly below those results.
I have what the macro would hopefully generate to the right in "Bank Reconciliation" (B6:E54) as an example. So if there's a market in A1, copy and paste the box to B6. If there's a market in A2, copy and paste the box directly below the first (B26) etc. etc. until it's done, then paste the smaller box directly below whatever the macro generates.
Book2.xlsx
View 3 Replies
View Related
Jul 7, 2006
I am trying to display the Filename in a cell on my worksheet. However, when I enter the =Cell("filename"), it provides the full path (C:/Documents......Cost Summary.xls) How can I display only the filename without the path?
View 3 Replies
View Related
Oct 7, 2008
I'm attempting to copy some files into an archive folder in the same main folder. These files appear weekly in a folder that contains numerous other files.
Each of these files has a filename such as:
RAH_MRL_TOP_40_(ddmmyy_TIME)
with time being the time that the report was run.
Every week the filename stays the same but the time and date changes. I was hoping to be able to simply use the "Filecopy" command and specify the source file with a "*" after the main file name. However this does not seem to work.
Is there a simple way to do this? (I dont want more than a few lines of coding really as I will be duplicating it for each file and then changing the file name as needed.
View 9 Replies
View Related
Jun 6, 2013
I want a macro that will save a copy of the current file using specific naming convention. My file is called OTR2CMMASTER - I want the macro to save a copy as OTR2CMSAGE(CURRENTMONTH/YEAR). The OTR2 is a named field (ProjectCode) in the workbook.
View 5 Replies
View Related
Nov 29, 2006
I have code that takes full cell with filename, looking for it in certain directory and copying to another directory.
Sheets("Unique").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each rng In Selection
If rng.Offset(0, 4).Value <> "" And InStr(1, rng.Offset(0, 4).Value, "http") = 0 Then
FileCopy SourcePath & rng.Offset(0, 4).Value, ThisWorkbook.Path & "" & DestPath & "" & rng.Offset(0, 4).Value
End If
Next rng
I want to change the code that it will copy based on number. Any suggestions?
Example:
I have range of filenames.
10989478.MEC0388A-L0_RoHS_globemotors_1.pdf
10989495.Keystone_M1.4cat. zip
10989559.MEC0388A-L0_RoHS_qualtek.pdf
I want to copy files starting with 10989478, 10989495, 10989559. I mean ignore the part after "dot".
View 9 Replies
View Related
Mar 7, 2008
I have two different Excel reports and the data needs to be copied from each column on one spreadsheet and pasted to the bottom of the equivalent column on the other spreadsheet.
So, is it possible to get a macro that will copy the data from one column then paste it to the next free cell in the column on the other spreadsheet.
If I could get some code to do one column then this should be enough to get me started and I could apply this to the other columns I need to copy.
View 8 Replies
View Related
Apr 8, 2008
I have a contiguous multi column, multi row numeric range that I want to copy (and sort in ascending order) into a single column on another sheet in the same workbook. What VBA code could achieve this, or alternatively can this be achieve via formulas?
View 3 Replies
View Related
May 19, 2012
Utilizing Excel 2009, I am trying to look for a solution that will allow me to compare a column which contains a list of filenames i.e. "832423.wav" to a directory which contains those files to see "832423.wav" is present in that directory such as "C:UsersBDocumentsAudio Files". If there is a match then the row is highlighted. Is that possible?
View 5 Replies
View Related
Aug 7, 2009
in column B of sheet1 i have every 3rd-4th row a name. i need to copy the name and the the data on the row below the name to sheet2,
the list of names can be min 2 max 30.
so sheet 1 has row 14- name in column B and C. in row 15 in columns d:z data for the name.
i need to copy this to one row in sheet 2 copied for each name up to 30.
View 9 Replies
View Related
Oct 23, 2009
what is wrong in this code, it does not paste.
HTML Range("A65536").End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(-1, 7).Select
ActiveCell.Copy Destination:=ActiveCell.FormulaR1C1 = "=(R[1])"
I am trying to copy from the selected cell and paste one cell below(next row) in same column.
View 2 Replies
View Related
Dec 22, 2007
I have the following sheet1 (" Case Preview")
column a column B column C
ID project Custodian
1 ABC James Johns
2 DEF John Doe
3 GHI Laura DiNapoli
4 JKL Lydia Koernell
I need to be able to display the custodians in column C on sheet1 ("Case Preview")
in sheet2("Search Term Breakdwn") starting in B10,C10,D10,etc until all the names in column C are there. The tricky part is that column C gets populated each month with different custodians coming from different dbs, so I have to be able to know how many rows in column C are populated with info.
I saw a few postings here regarding transpose and tried to used it, but to no avail.
I am using the following
Sub copyrows()
Dim MySheet As Excel.Worksheet
Dim MySheet2 As Excel.Worksheet
Dim rcell As Range
View 9 Replies
View Related
Oct 24, 2013
I am trying to copy a range of data from one sheet to another. I can almost get it to work. Here are the values of the variables I use in the code below
Code:
cal_col_counter =5 col_counter=1 and no_of_rows=249
I can't understand why this code works
Code:
Sheets("data converted").Range("e1:e" & no_of_rows).Copy Destination:=Sheets("calculations").Range(Cells(1, cal_col_counter), Cells(no_of_rows, cal_col_counter))
But when I change it to this
Code:
Sheets("data converted").Range(Cells(1, col_counter), Cells(no_of_rows, col_counter)).Copy Destination:=Sheets("calculations").Range(Cells(1, cal_col_counter), Cells(no_of_rows, cal_col_counter))
it gives me an application-defined or object-defined error.
View 2 Replies
View Related
May 8, 2008
I'm trying to write a DO, LOOP that simply starts at a cell, goes down the column and copies one by one each cell into another sheet until the next cell isempty.
here's my
Sheets("source").Select
Range("A41").Select
Application.CutCopyMode = False
Do Until IsEmpty(ActiveCell.Value)
Selection.Copy
Sheets("active orders").Select
Range("D1").Select
ActiveSheet.Paste
Loop
It currently just loops infinitely because it isn't selecting the new row down (A41 is always full). I'm not sure how to offset the row within the doloop as well as offset the rows to paste accordingly in the new sheet....
View 4 Replies
View Related
Aug 6, 2013
I need method, using a button, that looks at a cell--say EO2, for example--, looks back on a master worksheet at a specified row and range for a match, then looks at the information from a specified range below the matching cell (The information in this column will either be blank or have an "X" in the cell), and then those rows that do not have an "X" will be hidden in the corresponding rows in the working worksheet. Therefore, if at any time the value in "EO2" ever changes, then it will automatically find a new match and repopulate and hide information as before. About 130 columns will have its own button so that a "query" can be made that depends on the information in a particular cell in that column.
The master worksheet now has matrix of 287 rows and 58 columns. Each row is for an operating procedure and each column shows a job code. An "X" in a coordinate cell for a column/row shows whether that job code is responsible for knowing that operating procedure. So, on the working sheet, an employee's primary job code is given underneath his or her name. When the button is pushed, all the operating procedures not required for a given person will be hidden and only the required ones will remain visible--grouped, if you will. Qualification dates will be easier to see now that the information is consolidated. Whenever someone transfers to a new position, a new code will be inputed on the working sheet. When the button is pushed, a new grouping will result. Any operating instructions that overlap will still have qualification dates, so that information will not need to be transcribed.
View 9 Replies
View Related
Sep 24, 2013
Basically I have three sheets. MAIN, Sheet 1 and Sheet 2
Sheet 1 and 2 are in the same format
A3 down is a list of country names and then B3:I71 contains the data im interested in.
I've been trying to create a function that looks at B3:i71 to see if any cell in that range contains a value greater then $0.00. If it does then the row that contains the cell with a value greater then $0.00 (between col A to K) should be copied to sheet MAIN from cells B3 down. This should ultimatley produce a list of data for any row containing a value greater then $0.00. This process should then be repeated on Sheet 2 and should join the list below sheet 1.
View 3 Replies
View Related
Dec 23, 2008
Trying to copy a range from Sender.xls (sheet) Lists backstage
onto Userform.xls (sheet) Behind the Scenes
When trying to copy the values within a multicell range, the destination cell range (same size) becomes blank.
View 2 Replies
View Related
Oct 11, 2009
Is there a way to take filename and place value in a cell
View 9 Replies
View Related
Oct 26, 2013
I am trying to create a macro that will reformat my data from A2:QB24 into 9 columns starting in N28:V28 with the data from every 9 columns pasted underneath each other.
Basically, I need to start with copying Range A2:I24 and pasting it into cell N29, then copy Range J2:R24 and paste it into cell N53, etc.
View 2 Replies
View Related
Nov 30, 2007
The following macro copies a range from "ThisWeek" worksheet to a selectable worksheet "Week1, Week2, Week3, etc. (determined by value in cell P13 (1,2,3,etc.)) The copy destination is currently cells F5:F36 but I want to make this range selectable also (ex. G5:G36, H5:H36, etc).
For example: If "ThisWeek" worksheet (fixed) cell $B$7 = "Adam", I want to match/lookup this name on row 4 (column F,G,H,etc) on the destination worksheet and copy the range of data to a column under the heading labeled "Adam". (No need to verify if heading exists)
Hope I have explained my problem clearly.
View 9 Replies
View Related
Apr 9, 2009
If possible could someone please help with changing the below code so that column "D" in the rngIn part of the code can be a variable. i.e so the user can select one, two, three or four columns (with visible data) to be copied. The "b3" part is a constant.
View 14 Replies
View Related
Oct 16, 2011
I have trying to develop the following macro (see below) which bases adds a column on another worksheet based on a cell value, this part works. I then want to copy the formulas from the column to the left of the inserted column, and this where I am struggling.
I found a question posed by 'TBW MK' and tried to adapt that. I can't work out how to express which needs to be copied - currently shown as Range(), given that it is a variable
Sub New_World5()
Sheets("Process").Activate
Dim ColNo As Integer
ColNo = Worksheets("Input").Range("H2").Value
With Sheets("Process")
[Code] .......
View 6 Replies
View Related
