To Run Code On Worksheet Activation
May 14, 2006
Currentley I have a worksheet(2)containing data updated from another woorksheet(1). I have a command button which runs some code for a filter ( recorded macro). can I run this code every time the worksheet(2) is activated instead of using the command button?
View 9 Replies
ADVERTISEMENT
Apr 29, 2014
I am brand new (Day 1) to VBA programming and I am running into an issue when trying to activate a sheet based on the value chosen in my userForm that I cannot seem to solve. The error seems to be a compile error and says I am missing and End statement to one of my If Then statements, specifically:
Compile error: End If without block If
I thought if the If Then statement was all on one line that I would not need an End If statement. In fact, if I try to add an End If statement, I get an error (all proceeding text turns red).
This is the part of the code with the End If error.
[Code] .....
View 14 Replies
View Related
Feb 1, 2014
I am currently putting together a Directory and want each of the 19 programs and the worksheets to be maximized when they are opened.
View 1 Replies
View Related
Oct 28, 2012
I have a worksheet change macro that from the insertion of date (dd/mm/hhhh) in a cell, fills some other cells with the day number, the week number, the month,...
Everything works fine when i fill one date after the other. But when I try to fill many cells with the same day by dragging the black cross at the right corner of the cell the macro is not activated. how to activate a worksheet change macro by dragging the black cross as a mean to fill many consecutive cells in a column?
View 6 Replies
View Related
Sep 6, 2007
I'm trying to auto sort a list of ranks that are linked to another sheet. My sort code works when it referers to input number values, but when it refers to cells that have formulas, it does not recognize the value from the formula, only the formula itself. Any ideas would be welcome.
View 4 Replies
View Related
May 14, 2014
I want activation of userform to hide worksheet, but as soon as the Userform is closed, the worksheet should show.
I have attached file to aid.
View 1 Replies
View Related
Oct 17, 2008
I am trying to set up vba as part of a macro that will do the following:
Open a master workbook
Open a data workbook( There will be a few of these to process)
Copy the data from a data workbook sheet (INPUT SHEET) to INPUT SHEET in the master workbook.
I will rename the master and then continue with the same process for the next data workbook.
I cannot copy/move the input sheet because of an MS bug whereby all of the sheet coding is lost whe you insert a sheet into a workbook.
I have set up a sheet in the master workbook that lists all of the data workbook names and paths I set the data workbooks up with a string variable name of TRGT.
I can get the coding to open the TRGT workbook but am having trouble getting the subsequent sheet commands to work in order to extract the data.
Here is a snippet of the
View 7 Replies
View Related
Mar 21, 2014
This code is to find a number in Col F that is designated in E6. Currently hitting Enter will run the macro, where in the code can I change that run command to another key besides Enter or a form control button?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
If Target.Address = "$E$6" Then[code].....
View 3 Replies
View Related
Jun 15, 2009
I'm just trying to fine tune my project to making users enter specific data into fields C17 and C19 [eg enter the word "hello" in C17 and the word "goodbye" in C19] before the command button is activated.
The existing code i am using [below] activates the command button when anything is entered.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C17, C19")) Is Nothing Then
If Not IsEmpty(Range("C17,C19")) Then
Me.Shapes("CommandButton1").ControlFormat.Enabled = True
Else
Me.Shapes("CommandButton1").ControlFormat.Enabled = False
End If
End If
End Sub
View 9 Replies
View Related
Aug 23, 2007
I have a macro that returns a lot of data and I need it to automatically resize the row in which the data is being returned. Here is an example of what I mean:
Function MyMacro()
ReturnString = "help" & chr(10) & "me"
MyMacro = ReturnString
' resize the row
' need to define "Location", based on the location of the cell in which the data is being returned
Rows(Location).EntireRow.AutoFit
End Function
Even if I specifically hardcode the location of the row to be resized in the macro, it still doesn't work. The cell has "Wrap Text" turned on.
View 4 Replies
View Related
Oct 27, 2008
I have been building a program in Excel and one of my lines of code just stopped working. I am just selecting a different sheet, say I am Sheet1 and I want to jump to Sheet2:
View 3 Replies
View Related
Dec 8, 2012
I want to activate a specific cell on a specific day...namely today.
I have a excel spreadsheet with various dates that when it reaches today i want another cell to activate and be shifted to the active cell.
I have the following columns:
Date of transaction Earned Points this transactionActive PointsActive date of pending points Pending Points
07 November 2012 R 40.00 08 December 2012 R 40.00
Now, i want the pending points to activate and be shifted to active points on 08 december 2012. my active date of pending points columns is automatically calculated from 07 november 2012 by formula =C3+31
View 1 Replies
View Related
Feb 23, 2014
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".
View 6 Replies
View Related
Feb 12, 2014
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 .
View 14 Replies
View Related
Nov 5, 2007
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.
View 12 Replies
View Related
Sep 11, 2006
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.
View 9 Replies
View Related
Feb 27, 2008
I 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 Related
Nov 12, 2008
Kill Worksheet Code. I am using
View 4 Replies
View Related
Jan 9, 2009
repeating the code on the same worksheet.
i am trying to input this code to my worksheet
View 3 Replies
View Related
Jan 19, 2010
Can 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.
View 8 Replies
View Related
May 29, 2009
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".
View 3 Replies
View Related
Dec 5, 2012
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?
View 4 Replies
View Related
Mar 28, 2014
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
View 1 Replies
View Related
May 21, 2014
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
View 7 Replies
View Related
Jan 17, 2007
I have seen many examples posted here that are close to what I need, but I am not experienced at writing code, so I am not sure how to make the changes to this code that apply to what I need. So I will try to explain what I am looking for & hopefully not be too long winded:
I have an excel workbook that has several worksheets within it - 10 of the worksheets are identical as far as the formulas that are in each of the cells, however, they are all VLOOKUP cells that refer to another excel workbook (used as a "database")which lists all of our projects - there is a cell in each of the 10 sheets that can be changed that will allow that particular worksheet to access the information in the "database worksheet" for the particular project name that is entered in this cell.
There is currently an event worksheet code for each of these worksheets which allows for a picture to be displayed "floating" above cell (L13) based on the project name that is showing in this cell- however it is based on all of the project pictures "living" in each worksheet (the picture that is called up by the project name is displayed while the rest are hidden - as per the formula)- the code is shown below:
Option Explicit
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("L13")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub
However - this option works fine when there are 5 or 10 pictures/projects - but we are looking to grow our project database. So, I was hoping to be able to store the pictures in another location (such as another worksheet or in a file on the server - I would also appreciate input if anyone has an opinion on which would work better?) and have some type of worksheet event code that can be written in to each worksheet that would access the picture in this "central" location and have them appear in cell (L13) of each worksheet based on the project name displayed.
View 9 Replies
View Related
Jan 26, 2010
i need to add a DoubleClick event to about 40 workbooks.
each has 6 sheets and the code will be added to two of them.
i can cycle thru the folders/subfolders and open the correct files.
but how do i put the code into the specific sheets using a program?
View 9 Replies
View Related
Feb 5, 2010
Basically, I have a worksheet of client info on a row by row basis.
Each client has a ref number (eg A4 is the ref for the first client. A5 the next, A6 the next etc etc)
I would like to know how to copy and paste each ref number into worksheet 'Proforma Template (2)' every 11 rows down, until the end of the client list is reached.
So, copy/paste value of cell A4 into 'Proforma Template (2)' cell E9, then A5 to 'Proforma Template (2)' E20 etc (every 11 rows)
(I've read up about various types of loops but not sure where to go with it)
Once I have this on a macro, I'll use vlookup to take the rest of the data across. (im more familiar with using vlookup so should be ok there)
View 9 Replies
View Related
May 16, 2006
How do I use excel functions in VBA code.
For example I do I use the max function which, gives the maximum value
from a range.
View 4 Replies
View Related
Jul 15, 2006
I am trying to use a dynamic range in VBA. But I am getting compile error.
Range("D19:G19").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D19").Offset(0, 0, _
Application.WorksheetFunction. CountA( activesheet.name!Master)) , 3)
In the above code Master is a dyanmic range. I need to autofill the copied data in the 3 coloumns.
View 3 Replies
View Related
Aug 15, 2006
i am trying to make a VBA that will find a certain value (BELCS), select the value, and copy it to another worksheet. this is what i have so far:
For Each BELCS In ActiveSheet. Range("B2:B" & ActiveSheet.Range("B51161").End(xlUp).Row)
If BELCS.Value = "BELCS" Then
BELCS.Select
Selection.Copy
Sheets("BELCS").Select
ActiveSheet.Paste
End If
Next BELCS
i am trying to get it to select the whole row when it finds that value but when it runs it says that i can't make a selection of the BELCS,
View 3 Replies
View Related