when the accounts exported to excel, all the tabs shown in the file are generated. However, i need to change tab '3' to tab '10' name to the name stated in tab 'menu'. eg tab 1 need to be renamed as 'BB' (not BB/Bunut), tab 2 to 'GEN' (not GEN/General), etc. All must be capital letter.
View 5 Replies
How i can encode a textbox on my userform to locate and bring all the data in the same row to the respective fields in the userform. I am working in excel 2003 vba. If you need more imformation reply me.
View 11 Replies View RelatedI would like to code a Userform Command button to save data by overwriting a specific row of data. The specific row is to be based on data matching in column A and column B. I'll give an example
Worksheet = "Failures"
Row 1 - Column A - Column B - Value
Row 2 - 12/3/2012 - FOX ------ 23
Row 3 - 12/3/2012 - CEF ------ 24
Row 4 - 12/3/2012 - COT ------ 23
Row 5 - 13/3/2012 - FOX ------ 56
Row 6 - 13/3/2012 - COT ------ 23
Row 7 - 14/3/2012 - FOX ------ 26
I would like the code that would search for the specific row (e.g Row 5 discovered by searching for 13/3/2012 and FOX) in the "Failures" Worksheet and then overwrite it with the following data values from a Userform called "QC"
(TextBox1) (TextBox2) (TextBox3)
13/3/2012 --- FOX -------- 24
Private Sub Worksheet_Change(ByVal Target As Excel. Range)
Dim S As String, X As Variant, n As Long
If Target.Column <> 3 Or Target.Cells.Count <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
S = Target.Text
On Error Goto Reset
n = Application.Substitute(S, "-", "")
On Error Goto Reset
Application.EnableEvents = False
X = Application.Match(n, Workbooks("Database.xls"). Sheets("Products").Range("B1:B14000"), 0)
If IsNumeric(X) Then
Target.Offset(0, -1) = Workbooks("Database.xls").Sheets("Products").Cells(X, 1).Value
Else............................
But each time i add it in, it ether's turns off the second statement and second works or vice versa. How can make both codes work at the same time without conflicting each other.
Trying to increment worksheet in order to summarize data from all other worksheets. I have 70+ worksheets and I'm trying to copy and paste worksheet and cell reference so that the same data on each worksheet is summarized on one sheet. Worksheets are labeled Cost (1), Cost (2), Cost (3) etc. When I copy the cell reference I can't get the worksheet name to change to the next worksheet:
=+'Cost (1)'!$E$19
=+'Cost (1)'!$E$19
=+'Cost (1)'!$E$19
I want to get this
=+'Cost (1)'!$E$19
=+'Cost (2)'!$E$19
=+'Cost (3)'!$E$19
I would like to change the worksheets names (many, anywhere between 50-100) to a cell (A2) value in each of the worksheets.
View 9 Replies View RelatedI need to create a new worksheet and control both the internal and tab names of the worksheet. The following code works to create the new sheet, and set the external (tab) name.
Sub AddAndRenameWorksheet()
Dim ws As Worksheet
With ActiveWorkbook
.Worksheets.Add Before:=Sheets(1)
.Worksheets(1).Name = "Schedules" 'changes the external name
End With
End Sub
I do not know how to set the internal name For example, I would normally go into worksheet Properties and change the (Name) property. Is there a way to do this in VBA?
On my workbook I have autocalculation off. I'm trying to think of the best way to trigger a "Calculate" upon changing sheets. So everytime you click on a new sheet, it runs a "Calculate"?
View 2 Replies View RelatedI want to select a specific worksheet by it's VB name. In other words, if the sheet comes up as: Sheet3 (ESF) in the VB Editor, I would like to choose it using the Sheet3 designation. I can do it using the (ESF) designation using:
Sheets("ESF").Select
But I prefer to use Sheet3 so when the users change the name, the macro still works.
I have created a workbook. That has 35 worksheets within it. I have created a series of buttons and put in a macro code so that when the user clicks on the button it changes the active worksheet to what they clicked on.
So basically when they click button b it changes to worksheet b and if they click button c it changes to worksheet c, ETC.
The problem I have is that since it is a macro it works fine on my computer but when it is sent to other users, because of security settings on their pcs it will disable the macro [thus the buttons will not work or show up]. I have created a digital trust certificate for it. However it is alot of steps to install this for the basic user. Is there a way to create a button that will do what I want without using a macro code. In that it will be able to go to many different users and wont have to worry about the buttons not working because of security settings?
Using VBA, does anyone know how I can change what is selected in a listbox that is a form control on a worksheet, not on a userform?
View 5 Replies View RelatedHow do I change the print settings of individual pages within a worksheet. Specifically, I'd like my worksheet to print out 4 pages, the first as portrait and the remaining as landscape.
View 2 Replies View RelatedReference: [url]
I delete sheet1, copy sheet3, rename to sheet1 and then attempt to rename the CodeName to Sheet1 as well.
This worked initially with out errors.
Now on the first run of the macro it generates an error:
Run-time error '32813':
Method 'name' of object '_VBComponent' failed
This fails to rename the CodeName of "Sheet1" (.Name)
Run it again and it renames the CodeName but generates yet another error:
Run-time error '-2147221080 (800401a8)':
automation error
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.AutoFilterMode = False
Range("d6:g6"). AutoFilter
Range("d6:g6").AutoFilter Field:=2, Criteria1:=Range("e1"), Operator:=xlAnd, _
Criteria2:=Range("e2")
I've attached the file also.
What i intend to do is that : (1) if i enter a value in E3, the filter should only apply using E3 value (currently its applying E3 value but if E4 is kept blank, it takes that as = " " ) . Unfortunately, i need to have the and condition, so i have to find a way in spite of this condition. Any way out ??
(2) If i enter values in A) E3 & F3 B) E3, F3, G3...then it ahould make multiple filtering possible. But when i try to apply such a condition, the same problem as in point (1) occurs, it takes the and empty criteria range as = " "
i want to change the table_array reference without changing formula in every worksheet. I tried using a new worksheet and naming it the same as what is referenced in vlookup table_array but it messed up all the data.
I have to use a different worksheet every month so need a way to change reference OR how to change array data without messing up the worksheets with the vlookup
I am trying to code a macro to run down through a column and hide the row if it finds a cetain marker (i.e. the letter "n") in the column, and then move onto the next one.
View 9 Replies View RelatedMy spreadsheet calculates the date on a daily basis.
I would like to create a code in my spreadsheet which uses the year and month in question.
First, 2006 is is designated as a "3"
2007 "4"
2008 "5"
2009 "6" etc
Don't worry about anything prior to 2006.
Next, the months are represented by single digits. So, January = 1, February = 2, March = 3, April =4, etc. September is 9, and October = 10 but all the numbers over 9 have to be reduced to a single digit, so October = 1+0=1, November =1+1= 2, December =1+2= 3.
Now, the formula for the Month is:
Year + current Month
So, May 2007 = 4 + 5 = 9
June 2007 = 4 + 6 = 10 = 1
July 2007 = 4 + 7 = 11 = 2,
January 2008 = 5 + 1 = 6, etc
Is there a way of coding a macro in VBA that allows you, with one macro, to enter text in one cell and at the same time enter a value to the cell on it's right?
I don't want to name the cells, but I wondered if you could add to the code a piece of code that basically said "Select the cell to this cell's right and add the value x".
I have made this vba to go out and look at 2 different locations which contain simular folder names.
The script then writes the folder names in Column A, followed by the Size of both the folders from the 2 locations. The script is comparing the second location folder name to what the first process put in Column A so the folder names will be aligned with the file sizes. It is also converting the file sizes from bytes to the most appropriate one.
The problem I am having here, is once I put the second part in for the second folder, the script is either taking forver (More than an hour) or is freezing. So I am not sure if I put it in a loop somewhere or what exactly is happening. I am just wondering if I can get some help troubleshooting and optimizing this code....
How it is possible to lock the VBA coding and Modules? I mean when Some one want to view VBA coding the Password window should not appear, istead of that a message box appears with message something like "Not viewable"
View 9 Replies View RelatedI have a drop down box with the 10 different shifts we run here at my work. Ie - Daytime (0700-1500), Nightime (1500-2300) etc. I have these on a drop box as stated earlier (Cell 6) - and want to code a selection from within the box, to effect Cell 7 with the approriate hours worked depending on what I selected in Cell 6.
View 2 Replies View RelatedI am looking to create coding that once stock gets to a particular level a text box pops up to alert the user that more stock needs to be ordered and ideally I would like once the user selects ok for it to take them directly to the appropriate email template.
However, I don't want the text box to come up while we are waiting on the stock to be ordered.
i.e our current minimum stock level before placing our next order is 10,000 units. Order is placed and can be received within 10 - 14 days. During this time our 10,000 units will be used but I don't want an alert to pop up to remind the user to place an order as this action will already have been carried out.
I'm trying to write a code which would place formulas in the row just below the my range (normally a matrix of figures) to sum the column in that just above that. Here's what I've got so far but it doesn't work.
View 6 Replies View RelatedI am writing VBA code to do the following:
IF A1 > 50 then print array C1:E7
I have this code and it works.
I have placed the following code in my spreadsheet but it's not working!
the code after option explicit (now at the bottom) works, (thanks to Andy on here!) but all the disabling the right click and cut/copy/paste etc doesn't.
I have table where i have to find a value based on 2 criterias. So i have used in Excel the below formula:
=INDEX($A$1:$D$7,MATCH(1,($A$1:$A$7=$F2)*($B$1:$B$7
I was wondering if there is a workaround for sorting in Excel by MORE THEN 3 CRITERIA?
I have seen a couple of solution doing 2 seperate sorts but was wondering if you can write code to expand on Excels limited sorting capabilities?
i'm trying to figure out a formula that if a cell is greater or equal to another cell - color a cell "GREEn"
otherwise...color the cell "red"
I am trying to figure out how to run a macro for 1 particular workbook in an excel spreadsheet. I don't want it run on any of the other workbooks in that file, just the 1. I can't use conditional formatting because I need more than 3 values (if statements).
This is what one example of data in a cell and below is the color I'd like it to turn when I run the macro:
T: 6/1/07
A: 6/8/07
Anything that has a A: (which means an actual date it happened) I'd like the cell to turn blue. If there is an RT: (which means revised target) I'd like the cell to turn red which means it missed it's target date, and has been revised. If it has a TBD I'd like the cell to turn pink (or yellow or any color really). All other cells are just white. I don't know where to find the color codes in excel as well. Other samples of what cells look like are below.
Here is another example:
T: TBD
And final example:
T: 6/4/07
RT: 6/15/07
where can I get vba coding for a simple clock.
I would like the clock to be digital rather than analogue if possible
