Repeating The Code On The Same Worksheet
Jan 9, 2009repeating the code on the same worksheet.
i am trying to input this code to my worksheet
repeating the code on the same worksheet.
i am trying to input this code to my worksheet
I have some code that copies and pastes data from one cell into a range. The one cell is B4, and the range is A6:A10. This same action must be done every 30 lines (so the next time the cell is B34 and the range is A36:A40).
What do I need to do to make this action repeat/loop every 30 lines?
I have completed the first section of my spreadsheet.
Section 1 has a number of mandatory fields. Once these are complete and the user changes a combo box then Section 2 opens
I now want to repeat the same again for section 2. Making fields mandatory before a user can change a combo box to yes, which then opens Section 3
From looking around the forum / google I think I can only have one worksheet_change per sheet. If this is the case, how do I now start my next section (to basically repeat Section1 again)
The code I have is:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("E20"), Target) Is Nothing Then
'Section 1
Range("A22:A130").EntireRow.Hidden = True
[Code] ........
I run this code in my workbook and it seems to work but i would like to do same kind of jumps by clicking on a different cells and cant seen to figure out how i can add more of these function.
View 2 Replies View RelatedI need to prepare count sheets for stock take on my company and I have a long list for data with hundreds of locations. What my colleagues have been doing is to filter the locations 1 by 1 and clicking print because we want the page numbering to be 'page 1 of 3', page 2 of 3 etc. for each location.
For example
Location a has 2 pages we want it to be page 1 of 2, page 2 of 2
Location b has 1 page we want it to be page 1 of 1
This is so that we can detect if any count sheets have gone missing.
I want to be able to print everything at 1 go, without filtering the locations manually and clicking print as it takes hours to do so.
Is there anyway I can do it? I have some knowledge on excel but not macros.
I have a strange problem with a spreadsheet I've set up. It has several tabs with multiple information on each. The sums on each individual tab are linked to the front tab (which I've used as a summary page), but I haven't put any other links in.
For some reason, when I type anything in certain cells on one of the tabs (including the summary but not just that), it appears also on all the others, not necessarily in the same place. If I delete it on the the other tabs where it shouldn't be, it deletes the original on the correct tab, which I want to keep. This has been going on for ages, it annoyed me so much I completely recreated the spreadsheet, from scratch, but it's still happening.
sorting data I use in a workbook for athletics. I've really chopped down my workbook for upload, In the worksheet "Leaderboard" I can call up stats for different lifts, and it finds (in this case) the top 5 lifts and the names for the kids that have those corresponding lifts.
My problem is that when two or more kids have the same lift, it will only call up the name of the first instance of that lift. You can see this in the "Leaderboard" worksheet, and the name "Adams, Andrew" appears for both lifts of 75. I would appreciate any help on how to correct this, as I've searched the Internet for weeks now looking for a solution. I've tried experimenting with different things as well, all to no avail.
taking a spreadsheet that has vertical repeating info in Column A and results in Column B and converting that to another sheet in a horizontal list. The main problem is that the repeating info in Column A may or may not always be the same for every customer; therefore, when it is placed in a horizontal format some cells may or may not have results. I tried a arbitrary lookup. Here is the formula I used:
{=INDEX(INFO!$A$1:$B$300, SMALL(IF($A$1=INFO!$A$1:$A$300, ROW(INFO!$A$1:$A$300)-MIN(ROW(INFO!$A$1:$A$300))+1, ""), ROW(B1)),COLUMN(B1))}
That got me started. I am willing to use a macro. Here is some sample data:
Table 1 has a sample of the info:
IDENTIFIER
CUSTOMER INFO
2000
111111
[Code].....
I am copying data from worksheet "Microsoft" to another workbook and paste in sheet1, i want the cell G1 to auto input the worksheet name "Microsoft" where i copy the data from,
How to have G1 show the worksheet name after i copy and paste the data from worksheet name "Microsoft".
I had a matrix like this
0 4 0 0
1 0 0 0
0 0 0 2
2 3 0 0
then I used vba to put number between 1 to 4 (since this is an 4x4 matrix) when there is a 0 in the matrix, but the numbers in row need to be no repeat??
so i need something like this for my output. Is there any code for search the number in the row?? How can I do this??
1 4 2 3
1 2 3 4
1 3 4 2
2 3 4 1
I have the code below:
[Code]....
That will send the worksheet 'DAY SHIFT' in pdf format via e-mail.
I want to add the worksheet called "NIGHT SHIFT" to this .
I am looking for VBA code to help with a tracking spreadsheet I have created.
I'm still a beginner in VBA, but I know what I need it to do, just not how to execute the command. I believe it's something that would be simple for someone more familiar with VBA and Excel.
What I would like is when a Completed Date is entered in column J on Worksheet 1 (named Work in Progress), that row entire row of information would automatically be cut and pasted into Worksheet 2 (named Work Complete).
Sounds simple enough right? lol But I can't find code online that would do this and the edits I've tried to any code close to what I'd want do not work.
I'm having an awful time specifying the sheet I want to:
a) derive the data from
b) put the processed data into
Suddenly (never had this problem before) Excel keeps switching the definition of Application.Sheets(1) and Application.Sheets(2) so I have no way of controlling where the data is going.
How do people usually specify the sheets they want? Obviously my method is unreliable, but I'm not sure which one I should use.
I have several columns of data representing a shop operation along different years. Now I try to see how will it look like if I have 10 shops like this, all summed up. The problem is that each shop will have the same numbers as the other 9, just that it's first year of operation will be different.
Now, I don't want to have different sheet for each and every shop since their data is exactly the same. I only want to have 1 type of shop which I can add to a consolidated sheet but 10 times, and each time the first year shoud be different.
Just an example: If I have this data for my shop:
YR1 YR2 YR3 YR4
Sales: 10 12 14 16
Costs: 5 6 7 8
Operation: 2 2 3 3
Tax: 1 1 1 1
profit: 2 3 3 4
And lets say I have 4 shops opening in 2000,2001 and 2 in 2002 than my consolidated should look like this:
2000 2001 2002 2003
Sales: 10 12+10 14+12+10*2 16+14+12*2
Costs: 5 6+5 7+6+5*2 8+7+6*2
Operation: 2 2+2 3+2+2*2 3+3+2*2
Tax: 1 1+1 1+1+1*2 1+1+1*2
profit: 2 3+2 3+3+2*2 4+3+3*2
But again, I don't want to open a different table for each shop and than sum them up - I want to have only my one shop, and have a possibility to say when will I open my next shop and the consolidation will be automatically.
my document column "M" ,this type of numbers are there.
column "M"
125468A-B
125468A-B
458962
256897
412589A-C
412589A-C
412589A-C
01.i need to remove A-B,A-C part.
02.after that any number are repeating that all the number's end part should add (A,B,C,,,,)it's like this.....
[b]
column "M"
125468A
125468B
458962
256897
412589A
412589B
412589C
Okay, so this is what I am using:
[Code] .......
It is finding the name for a value from a table of values, the only problem is that there are more than one names which correspond to the same value. It doesnt matter to me which name it retrieves, but it lists the same name over and over again, where i'd prefer if it used a different name each time. Any way to keep it from using the same one?
Example1 (pcb).xls
What i need is that result of these counting is 2. Count all without repeating.
I need to find out how many different days are in these fields.
1.6.2009
1.6.2009
1.6.2009
1.6.2009
1.6.2009
1.6.2009
1.6.2009
1.6.2009
2.6.2009..........
it repeats by increasing range from RZ1 to RZ2, RZ3 till RZ50. For each of the range below calculation needs to be performed.
View 6 Replies View RelatedVBA code. My sales data is arranged as months in columns and customers in rows. I have about 36 months of data that must be formatted as a single date column for pivot table manipulation.
View 9 Replies View RelatedI am creating several worksheet where the first two rows are repeated so that I can see those two rows as I proceed down the sheet. That feature works on some but not all sheets. What am I missing? I even tried copying the pages that are correct to another worksheet and that format doesn't copy to the next worksheet.
View 9 Replies View RelatedI have the below macro that I need to have it repeat until the end of the data, I'm not brilliant with how macro's actually work,
Range("A2:Q5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Suppose I have a following set of data in Sheet1...
FT 1
DD 2
MC 1
AD 1
EE 3
FL 2
GC 1
Under the first column, I have a series of text and under the second column, I have numbers, 1 - 4.
and I want the ouput from the data to be like
FT
DD
DD
MC
AD
EE
EE
EE
FL
FL
GC
in Sheet2, and the process will continue until there is a blank cell under the first column. Can someone help me with this? I have a very little experience in VBA.
How can I have a sub repeat itself? I have a code and I want it to ask the user at the end if they would like to do it again. If so the whole sub needs to be repeated. I'm sure this has something to do with looping, but I don't know how to manage this.
View 3 Replies View RelatedI need to to use VBA to copy a worksheet (which i've managed to do!), but I need the new worksheet to have a Worksheet_Change event. Now when I copy the worksheet, the event doesn't copy over (obviously as its a cut and paste jobby). Any ideas on what code I need to add in the Worksheet_Change event just after the new worksheet is automatically created?
View 14 Replies View RelatedKill Worksheet Code. I am using
View 4 Replies View RelatedCan someone help me out with this script?.
I keep getting "Subscript Out of Range Error"
I'm trying to delete all the code on sheets(1) of the active workbook.
I have the following code for a command button:
Private Sub CommandButton3_Click()
With Sheets("summary")
.Range("aj45:aj61").Copy
.Range("ai45:ai61").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Range("aj73:aj78").Copy
.Range("ai73:ai78").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _...................
When the command button is clicked, the code runs, and leaves me on the "summary" sheet, but I would like the code to take me back to the original sheet where the command button is: "File Preparations".
I have a worksheet named "TEMPLATE", it's codename is Sheet10.
I want to rename "TEMPLATE" using the codename for the worksheet.
How would I go about doing that?
I created a outstanding task worksheet in excel and I would like to move the completed jobs from this sheet to the second worksheet titled 'Completed Tasks'. The first worksheet is called 'Outstanding Tasks'.
I came up with a code to do this (see below). As you can see when I type "Y" into column G it moves the row into the second worksheet. It does this; however it puts it to the bottom of the table on the second worksheet where I would like it to be at the top. I also would like it to delete the row once it has moved it does this but then deletes the other row of information above it leaving blank rows on either side.
I simply want a code that moves the row of information to the second worksheet when I type Y into column G and then delete the row without messing with other information around it.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
Set rng = Target.Parent.Range("G5:G1000")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) Is Nothing Then Exit Sub
Select Case Target.Text
Case "Y"
Target.EntireRow.Cut Sheets("Completed Tasks").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Selection.ListObject.ListRows(1).Delete
End Select
End Sub
I am trying to find a way to protect and close column groupings of a number of worksheets on workbook_open procedure by looping the worksheet codenames instead of just the worksheet names in order to prevent potential problems with renaming the sheets.
This code didn't work...
Code:
For i = 6 To 25
With ThisWorkbook.VBProject.vbcomponents("Sheet" & i)
.Protect "rbse"
.Outline.ShowLevels columnlevels:=1
End With
Next i