i am trying to copy few cells with data, and i have something like this:
Range("A3:AO" & Format(intRowCounter, "###")).Select
So this will copy all data withing those cells range, however, i want to copy only data from specific columns, ie, from column A3, and from K3:J
I have a row data corresponding to the measuring of load cell per min and I need to average the values per hour. So I have a column B for the date (from 1-01-2013 to 31-01-2013, column C for the time (0:00:00 to 23:59:00), and D de values per min I want to average. I have to do the same for the rest of the month of 2013 (February, ...., December).
I would like to know if there is a way to create a formula to calculate the average of the first 60 values (to get the average of the first hour of 1-01-2013), and then copy it to get the average of the following 60 (average of the second hour in 1-01-2013) and so on.
If there is no way to do it, I would like to know if I can do it using functions like average, match, index, offset, what would be the best match of those functions.
I also tried it by doing the analysis in another tab and using the function "averageifs" with two criterias: one for the date (example 01-01-2013) and another one for the hour (example 0:00:00), but it didnt work, it show error: #value. I inserted an extra column in the data tab with just the hour (example 0:00:00) in front of the corresponding column with (example 0:01:00, 00:02:00, etc)
Equation I used for this:
=AVERAGEIFS('Data (min)'!D$6:D$43206,'Data (min)'!$A$6:$A$44646,A6,'Data (min)'!$B$6:$B$44646,B6)
=AVERAGEIFS(TAB AND COLUMN WHERE THE RAW DATA IS,RANGE OF CRITERIA 1,CRITERIA 1,RANGE CRITERIA 2,CRITERIA 2)
I got a range of data on sheet2, size changes everyday (dynamic) And in sheet1. I got a range of data and the size changes everyday as well. I need to copy the range in sheet2 to sheet1. The position would be at the cell after the last data in sheet1. e.g.
sheet1 got 105 data
I need to paste data of sheet2 start of row106 in sheet1
Sheet 1 to look into Sheet 2
> Find a certain string "name1" > if string is name, copy succeeding columns if not goes and checks another cell till it finds it.
> Then copied columns will be evaluated (sum, divide, etc)
this loops through all rows.
next problem i am seeing is what if it finds 2-5 names how can i combined all the cells copied?
I'm looking for an algorithm that does the following:
1. Open one-by-one a number of excel workbooks in a directory and copy their .UsedRange
(i.e. all sheet content in each of the workbooks).
2. Paste append one-by-one each of the workbooks .UsedRange of data into a master workbook that is already open (i.e. active workbook).
Note that the source workbooks and target master workbook contain the same format of data. So a simple copy and paste of the .UsedRange is apt.
Basically I need each .UsedRange of an opened workbook to be appended to the data from previously opened workbook in the master workbook already opened.........
I am creating a macro needed for many worksheets. I am trying to paste a range that will be different within each worksheet. I started the macro off by locating the correct cell to start the copy from. I want to copy 11 columns across and 32 rows down from the cell I selected.
View 7 Replies View RelatedI am trying to capture data for statistical analysis, but have hit a snag. As shown in attached sheet I have each day for the year broken down into hour time slots into which data will be added. As I will need to come up with a number of similar sheets in the future I was wondering if there is a way to automate through vba, a quick way to copy down the hour slots for each day, 365 times, rather than the laborious task of copy and paste manually.
View 5 Replies View RelatedWhy the following doesn't work?
Sheets("Sheet1").Range(Cells(1,1), Cells(20,1)).Copy Sheets("Sheet2").Range("A1:A20")
If I can get his to work, I will be able to use variables for the Cells arguments to give the functionality I want.
I'm using Excel 2003. I've got two different .XLS files, each with multiple sheets.
I'm trying to create a macro which will copy a range of cells from one sheet on one .XLS file (which is closed) to a specific place on a specific sheet on the current .XLS file (which is open).
So for the sake of argument:
I've got two Excel files: C:ApplesOldFile.xls and C:OrangesNewFile.xls
OldFile.xls is closed -- NewFile.xls is open and in front of me.
I'm trying to copy the data in ranges B6:C41 and F6:F41 from Sheet2 in OldFile.xls to the same ranges on Sheet6 in NewFile.xls. There are no formulas in these cells -- just data (numbers).
I keep getting error messages, failures to copy to clipboard, etc.
I have a spreadsheet that allows users to paste set data from a PDF Image (using OCR) straight into Excel and then use the MID function to split the data accordingly.
Unfortunately, the OCR isn’t too intuitive and gets it wrong sometimes.
So to counter this, in another sheet (in the same workbook) I have a manual input section, and a simple macro button that pastes this data into the same fields where the OCR text would be, so that the main sheet works exactly the same way as before.
The problem is, and most likely due to the simplicity of the sheet, if a combination of OCR pasting and manual inputting is used, when I hit the paste button, it over rides the OCR data with blank cells
In the link below I have shown what is currently happening (1, 2, 3), and an example of what I would actually like it to do (4, 5, 6).
Example - Online Spreadsheets - EditGrid
So, in the 2nd scenario, I would like “5” to recognise that the respective cells in “4” already contain data and fill them ‘Grey’. This I have already achieved with basic conditional formatting.
However, I need to take it 1 step further and say that if the parent sheets cell (Auto OCR) contains data, as well as filling cells (in sheet Manual) lock these cells off and prevent the end user from adding data and/ or being copied over to the parent sheet.
Is this possible?
The result then being the parent sheet with both OCR text and copied text from the manual input sheet.
Both sheets are protected anyway and only allow for user input in certain areas, so is it even possible to apply further protection once the sheet is locked already?
I am trying to make the cells Iam am copying paste hidden cells with all formats - seems to work fine other than the security part of them, Iam makeing a sheet for work and just trying to make it were it will not get destroyed by other users-
View 12 Replies View RelatedI wish to copy a merged cell (3 cells) based on if only 1 of 3 cells to the right contain "X". if the top cell does not contain "X" than the merged cell is not copied. Also, is therea more elegant to copy 3 columns at a time rather than do one at a time as my code shows:
Sub CopyICUCAPU()
'
' CopyICUCAPU Macro
'
Dim i As Integer
[Code].....
I have a spreadsheet set up that keeps a running total of the money in my checking account. I've set up the "balance" column to only display the balance if the "debit" or "credit" columns have data. For example:
credit debit balance
3.00 12.00
2.00 10.00
5.00 15.00
______________
15.00
This way I have space to add more entries, without having to copy the formula in the "balance" column every time I add an entry (or have my balance copied all the way down the column when there are no entries that alter it). However, the problem I'm encountering is displaying the balance at the very bottom (underneath the line). I would imagine I need to somehow look up the last value in a range in the "balance" column, but am unsure of how to proceed.
I would like to work with a range of cells.
I have a headerCel (A2)and a footerCel (A20).
If I use the line
how to make such code by VBA. but i'm desperate to have it.
I need a code to copy a two different ranges from two sheets and paste them below the original ranges in each sheet "a range a sheet". And then if a clicked again the same ranges should be pasted after and so on so forth.
What I need to do is put data that I get on a variery of excel speadsheets into a standard template. I can do this by the process of copying over column by column the appropriate detail from one workbook to the other.
what I'd like to do is replicate the column headings of the template onto the workbook with the original data so I'm looking at just one workbook all the while until I'm ready to transfer all the data in one go.
I realise I can just copy from the template to the active workbook, but what I had in mind was having the ability to hit a button to replicate it associated with a macro.
So the macro I'd want would involve starting from a cell in the active workbook, obtaining a named range from my personal workbook (which would be the template headings) and then pasting this back into the active cell of the active workbook.
And if it is feasible...how would I get it to work (taking into consideration the Personal workbook may be hidden).
the only code i have at the moment is
Workbooks("PERSONAL.XLSB").Worksheets(1).Range("MODELTEMPLATE").Copy
But how would I get this to paste onto the cell I start with?
I have a workbook with large number of sheets (150+). All sheets have the same column structure (same number of columns with same heading in Row 1), but the sheets vary in the number of rows.
I am looking for a VBA (Macro) that copy (combine) the same range (d2:g6 from each sheet) into a new sheet stacked.
I am having some 100 excel files in a folder. I need to copy specific values in those files to another new excel file. The file names are like file_0.xls,file_1.xls.....etc and the range to paste those values are like B1, B51,B101...etc...
I got the code for one file. Now i need to increment the final name and pasting range.
I have a workbook named Br2012. I would like a macro to copy the range names to BR12013.
View 2 Replies View RelatedI have a question that I am not able to answer.
Basically I have a worksheet with the following:
C4 -a cell where a user can input a number
the rest of the worksheet is data in a normal fashion.
I am seeking a macro that will select & copy cell G6 through whatever the value of C4 is. This selection would be a variable range with the offset being whatever is typed into C4.
Ex:
If the value of C4 is 5 then I would like G6:G11 to be selected and copied.
I am aware of offset, but don't know how to implement it in such a dynamic way.
i have this code at minute to copy information from all my sheets to a summary sheet , is there a way i can modify this code to copy from row 6 to 35 if there is a value in col b on sheet then copy a:bq of that row to summary sheet carry on to end of data , then on next ws copy row 6 as this is machine heading and then same again and loop through all worksheets i have in my array ....
View 9 Replies View RelatedI am using code that will copy several formulas in adjacent cells to the end of range; however, when I try to use it to select and copy formulas in non-adjacent cells, I get an error. Tried to modify, but I'm new to VBA...still learning. Here is the code that I currently have.
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("D3").Formula = "=RC[4]/RC[3]"
Range("F3").Formula = "=RC[-1]*RC[1]"
Range("J3").Formula = "=RC[-1]/RC[-3]"
Range("D3,F3,J3").Copy Range("D3,J" & LastRow)
I cannot figure out how to correct this subscript out of range error in this xla addin I have. At the top of the module I have Public q As Integer, w As Worksheet As the integer is shared between two functions. The error occurs in here,
Sub Button()
Application. ScreenUpdating = False
ThisWorkbook.Sheets("Template").Copy After:=Sheets(4) 'error occurs here - Subscript out of range
Set w = ActiveSheet 'a copy
On Error Resume Next
q = 1
Do
Worksheets("Calculation_" & q).Activate
If Err.Number <> 0 Then 'sheet name doesn't exist yet
w.Name = "Calculation_" & q
Exit Do
End If
q = q + 1
Loop
On Error Goto 0
w.Activate
Application.ScreenUpdating = True
This is weird as it works on my computer, but when I load the xla on another computer using same version of office, it has this error.
I'm trying to use the SendKeys function to copy data from a range using a button.
I realise this is not the most elegant of ways to acheive the result, but there are a number of factors involved.
The range is laced with code.
I tried to save a macro but it doesn't work (I am inexperienced!).
What I need is to copy five columns (e.g. range C:G) and copy it in another sheet ('1' range C:G). Subsequently, I have to copy the next range of five columns available (i.e. range H:L) and copy it in the consecutive sheet (i.e. '2' range C:G), and so on.
I am trying to copy a countif formula down a column using the fill handle, but when I copy the formatting down the column the range changes. Is there a way to make it so that only the variable changes and the range stays the same?
View 2 Replies View RelatedI have a workbook "revision.xls" i have two excel workbooks "A.xls" and "B.xls" in a folder ( revision ) in my desktop. the location of this folder is " C:Documents and SettingskrishnaDesktop evision )
Both the excel files inside this folder ( "A.xls" and "B.xls" ) have columns B to F in each of them filled with some data.
The no.of rows upto which the data is filled in these two files can vary.
What i want is a macro which can open both these files automatically and can copy the contents in column B to L in both these excel files into revision.xls in such a way that the column B TO L of the excel file alphabetically first in the folder has to be copied to A to K column of revision.xls then after leaving one column blank i.e leaving L blank column ,the column B TO L of the excel file alphabetically 2nd in the folder has to be copied to M to W column of revision.xls.
I have a macro which inserts rows at certain places in a data table. This works fine. I then want to copy the formulae from the the row aboove or below (dependent on certain criteria). This sort of works.
I have is that when the row is copied, the row numbers within the formulae do not change relative to the new row. Eg if I copied down "=A6" one row, the formula still says "=A6", rather than "=A7".
I have tried variations of
Selection.PasteSpecial Paste:=xlPasteFormulas
I also tried the AutoFill method (but this didn't work at all when I tried it with a whole row)
Previously, I would have selected ranges and then pasted on the active sheet. However, I am trying to re-educate myself in writing macros that do not 'select' ...
I would like to copy selected rows in a range D19:I49 to another sheet, by clicking a button to bring up a User Form containing a List Box, seven Option Buttons (one for each sheet), an OK and Cancel Button. When the User Form is displayed, the required rows are selected in the List Box, then the required sheet is selected via an Option Button. Upon clicking the OK button it pastes (only the values) to the selected sheet, but to the next empty row (if there is already data entered previously) in the same range as above (D19:I49). All seven sheets are identical and are named Monday, Tuesday, etc. to Sunday. If the option button selected is the same as the active sheet a message box could be displayed to ask the user to select another option button and upon clicking the OK button on the message box return the user to the User Form once again so that the correct option button may be selected.
View 2 Replies View RelatedI have a range of cells (L1:Q1) I want to copy from a worksheet called Email from one workbook and copy it into an already created and saved workbook called 'TDocuments.xls' located in the root of my C: drive.
Thing is I need to paste this range into the first blank row of TDocuments.xls, so it will need to find that first and then paste the values (without formulas) into the TDocuments.xls and save it.
