I know that I can insert a row over two worksheets by selecting both sheets and inserting a row. However, I have to make a worksheet usable by people who don't know excel at all, and if it isn't user friendly, they just don't try!
Therefore, is there any way I can set up my worksheet so that if a row is entered in sheet 2, a new row is inserted in the same place in sheet3?
I have numerous sheets i am working with as schedules , would it be possible to create a timeline that would show you where you currently are (time of day ) just a simple line or similar that stands out , my times in Row 4 are split into 6 hour intervals (06:00,12:00,18:00,00:00) with the date above in Row 3
I read several forum questions for data join and merge but not found a solution for the following scenario. Is possible do it ALL in one macro? I have two different xls files.
file1: sheet has the following structure
refcode price count
XXBK443 200.0 3
KKKN339 333.0 2
etc..
file2:sheet1 has the structure
refcode prod_name color height
XXBK443 prodname1 green 10
ZZZZ000 prodname2 yellow 22
KKKN339 prodname3 white 15
AAAA111 prodname4 white 30
etc..................................
Can someone help me i have a few columns of information i need to move over to a another sheet, but the problem is the information i need to move is the end result of a formula and when i move it the answers are gone how do i fix this,,,,, and both sheets are on the same work book as well
is there a vlookup formula to use,,,im not experienced in Vlookup up formulas
For each of the sheets below, I need to extend the bottom of the page down ten rows and i need a page break after 60 rows.
Does anybody have any ideas? Here are the tabs that I need this macro on:
(MySheets = Array("FY09 Installation Support", "FY09 Install", "FY09 Purchase", "FY09 CF Discretionary Grants", "FY09 CF LOI", "FY08 Purchase", "FY08 Installation Support", "FY08 CF Discretionary Grants", "FY07 Sup Install Support", "FY07 CF Install Non-LOI", "FY07 Sup Purchase", "FY05 CF Carryover Install", "FY04 Recovery Funds", "FY05 Recovery Funds", "FY08 Safety Carryover", "FY09 Safety", "FY09 Transport Canada")
We have a scenario like this:
1. Data (Let's say 5 fruit names are entered) will be entered in sheet1 (row wise)
2. Data (Let's say 5 flowers names are entered) will be entered in sheet2 (row wise)
2. Entered data in sheet1 and sheet2 should get automatically populated in sheet3 under respective headers (header 1 - fruits and header 2 - flowers)
Rules : 1. We will have Headers with one default empty row
2. With addition of every row in sheet1 or sheet2, a row should automatically inserted in sheet3 under respective headers and populate data.
I have a macro which inserts a row and copies formulas and formatting to the inserted row or rows, but leaves other fields blank. What would be great would be if I could force users to use this macro for inserting rows and prevent them from using the normal 'insert row' function.
View 9 Replies View RelatedI have in the code copied a range of cells.
Now i want to make sure that the same number of rows are avalible
In case that the i want to create one new row i use the following code
ActiveCell.EntireRow.Insert
The problem is that insted of inserting one black row, it wants to paste the rows which are already copied.
How do i insert one black row
I would like to use VBA to search a folder and copy data from tabs within the excel files there. The data will be pasted to a tab of same name in the the main file. All the files are in the same format.
So far I have only managed to list the files in the folder using code I found on your site!
I have a workbook that updates from external source and creates sheets depending on a cell range.
I have put tab 1 and tab 0 on either end of where the new sheets will be inputted, will never know how many sheets
What i need to happen is if someone fills in "complete" in A7 in my "summary" sheet then the values in row 6 in all the other sheets get hardcoded. This needs to happen from A7 down to A26, so A8 = complete then copy row 7 etc
This is what i have so far
I get compile error here ........Sheets(ArrSh(1)).Activate
Also need it to work for all the other rows.
Sub hardcode()
'
'Sheets("Summary"). Select
If Range("a7") = "complete" Then
'
Sheets(Array("1", "0")).Select
Sheets(ArrSh(1)).Activate
[Code] ......
I have been running a simulation for about 18 hours now and just received:
Run-time error '1004':
Method 'Add' of object ' Sheets' failed
I have been creating new sheets, importing data, pulling some values from the data then deleting the respective sheet. I am using:
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
The sheet is actually being added to the workbook, seemingly before the error. I resume the code, and a new sheet is placed in the workbook and it errors again. The Debugger stops and highlights on the code above.The sheet count number was 10895 at the error, just as an indicator of how many times the simulation has performed successfully. I am hoping this is something I can fix without having to start over...
I`m making a list of gas and electricity readings and want to show the difference between the last reading such as =h5-h4 and then the next to show =h6-h5 and so on. How do I copy this formula for subsequent rows or columns.
View 4 Replies View RelatedIs there a macro that will insert a sum formula on the last row of each category?
For example:
A 10.00
A 5.00
A 7.00
22.00
B 12.00
B 25.00
B 18.00
[Code]...
I'm wanting to add a button on the last row of a worksheet to "add rows" above the buttion (entire row). I have some cells (6 total) that have a formula that needs to carry over to the newly created rows. Some cells remain blank but some cells need to have the formulas fill down to the new rows (i.e.: =sum(a2+1), =sum(a3+1)...
Is it possible to give option of choosing how many rows someone wants to insert?
Help in creating the button, option to choose # of rows and the macro to insert those rows.
I have a question about selecting an entire row, and then inserting a new row. The following code will select, and then insert a new row at row 30:
View 2 Replies View RelatedIm trying to inset
View 2 Replies View Relatedhttp://img177.imageshack.us/img177/2797/exceluf7.th.jpg
See above spreadsheet (some data has been blanked out for data protection)
I have column L formatted as a validation list with two options 'Open' and 'Closed'. What I want to happen, is when I select closed from the list, the "Date Closed" cell to the right (column m) changes to the date that Closed was entered, and does not change thereafter.
As you can see in the pic, all the close out dates are todays date. . . I need it to store the date it was closed, and not constantly update it.
I am using Ron De Bruin's code for sending emails as below, where it says "your monthly totals for", I want it to insert last months month. ie. if i send the mail in March it should automatically insert February in the field
RDB_Mail_PDF_Outlook Filename, "ron@debruin.nl", "This is the subject", _
"your monthly totals for "March" " _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
I have some VBA code which inserts a new row at the bottom of my data and copies the formulas down from the row above. This all works fine. However I now have the need to insert a new row within the data into the correct group.
So within the data there are 4 product groups (sorted).
So column A looks something like this (but much bigger):
Product1
Product1
Product1
Product2
Product3
Product3
Product4
Product4
Product4
I want the user to be able to select "Product1" from a drop down box (which I've set up). Then click the button called "New_Data"
So "New_Data" runs the code and inserts a new row at the bottom of all the other Product 1's (in this example it would be between row's 3 and 4).
Here is my existing code for just inserting a line at the end:
With Sheets("Sheet1")
.Unprotect
With .Range("A1").End(xlDown)
[Code]....
I'm trying to insert a set of strings, and for some reason its not going to the next open row, its just inserting them over the last record.
Code:
Private Sub Insert_Payment_Click()Dim Payment As String, PaymentAddress As String
Worksheets("Payments").Select
Payment = Range("E4")
PaymentAddress = Range("B4")
Worksheets("RentalDates").Select
Worksheets("RentalDates").Range("I1").Select
If Worksheets("RentalDates").Range("I1").Offset("1,0") "" Then
Worksheets("RentalDates").Range("I1").End(xlDown).Select
[code]....
I have a workbook with over 500 rows and those rows are divided in diferent sections, to which I have left five empty rows to add more data, the problem is, how do I add four more rows once I have only one empty row of the five empty ones I had previous? There's also a formula on column H that I'd like to be copied down on to the newly added rows.
I don't know how I'm gonna deal with the rest of the other data that is gonna shift down as more rows are added, I said this because I want to be able to do the same on all the sections I have.
I have a VLOOKUP formula in cell X1. I am trying to insert all the below 10 IF statements in it. I have three problems:
A) Excel does not allow inserting that many conditions in one cell.
B) Don't want to use VBA.
C) VLOOKUP doesn't work, since the table array contains formulas. I can't have the table arrays change from 1s to 2s, when copying & pasting X1 to X2.
1. IF(A1=1,C1*D1)
2. IF(A1=2,E1*F1)
3. IF(A1=3,G1*H1)
4. IF(A1=4,I1*J1)
5. IF(A1=5,K1*L1)
6. IF(A1=6,M1*N1)
7. IF(A1=7,O1*P1)
8. IF(A1=8,Q1*R1)
9. IF(A1=9,S1*T1)
10. If all false then "NO".
I have Data in Column a There in not demarcation between two Groups of Data
I want it Insert a Row between the two Groups of data.
Each group of Data end with a cell has "Employee" in it
The Row is to be inserted after the cell having “employee”
I am working with large sequences of letters and I'm trying to put them into their own columns. I know about the 'text to columns' tool but the problem is my sequences are not delimited by anything. I would have to think the easiest way to accomplish what I want to do is to insert a comma, space or other delimiter between every letter, then use the text to columns feture.
EX. I'm looking for something that does this...
AAAAAA --turns into--> A,A,A,A,A,A or A A A A A A
I get on regular bases an xls file by email.
With this file I have to do several things for which I'm trying to create VBA.
What is the easiest way to import this VBA in the file I get ?
Should I create a txt file with the code and copy/paste?
Maybe create a template with code to import the txt file ?
How would the code look like for importing ?
I'm working with a line of code I can't seem to get right. I've got this string that will put breaks in, but I've realized it would make my life easier if the code, along with inserting a break, then inserted a formatted gray divider, it would make it easier. Here's what I have:
Sub BreakSections()
'This macro breaks the new data on sheets into their individual groups, inserting a blank line_
'which will need to be filled with a gray dividing line
Dim i As Long, j As Long
Application. ScreenUpdating = False
With Sheets("Contract Manufacturers")
. Cells.UnMerge
i = .UsedRange.Rows.Count
End With
For j = i To 2 Step -1
If Not IsEmpty(Cells(j, 5)) And Cells(j + 1, 5) <> Cells(j, 5) Then Rows(j + 1).Insert
Next
Application.ScreenUpdating = True
End Sub
I've tried then to put this code in after the Insert:
Range(ActiveCell, Range("AJ" & ActiveCell.Row)).Select
and then the formatting code.....
But I end up getting a whole mess of gray rows, displacing a lot of data. Is it possible to do these things together, or I should write another macro that just looks for the blank spots? It seems like it would be easier to do it all at once.
[URL] ....
I want to sort the Inventory Checklist sheet based on Column D but it gives me nothing but references errors.
i have a workbook that has the following sheets
working sheet
job sheet
receipt of deposit letter
completion sheet
delivery note
delivery note (2)
odd
even
t&t
glass
ggf
i want to hide every sheet except the working sheet.
I have tried this but the macros bring up an error when i run the macro
my macros involve printing certain pages dependng on what button is pressed
i get an error whatever
how do i stop this
I have 25 sheets in the workbook and a combobox on the main page, The combobox references a range of 1-25 that represents the 25 hidden pages. right now i can get the sheets to unhide one at a time based on the selection e.g. combobox option 1 will unhide sheet 1 but the sheet are representing sites in a design so i need to have the option to select multiple sites in the combobox option so for example if i select 5 then sheets 1-5 should unhide. I hope I've explained that clearly.
The other question or option would be to just duplicate sheet 1 based on the combobox selection e.g. selection 5 duplicates sheet 1 5 times.
I have received following macro from someone to delete series but the problem is that it gives error when some sheets are protected, and I want those sheets to protected. When run it will ignore/leave protected sheets but delete series only from unprotected sheets
Private Sub CommandButton1_Click()
Dim Rng As Range, i As Long, r As Range, lVal, uVal
Dim DeleteCount As Double
Dim lRow As Long
Dim dr As Long
Dim dc As Long
dc = Sheets("Deleted Numbers").UsedRange.Columns.Count - 1
dr = Cells(Rows.Count, Sheets("Deleted Numbers").UsedRange.Columns.Count - 1).End(xlUp).Row + 1
If dr = 60001 Then ................