I have a macro tht deletes sheets from my workbook. How do I check if these sheets exist before deleteing them? Thus so that
Worksheets("MySheetName").Delete
Does not generate an error if "MySheetName" doesnt exist?
I am working on a workbook in which you can click a button on an index page to create a new sheet in the workbook with the name "meeting" and the number meeting that it is. The new sheet is then added to the index page. I am looking for a way to detect when a sheet is deleted so I can update my index page accordingly. I need to be able to know when a meeting is deleted so I can rename all meetings after that meeting and then update my index.
View 7 Replies View Relatedif there's a way I can verify that a custom add-in is active? My company uses an add-in to allow end users to construct several types of API calls. My program depends on that add-in to be installed. I'd like to try to detect the add-in and halt the program if it's not there.
View 3 Replies View Relatedi have two column of dates A & B as shown below.Among these two columns i want to check the existence of a date range 21/08/2009 to 25/08/2009.I want to check where-2 this date range is existing in the given column ....
View 9 Replies View Relatedi am using VBA to handle a pivottable in excel. i am using pt.PivotFields("Position Status").Orientation = xlHidden to hide a field. but what if this field is not there in the first place? how should i put a "if" clause so that if this field is not there, i can skip this and go to next action?
View 2 Replies View RelatedI have a worksheet with a several pivot tables on it and this number can vary. I want to do, is check if a table with a given name exists, and if it doesn't create it, but if it does, to just .RefreshTable. I tried to use
View 2 Replies View RelatedI d like to test for the existence of text in range D5 to D10000 for example
I may have this 49000897890VGN21SP. VGN21SP is text so I d like to spot it
it may also exist on its own VGN21SP can you suggest me with a macro?
like this one
Sub DeleteNAs()
Dim C As Range
For Each C In ActiveCell.CurrentRegion
If C.Text = "#N/A" Then C.ClearContents
Next C
End Sub
The workbook will consist of at least two pages:
1. A user input page
2. A records page
On the user input page, there will be two fields to enter information in... one for an exact address (ex: 600 n. nowhere) and one for a casual address (ex: On Nowhere street south of Anywhere Blvd). On the records page, I'm going to keep all the addresses and their corresponding casual addresses so that in the future, I don't have to keep inputting both.
What I'm looking to do is have a formula/function/vba code check the exact address against my records for it already existing -- and if so, pulls the corresponding casual address. For example, if last week I entered 600 n. nowhere and then transferred it into my records and then this week, I again entered 600 n. nowhere, the workbook would find the record and place the casual address for me.
I am trying to check for the existence of a record in an access table and do one of the following:
1. If the record exists, overwrite it in the table.
2. If the record doesn't exist, add it to the table.
I'm having real difficulty with the VBA code to check an Access table for the existence of a specific record, and then overwrite. I can do it with dates, but I'm looking for a unique record ID "300112_1_II" and it's trowing up a "Type mismatch" error.
For testing purposes, I'm using the following parameters:
Field = Field_1
Table = TBL_1
Record ID = Test_Record
Basically, I want to check Field_1 for the existence of Test_Record and then either edit the other fields in the record or add a new record, depending upon what it finds.
I need to perform a lookup with multiple criteria.
I am attaching a sample file.
Sheet 1 contains 3 columns
A - Report
B - Name
C - Date
Sheet 2 contains 2 columns
A - Name
B - Date (where results are to be placed)
Basically, I would like column B, Sheet 2 to be populated with the Date from Sheet 1, column c if . . . .
2 criteria
1) column A, sheet 2 matches column B, sheet 1 and
2) column A, sheet 1 = ABC
I keep getting a FALSE or #N/A results.
I use the code below to check and see if a sheet exists or not when a workbook is opened. If it does not, continue. If it does I need to run a different sub on it.
Twist, I need to check for a hidden sheet. How would I chg the code to do this?
Private Sub Workbook_Open()
'Also need to check the code in the userform. Has On.Time command.
'SplashForm.Show
Sub Sheet_Test_1()
Dim sh As Worksheet
On Error Resume Next
Set sh = ActiveWorkbook.Sheets(" total")
If Err.Number <> 0 Then
MsgBox "The sheet doesn't exist"
Err.Clear
On Error Goto 0
Else
MsgBox "The sheet exist"
End If
End Sub
Is there a way of detecting, when printing, that a cell is at the top of the page?
I am not talking about the automatic "Rows to repeat at top" option on Page Setup; I have programmatically suppressed repeating information in Column A but I want to repeat that information if the column is fed to a new page.
Would like to detect same value in 3 cells.
Q 16, R 16, S 16
If there is a same value appearing in two of the three cells.
I've written a macro to copy data from a series of columns on one sheet and past it on another sheet in a specific way. However, what I really want to do, is write the macro so it automatically detects what the last column is, either by defining a range consisting of the last column, or by writing "Last Column" in one of the cells of the column, and having the macro detect it.
Dim i As Variant
For i = 5 To 56
' What I want to do is have the second number be the last column, instead of 56.
Sheets("MASTER").Select
Selection. AutoFilter Field:=i, Criteria1:=">0", Operator:=xlAnd
Range("Basic_Data").Copy
Sheets(" Consolidate").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select
Sheets("MASTER").Select...........................
In my company we have many spreadsheets with sections that contain formulas, which may be overwritten with "hard coding", manually entered constants, in certain situations.
Is there a way I can detect the differences between the two types of cells? I would like to setup conditional formatting that would highlight constants in a table that would generally only contains formulas.
It worked well at the time and continues to work well.
The problem I have is that I've copied it for use in a new workbook and for some reason it's not picking up email addresses and storing them in the string "stemails", so that when the email is created there are no addressees. Column BA does have email addresses in it however.
[Code] .....
Using Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) I can execute code when values in the cell change, but it can't check if the foreground or background color changes. What event can detect this? If no event can, is there any way at all?
Found this, I will look into this loop: Capturing cell color change in VBA
How could I detect if the CTRL (Control) or ALT key has been pressed. I want to execute a macro when either one is press over a given cell.
View 3 Replies View RelatedA1 : Style 998 45702B WRAP DRESS 1 0 0 0 1
Try to accomplish:
I would like to remove the "1" in between "Dress" and "0"
in other word remove integer from string but starting from right only.
B1 = should contain 1
I execute custom Insert and Delete macros whenever when the user has selected a single contiguous range of rows to insert or delete.
But I don't know how to detect if the user has selected multiple, non-contiguous rows. Is there a way to detect this situation, and if so, is there a way to "loop" through the individual selections?
I've been working on a visualizer for large data sets and I'm trying to create a flexible interface. What I am trying to do is populate a sheet with objects(rectangles, triangles, etc.) and linking them all to the same macro. The macro would detect what had clicked it and read the alternative text which would hold the command procedure for that object. I've seen how people detect cursor position but I have not come across anything to detect the object that was clicked. The code I've found (in another post) is as follows:
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type
Sub CurosrXY_Pixels()
Dim lngStatus As Long
Dim typWhere As POINTAPI
lngStatus = GetCursorPos(typWhere)
MsgBox "x: " & typWhere.x & Chr(13) & "y: " & typWhere.y, vbInformation, "Pixels"
End Sub
This works but I can't figure out how to detect the object it clicked. I was hoping to use
ClickedObject = ActiveWindow.rangefrompoint(typeWhere.x, typeWhere.y)
Command = ClickedObject.AlternativeText
but all I get is errors.
I need to code a procedure which detects when a cell has changed color (I cannot assume where the cell is).
I thought I might be able to use the worksheet_change procedure, but this only 'reacts' when the cell contents change. Can anyone point me in the direction of the right procedure to implement.
I want a macro to assess whether there's a page break before column P, if so, remove it and continue, if not... continue.
View 7 Replies View RelatedI want to enable button on the Menu and Toolbar if User is selected entire row (only one row). If it is selected some Range or more than one Row, the button must be disabled. I'm using this to detect what is the user selection:
View 2 Replies View RelatedI have created a table with the values of each letter (A = 4, A- = 3.7, B+ = 3.3, through F)
I would like to have a points column which multiplies my letter grade (references a value from the table) by the units the grade is worth.
What function can I use to compare a letter grade with a value I've set.
Example:
Grade: B+
Units: 4
GPA Points Earned: = 3.3 * 4
I am trying to write a macro to paste the data that has been copied onto the clipboard into my worksheet. However I want to paste it in different ways depending on what data is there.
This is what I have so far:
Sub ImportTissue()
Sheets("Tissue").Select
If "dimensions of clipboard data are 5 cells by 5 cells" Then
Range("E11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[Code] .........
How to detect a change in a spreadsheet, but how do i etermine on which cell the change happened?
Basically, I need something like this, if in the range of b1:b30 a cell is changed by the user, let say B??, then change or modify (via a subroutine) cell A??.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'
' detect which cell in the range b1:b30 changed
' then modify the cell to the right (or left) of the changed cell
'
End Sub
I'm using this piece of code to go through Folders and their Subfolders. It works quite well in going through the first folder and its sub's but does not seem to generate a full list.
I am looking for specific files in these folders, and depending in what folder I place the file, it may or may not detect it. I require the code to go at least 3 levels deep (sometimes more).
FolderName = "C: est folder"
ProcessFiles FolderName, "*.xls"
Code:
'~~> This function was taken from
'~~> http://www.vbaexpress.com/kb/getarticle.php?kb_id=245
Sub ProcessFiles(strFolder As String, strFilePattern As String)
Dim strFileName As String, strFolders() As String
Dim i As Long, iFolderCount As Long
[Code] ......
I have the following series of formulas consecutively in a single column:
=IF(A3=INDIRECT(ADDRESS(2+MATCH(MIN(H3:H50),H3:H50,0),1)),"YES","NO")
=IF(A4=INDIRECT(ADDRESS(2+MATCH(MIN(H3:H50),H3:H50,0),1)),"YES","NO")
.
.
.
=IF(A50=INDIRECT(ADDRESS(2+MATCH(MIN(H3:H50),H3:H50,0),1)),"YES","NO")
=IF(A51=INDIRECT(ADDRESS(2+MATCH(MIN(H51:H98),H51:H98,0),1)),"YES","NO")
=IF(A52=INDIRECT(ADDRESS(2+MATCH(MIN(H51:H98),H51:H98,0),1)),"YES","NO")
.
.
.
Effectively, I am comparing the values in each set of 47 to determine which one is the smallest. The smallest entry will get a YES label next to it and all others will get a NO. The problem I am having is the the autofill feature is not correctly detecting the pattern, even if I manually fill in the first 49 entries (shown above). If I hilight all of the above entries and autofill one down, I get the following:
=IF(A53=INDIRECT(ADDRESS(2+MATCH(MIN(H53:H100),H53:H100,0),1)),"YES","NO")
It should be:
=IF(A53=INDIRECT(ADDRESS(2+MATCH(MIN(H51:H98),H51:H98,0),1)),"YES","NO")
Basically I need the H:H: reference to stay constant, but only for 47 cells at a time. After that, both the lower and upper bound should increase by 47. Is there any way to indicate this to Excel? Manually typing in the new formula every 47 entries isn't practical because the spreadsheet has thousands of entries. How I can accomplish this using a single formula and autofill?
I'm trying to make it so that a backup copy of my file is written to floppy when the file is saved (but not with SaveAs). So far, I have the following code, which if the floppy is in the drive works fine, and doesn't error out if the disk is not in the drive. But it doesn't make sure that a backup copy actually got made. How would I check to see if the disk is in the drive and loop somehow until it was so that the file got saved to floppy?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
If Not (SaveAsUI) Then
MsgBox "Please Insert Floppy Disk in Drive A:"
ThisWorkbook.SaveCopyAs "A:" & ThisWorkbook.Name
End If
Application.DisplayAlerts = True
End Sub