Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Loan Processing-Copy Range From 1 Sheet To Same Range On Another


I'm developing a loan processing system for members of a club. When an applicant asks for a loan, the club will calculate 10 % of that interest and the applicant will have to pay it back in 5 successive fortnightly instalments. If he asks for a loan in the first fortnight (1), for example, he will have to start paying instalments in fortnights 2,3,4,5,6 to pay it all back.

The system currently has 4 worksheets. The first sheet is a the loan application form. The cells outlined in thicker border, are the cells in which details must be input. Once it is input, the data will be automatically placed in the Processing worksheet using IF and VLookup functions (See spreadsheet attached), which is used as a basis for the loan schedule Worksheet. What I need is a macro that will copy the range filled in the Processing worksheet, and copy it to the exact same location in the Loan schedule worksheet (The cells with the same fortnight columns and the same member name. This is how the loans are to be filed.


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
When Data File Close Sheet To Sheet Range To Range Copy
i have a main.xls file and two data file dat1.xls and dat2.xls

mail named file have ar - br- cr- dr- er -fr sheets

dat1 named file have ar-br-cr sheets

dat2 named file have dr-er-fr sheets

and all this files data source is

colomn source a - fd
row source 29-4000

i want to make two commandbutton to main file first for dat1 second for dat2 file and i need a code to use at this buttons to make

when dat1 and dat2 close

main file user when click first button

copy dat1 file ar sheet colomn source a - fd row source 29-4000 cells to main file ar sheet colomn source a - fd row source 29-4000 cells

copy dat1 file br sheet colomn source a - fd row source 29-4000 cells to main file br sheet colomn source a - fd row source 29-4000 cells

copy dat1 file cr sheet colomn source a - fd row source 29-4000 cells to main file cr sheet colomn source a - fd row source 29-4000 cells

View Replies!   View Related
Copy A Selected Range Of Cells On Sheet One To A Range On Sheet Three
Hi. Does anyone know a formula to copy a selected range of cells on sheet one to a range on sheet three when a check box in checked. Ex. copy range a4:j4 on sheet one into a4:j4 on sheet three once the check box for on sheet one is checked?

View Replies!   View Related
Application.inputbox: Range To Copy And Paste The Range's Link And Format To A Different Sheet
Need a code using application.inputbox to get a range, then use that range to copy and paste the range's link and format to a different sheet? The specifics don't matter, I just can't figure out the syntax. Here is what I have currently:

View Replies!   View Related
Copy Immediate Range, Paste To Another Sheet & Name Pasted Range
I have been struggling for a while to copy data from one worksheet to another and reset the target range.

The copy bit is cool, the range resetting bit is not. I have tried various methods, but none seem to work.

For example, the below code generates an error: "Compile error: Argument not optional"

I have stuck the particular command button script below to let you see what I am trying to do:

Private Sub cmbFilter_Click()

Dim sCriteria As String

On Error Resume Next

View Replies!   View Related
Copy Specific Range From One Sheet And Paste To Next Available Row Of Different Sheet
I would appreciate if someone can help me figure out a macro that will copy range (A3:T112) from "Step 1" sheet to next available row in "Step 2" sheet.

View Replies!   View Related
Copy Range From 1 Sheet To Another
I have some code to copy a range from one sheet to another... this working code is in a userform... I copied this code to the sheet and used a button to call it, but I now get a 400 error. Here's the working code from the userform;

Private Sub CommandButton5_Click()
Unload UserForm1
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("N").Activate
Range("A12:B2000").Copy (Sheets("Floors").Range("A12"))
Sheets("Floors").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

And this is what I have in the sheet;.......................

View Replies!   View Related
Copy Range To Last Row On Another Sheet
Sheet 1 has a Invoice template in which i need few cells like Invoice no, Date, Client name and amount to be copied into sheet 2 in a single row on click of a button. Again when i change the data and click the same button the data should go to sheet 2 and next available empty row.

I will print the invoices once its done i keep changing the same again. Basically, I want to make a log of invoices in the sheet 2.


View Replies!   View Related
Copy Range In New Sheet By Criteria
I want to copy a range of data in a new sheet using a criteria. First i would like to choose a column, and second the criteria.If criteria in this column is meet , copy all rows in the range that meet that criteria in a new sheet named after the criteria .

View Replies!   View Related
Copy Range Of Cells To Another Sheet
I have a workbook with 18 sheets. on each sheet there is a column titled "quantity". I've created a 19th sheet to display all rows with a quantity of greater than zero. This is a prototype of a positive test for a value other than zero, and copy the data to the 19th sheet. Here is what I've written.

Sub Test1()

Sheets("SING PLY").Select
Dim row As Integer
row = 31
Dim column As Integer
column = 2
If Sheets("SING PLY"). Cells(row, column) <> 0 Then
Sheets("Buy Out").Range(Cells(31, 1), Cells(31, 6)).Value = Sheets("SING PLY").Range(Cells(31, 1), Cells(31, 6)).Value

End If

End Sub

The error is

Run-time error '1004":
Application-defined Or object-defined error

I'm using the Cells object because this is eventually going to run as a loop and I need a way to increment the values.

View Replies!   View Related
Copy Column Range To Another Sheet
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 Replies!   View Related
Copy Range In Another Sheet And Create Border
to copy column C and D, from row 3 to the end, from sheet2,in sheet1, column A and B, starting with row 2 and after that I need to create a border to the copied values and I need to create a border to the empty cell from column C.

open attached file

View Replies!   View Related
Copy Same Range From 4 Sheets To A Total Sheet
I need to combine data from 4 tabs with employee names, onto a tab called total. The tab named total is hidden. Is there a way to do this using code?

In my sample I need the name then dates and data below in the yellow areas. As long as Column a has data above cell A22.

View Replies!   View Related
Copy Paste Range To Protected Sheet
1.to copy the A2 Cell of Sheet1 to A3 cell of Sheet 2 by VBA?
Also,
2. How can I copy A2:A10 from sheet1 to A1:A9 of sheet 2 by VBA?

View Replies!   View Related
Copy Auto Filter Range To Another Sheet
I want to filter the data: [the data I have In "Sheet1]"

Sub Makro5()
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="5"
Selection.AutoFilter Field:=2, Criteria1:="6"
Selection.AutoFilter Field:=3, Criteria1:="7"
Selection.AutoFilter Field:=4, Criteria1:="99"
End Sub

and now I want to copy from "Sheet1" to "Sheet2" but only Field:=4, where criteria1:="99"; In "Sheet2" I want to paste my filtered data to:

Range("B1,D1,F1,H1,J1,L1,N1,P1,R1,T1,V1,X1,Z1," & _
"AB1,AD1,AF1,AH1,AJ1,AL1,AN1,AP1,AR1,AT1,AV1,AX1,AZ1," & _
"BB1,BD1,BF1,BH1,BJ1,BL1,BN1,BP1,BR1,BT1,BV1,BX1,BZ1," & _
"CB1,CD1,CF1,CH1,CJ1,CL1,CN1,CP1,CR1,CT1,CV1,CX1,CZ1," & _
"DB1,DD1,DF1,DH1,DJ1,DL1,DN1,DP1,DR1,DT1,DV1,DX1,DZ1," & _
"EB1,ED1,EF1,EH1,EJ1,EL1,EN1,EP1,ER1,ET1,EV1,EX1,EZ1," & _
"FB1,FD1,FF1,FH1,FJ1,FL1,FN1,FP1,FR1,FT1,FV1,FX1,FZ1," & _
"GB1,GD1,GF1,GH1,GJ1,GL1,GN1,GP1,GR1,GT1,GV1,GX1,GZ1," & _
"HB1,HD1,HF1,HH1,HJ1,HL1,HN1,HP1,HR1,HT1,HV1,HX1,HZ1," & _
"IB1,ID1,IF1,IH1,IJ1,IL1,IN1,IP1,IR1,IT1,IV1")

View Replies!   View Related
Copy Same Range From Multiple Worksheets Onto Summary Sheet
I have searched for my answer but because I am new to all this I am stuggling to manipulate some of the other code that is close to what I am after..

I am trying to find a quick way of summarising data from multiple detail sheets onto a summary sheet (all within the same workbook) with the number of worksheets varying (ie: I may add or delete worksheets).

I basically want a concise summary of the other detailed sheets.

My Workbook is setup as follows:

Multiple sheets detailing each individual trade (with a summary at the bottom with the basic info I need on the summary sheet).

A summary sheet totalling the profit/ loss from all trades, costs of all trades etc (I am ok with this).

A summary sheet summarising all trades - ie each of the summaries contained on the individual trade sheets consolidated onto one sheet for quick reference:

Trade #TradePositionProfit LossHold Time
1JBHLong300030
2JBHLong250020
3JBHLong200010
1WOWShort050012
1HVNLong800015
1CLXShort500045
2CLXShort250030
3CLXShort150010

What I am struggling to get onto the summary sheet is all the individual summaries on the detail sheets. The reason for this is that each trade can have up to 3 positions: the Initial trade, Pyramid 1 & Pyramid 2. (This range is in the same location of each sheet but could be 1, 2 or 3 lines) and the number of trades I enter during the month can vary (ie the worksheet number can vary).

I don’t want to have to manually update a range, of a consolidation for example, each time I add a new trade (new worksheet) & want to view a summary.

I thought it would be easier to summaries each trade at the bottom of each trade sheet so I can pick the information up from the same spot already in the format I want it in for the summary page.

Does anyone have any suggestions on how I can get the summary to search each sheet, no matter if there is 1 trade or 50 trades & pull the summary information which is located in the same spot onto the one sheet for a quick view?

View Replies!   View Related
Copy Rows To Sheet Based On Cell Value In Range
a macro button on my excel sheet that should do the following.

i have a range (Ex: E3:E46) which is being continuously filled, i need to transfer the information to another sheet depending on column "E", (Ex: if "E3" = "A" paste row to sheet2 if = "B" paste row to sheet3) and so on each row could have another string in column "E".

after the paste is done it should clear the range making place for new entries, that should also be copied finding the next empty cell (it shouldn't delete the old entries)

View Replies!   View Related
Why Won't This Selected Range Copy To Another Sheet?
I have a button on the Players worksheet that has this
Why would it not work?

Range("NewData").Range("B5:B" & Cells(Rows.Count, "B").End(xlUp).Row).Copy
Sheets("Players").Range("A3").PasteSpecial Paste:=xlValues

I am trying to copy Column B starting at B5 down to the last used cell in column B. into the players sheet starting at cell a3.

I try it and it highlights 4 cells and that is it???
Michael

View Replies!   View Related
Copy Range Of Cells To Active Row In Second Sheet
Sheet 1 has data entered into it, it is then printed out as a jobsheet, saved and the data cleared. There are certain fields on this sheet that are eventually manually replicated onto sheet 2. The row in which they must go on sheet 2 will always be the 'activerow' on that sheet from a previous operation. It would make life so much easier and save lots of time if I could incorporate copying cells C10,C12,K8,K12,M2,C27 and C29 from sheet 1 to respective cells H,I,J,M,N,R,S of the active row on sheet 2 before I carry out the clear data process.

View Replies!   View Related
Copy Range Using Row & Sheet Name Variables
I'm trying to copy multiple cells on the same row, with the row number to be copied stored in a variable (x). Right now i've been trying to use the Range method, but this copies all of the values between "A" & (x) and "H" & (x). I only want the values of the cells in "A", "F" and "H".

(copy_sht) is the name of the sheet to be copied from
(paste_sht) is the name of the sheet to paste into
(copy_row) is the name of the row to be copied from
(paste_row) is the name of the row to be copied to
(x) and (y) - I'm not sure f these are necessary, I've followed a lot of examples to get here, so i'm a bit confused.

Function copyrow(row As Long, copy_row As Long, paste_sht As String, copy_sht As String) As Boolean
'Is passed the names of the sheets, the rows, and copies the data
Dim x As Long
Dim y As Long
x = copy_row
y = row
Sheets(copy_sht).Select
Sheets(copy_sht).Range("A" & x, "F" & x, "H" & x).Copy
Sheets(paste_sht).Select
Sheets(paste_sht).row(y).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Function

To recap, this code will copy all the cells between A(x) and H(x), but i only want the values of A(x), F(x), and H(x).

View Replies!   View Related
Search Range And Copy Result Rows To New Sheet
I have a table in excel with a group of headings. (Serial Number, Model, Description, Repsonsible and a few others) What I would like to do is be able to search every cell within the range of that table. When the user clicks search an inputbox is displayed and you can enter any search term you like. if there is a match within the cell range, i want the entire row (and the heading row always at the top) printed into a new sheet to display results. There may be a match in multiple rows, and id like evrery row displayed.

View Replies!   View Related
Copy Same Range From Multiple Worksheets To Summary Sheet
I have an excel workbook containing 123 worksheets. Sheet1 I have titled "Summary" and I wish to copy data from the remaining sheets (2-123) into it. Each sheet is formatted in the same way, and I wish to take the data in cells E66:G130 from each worksheet and paste it into the Summary sheet (so, Sheet2's 3 columns would be pasted in cell A1, Sheet3's in D1, and so on).

I gave a couple of codes a go (this one is from a thread "Copy Data From Multiple Worksheets & Append To Single Worksheet", I tried to alter accordingly):

Sub SummurizeSheets()
Dim ws As Worksheet

Application. Screenupdating = False
Sheets("Summary").Activate

For Each ws In Worksheets
If ws. Name <> "Summary" Then
ws.Range("E66:G130").Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
End If
Next ws
End Sub

However, I don't understand what "ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)" refers to - I am told there is an error with this line ("compile error expected =").

I also tried the Consolidate function, but had problems as well.

View Replies!   View Related
Copy Range & Append To Summary Sheet
I have a question about my Excel template: I have a workbook with 3 existing sheets in this order: DATA, Fronpage, Summary. In the Frontpage I have a clickable button to create a new sheet with name as Report1, Report2, etc. at each click. What I wanted is that when I click the button to output a Report sheet, say Report1, I want it also dynamically to copy and paste a range , for example r2c1 : r5c6 from the new report sheet to the Summary sheet. The pasted results from each Report in the Summary sheet should not be replaced, instead, should be appended separated by two rows. The Summary table is like a log file that keep track of certain rows of the report sheets. Could anyone give me a hand

View Replies!   View Related
Copy Same Range From Multiple Sheets To Master Sheet
I have multiple sheets (lets say for example a 100 of them) where I need to copy a Value from a fixed location (Col#,Row#) from each of the 100 sheets and store it in a column in a Master sheet.. in the end the Master sheet has only two columns.. first column A contains file name (of the sheet where I copied).. then adjacent column B has the copied value.. in other words the Master sheet will have 100 rows and two columns..for this example..

View Replies!   View Related
Copy Range Rows To Another Sheet Matching Condition In Column
i'm trying to create a macro to find any value <> "" from COLUMN B then copy Bx;Cx;Dx and paste into another worksheet with the name of COLUMN A.

And when the cells Cx or Dx is empty should appear 0 into the other worksheet

for example.
sheet1 ..... cell("dx") is empty
a b c d
w 5 3

the macro would copy 5,3,0 and paste into sheet named "w".

i found this code on internet but it's not quite good for me because it copies the hole row. i tried everything to change that but i couldn't.

[url]
(ORIGINAL CODE)


Sub SearchForString()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer

View Replies!   View Related
Copy Range To Seperate Sheet & Clear Orginal
I have a macro set up on a command button so that when you click the button, it takes the info that you entered and puts it into line form on a seperate sheet. I need it to clear the original sheet after this happens, but the way I have it set up, when you remove the info from the original sheet it removes it from the second sheet. Does any one have a sample form that submits information this way? I think I can figure it out if I could see how someone else has done it.

The form is set up so that the user has to enter their name and then go through a series of drop down boxes, and select the correct options and then submit the form when done.

View Replies!   View Related
Copy Rows To New Sheet Based On Date Range Selected On A Form
This spreadsheet must perform calculations for every line since new items are added every day, so VBA is probably better than copying formulas down every line of the spreadsheet:

With the press of a button, I need to be able to select a range of dates and copy all lines within the range to a seperate sheet with the desired name under the same headings they currently reside under. I have included some modified code that is being used in another spreadsheet that was created for me, but I do not pretent to understand all of it and I no longer work with the creator of the spreadsheet. How do I use a button to open the form for date selections and entering the name of the new sheet, and then use the start button on the form to begin the matching and copying to a new sheet? If there is an easier way I am all for that too.

Also, I need to keep a total of all items by month as well as a monthly and annual average of the Total Item Value on the FY09 tab. This will eventually produce another sheet when a button is pressed to submit as a report. I think part of this answer is in using the MONTH(serial_number) function but I can only get this to work for a single cell. I need to search the entire Distribution 'D' column, match all the months to the FY09 tab to the respective month, and calculate the totals and averages. I think SUMIF may also be needed as well but need the MONTH(serial_number)to work first. If there is a way to code all of this in VBA that would be fine as well.

I have a pivot table on Sheet1 where I am trying to get the totals and averages described above but I am not sure it can do what I need. In column 'B' I need the total number of each item as well as the total number of all items. I tried various formats and adding the totals from the Totals tab but I have not figured it out.

View Replies!   View Related
Automatically Copy & Append Range To Another Sheet Based On Number Entered
I need help with creating a macro that runs when a user enters a value in the 'Numbers' column, copies and pastes data in the corresponding worksheet 'Worksheet' column by the value of 'Numbers' column data. An excel file is attached.

View Replies!   View Related
Copy Multi Cell Range To Destination Workbook Range
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 Replies!   View Related
Copy/Paste Range(s) Without Activating/selecting Range(s)
To initialize some cells/ranges, I am copying a given range and pasting it to another given range using the. Copy and .PaseSpecial methods. However, it would seem that both methods actually select the range(s) for the operations, i.e. the given ranges(s) are activated/selected thus changing the focus on the spreadsheet. I would like to perform both operations without actually selecting the given ranges.

View Replies!   View Related
Copy/Paste Range To Different Size/Shape Range
I have the following code that let's the user choose and " import" data to an existing sheet. It works well up until now. The problem is that the three ranges that I am trying to copy the data from on workbook to another has changed size. In previous version of my workbooks the range was two columns by 10 rows. Now, it is 1 column by 10 rows. So, when I run this macro it doesn't work because the two ranges are different. Is there any way to:
1) Only copy over one of the rows of a range thus making the macro run?

2) Do not run that part of the macro if there is an error?

Thanks so much for reading this long-winded description but the error is a big problem

Private Sub CommandButton1_Click()

Import_Data_Form.Hide

Run "UnProtectAll"

Set b = Selection
ad = b.Address

' Local Variables
Dim wkbDataFile As Workbook

View Replies!   View Related
Iteration Inconsistency: Allow For A Cost Being Added To Loan Amount Where The Cost Is Based On The Total Loan Amount
In a financial environment we have a calculator which uses iteration to allow for a cost being added to loan amount where the cost is based on the total loan amount. Iteration is set to 100 iterations with max change .001

On one PC the first time the calculator is opened it gives a particular (incorrect) result. If the input cells are cleared and the data re-entered, it gives the correct result. This only happens on one particular PC. Is there some other setting , other than the iteration setting, that would cause this?

View Replies!   View Related
Copy Column Range To Row Range
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 Replies!   View Related
Copy A Range And Paste It Over A Variable Range
I am using the code below to copy a range and paste it over a variable range.

View Replies!   View Related
Copy Range & Name Pasted Range
I have a data range in sheet1 that I would like to copy into a new sheet. to copy I have used the following code

Worksheets("input").Range("input").Copy Destination:=Worksheets("temp1").Range("B12")

I would like to name the data that has been copied into sheet"temp1"

View Replies!   View Related
Copy Range If Cells Have Same Values As Another Range
1. I have two workbooks (eg. workbook1 and workbook2)
2. I compare the cell values in workbook1.sheet1.cell range (d6:d20) and workbook1.sheet2.cell range (d6:d20).
3. If the values in the range of cells are same, I want to take the value in workbook1.sheet2.cell range (d6:d20) and copy to workbook2.sheet1.cell range (d6:d20).

View Replies!   View Related
Copy Range Of Cells Over A Filtered Range
I wonder - is there a way to copy the green range over the filtered cells in col. C !? (I want to Copy range D20:D23 on to cells: C5, C9, C13, C17). I tried to select "Visible Cells Only" as the target for Pasting onto (using [F5] etc...) but no success. I prefer a solution that does not involve VBA. *** see attached picture.

View Replies!   View Related
Copy Or Move Column Ranges From 1 Sheet To End Of Column Range Of Another
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 Replies!   View Related
Copy Cells Where Range Address Resides In Cells Of Another Sheet
Tried to write a Macro to Range Cells in a sheet, setting the range values from a another cell. I have encounted a Run-Time error as select method of Range class failed. Below is the Macro.

Sub Macro1()
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("Pre").Activate
Set r1 = Range("J4")
Set r2 = Range("K4")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Worksheets("Data").Select
Range(r1, r2).Select
Selection.Copy
Sheets("1").Select
Range("B5").Select
ActiveSheet.Paste
End Sub

Have the Ranges been set incorrectly

View Replies!   View Related
Selects And Copies And Pastes A Range Of Data From One Sheet To Another Sheet
I have a macro that selects and copies and pastes a range of data from one sheet to another sheet. It works perfectly except it is pasting all the cell formatting and formulas and i only want or need the values.

View Replies!   View Related
Copy Variable Range & Copy Formulas From Destination
I tried searching for code for each part of the task separately and trying to piece together multiple macros, that did something similar, but I’m not have a lot of luck, so I’ll break it down into two treads, I hope this will follow the rule of one question per post, but if I should have separated this request even farther as two treads, please let me know and I’ll be happy to comply.

I was given a spread sheet with a macro that loads data from a SQL Data base (not mine), it returns anywhere from one row to 100’s of rows data. Since it’s not my spread sheet and macro, I copied this sheet to my destination workbook. The Data loads in 7 columns starting in B4:H4, with the column headings titles: Acct#, Id#, Name, Qtr1 Totals, Qtr2 Totals, Qtr3 Totals, and Qtr4 Totals. Data cells in spreadsheet not formatted (general)

What I’m trying to do:
part 1:
I need a macro to copy the data only for columns Id# thru Qtr4 Totals (C5:H5 down thru the last row with data) to another sheet. The destination sheet range starts with rows B13:G13, with formulas below and to the right in columns H13, and J13:N13
(column I is blank).

The formulas below the range are a subtotal of the copied columns (D:G). They could be remove and totaled after they’re copied, so there's nothing below the copied range? Since I need the column totals as a subtotals, my thought was to have the row heading and formulas already on the destinations sheet and just insert a blank rows between as each row was copied?

part 2:
As each row of data is copied from the source sheet, I need the macro to copy the formulas to the right of the copied range (H13, and J13:N13) on the destination sheet down for each new row of data copied from the source sheet

View Replies!   View Related
Select Range To Copy, Find Values And Copy
I have a base document that i can import another data document with a button (this is working).

I then have another WS ("search") in the base document with lots of identifiers which I want to use as my search range to look through the document that I just imported (column A).

I need a msg to ask the user what month they would like to find the $ value on (Ie, January) in the imported WS... this way it doesnt copy the entire line only cell in the selected month column.

Then I want to the user to be able to click a button that will check through the identifiers on the "search" WS and if the same identifier appears in the imported WS in column A, then for the $ value in the column selected to be copied to the search Range work sheet.

If the idenfifier is not matched then in place of the $ value copied can be the string "no in XXX WS" .

I have attached the document with dummy data in each work sheet with details more cleary what I have meantion above.

View Replies!   View Related
When A Sheet Is The Active Sheet Then Define A Range
When a sheet is the active sheet i use the following to define a range.

View Replies!   View Related
Range On Other Sheet
I get a runtime error "1004 - Select method of Range class failed" when my macro starts as follows:

Sheets("7100release").Select
Range("A2:D51").Select

It chokes on the Range. Seems to work fine as long as I do Range on the master sheet, not changing sheets.

View Replies!   View Related
Copy A Range
On my own workbook on one sheet I copy a block, but as soon as I flip over a different workbook I can't paste (there's nothing in the copy buffer). Or I can copy, switch focus to another workbook, and immediately return, and the copy "halo of flies" is gone. I thought this was because of sheet protection, but I went Sheets("Somesheet").unprotect in the immediate window. Nothing in code is going ".Protect".

EDIT: (Note: I CAN copy to notepad. It's just when I go from this workbook to another that the flies die.)

View Replies!   View Related
Copy Range And Keep Name
I want to copy a named range and past on another sheet. I want the name to be applied to the pasted range on the new sheet. Possible?

Perhaps naming the rows again after the insert? How do I keep them active after an insert and then name?

Private Sub CommandButton1_Click()
Sheets("Electronic").Rows("1:7").Copy
Sheets("Mail").Rows("1:1").Insert Shift:=xlDown
Sheets("Electronic").Rows("9:12").Copy
Sheets("Mail").Range("INSERT").Insert Shift:=xlDown
End Sub

That is my current code. I want to name the Rows (9:12) and keep that name when they are inserted or just name the rows when they are inserted. REason is I want to be able to Delete these rows and the numbers are gonna change.

View Replies!   View Related
If A Range = 0, Hide Sheet
If Range A1:a10 On Sheet 1 = 0, Hide Sheet 1

Anybody Know The Code To Do This In Vb?

View Replies!   View Related
Search A Range In A Sheet
I have a monthly time sheet. The times are entered in cells C8:F68.
When some one has a annual leave day or a bank holiday they enter A/L or B/H.

I have a summary sheet and have placed a cmd button on it to hopefully search the sheets that are months or the year.
I know how to search the sheets and increment through them and not the 'Summary' sheet.

What I need to establish is how to place in my code the actual search criteria and also limit the range to C8:F68
On top of this I need to total each occurance of A/L and B/H and display them in two cells.

I have tried to do a search of the forum but with no luck.
Like I say I have managed to understand how not to select the 'Summary' sheet when incrementing through the sheets but its just the search for the A/L and adding them up!

View Replies!   View Related
Get Sheet Name From A Cell When Specifying A Range?
I have the name of a sheet in the cell A1. In another cell, I want to put a formula that looks up a value in the sheet whose name is stored in A1. I tried the following but it does not work: =CELL("contents", A1)!B3

In other words, I want to be able to specify the sheet name not by value but by a formula that returns the sheet's name. If it weren't for having to use a formula then I know I could simply do this: ='Sheet name'!B3.

View Replies!   View Related
Pass Value Of Range From Another Sheet
I am using a spreadsheet with two sheets, basically, one sheet has a combo box control, you select a name from there and click on "Go". The function is supposed to go into the next sheet (Sheet2) and retrieve a value from there (in the same row as the selected name).

I am using the following code (on button click):

Dim strValue As String
Sheets("Sheet2").Select
strValue = Range("A1").Value
MsgBox (strValue)

I've simplified this, but essentially my problem is this - it isn't picking up any value at all - there is text entered in A1 so what is the problem?

View Replies!   View Related
Clear Range On Another Sheet
I have used the VBA and it works to select all data but I have an issue when there is no data to select beneath the column header. I am running this on multiple worksheets which vary with data week to week.

Sheets("sheet1"). Range("A6:G" & Range("G" & Rows.Count).End(xlUp).Row).Offset(0, 0).Select selection.ClearContents

How can I run this and not have it delete the column header when there is no data? Is there a way to change the formula so that it selects all cell columns of data without defining it?

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved