I have a macro that creates a new sheet and names it based off a cell value (date, MM-DD-YY), and copies a 'Template' sheet to it, values only. Every so often, two sheets need to be made with the same date. I need the right direction in creating an addition to the below code that will add an A, B, or C at the end of the sheet name if the name is already taken?
View 13 Replies
I've 1000's of website URLs which I need to open one at a time, and check if the page contains message such as 'Product not found' or 'Oops...' or 'Page not found' or 'Error'
Is this possible using Excel / VBA ?
[URL]
I have a large spreadsheet that has thousands of hyperlinks that I would like to check periodically to make sure they are up to date. I have found dozens of examples of VBA code that will do this for me and seemingly very clear instructions on how to do it (for example this), but haven't yet been able to successfully run anything in my spreadsheet. It either doesn't do anything, or I get an error message of a bad file name.
View 2 Replies View RelatedI have this formula =COUNTIF(WallA,D35) which works great unless the named range is deleted. Is there a way to check to see if the named range is valid in formula?
View 9 Replies View RelatedI was wanting to use an IF Then statement to check if numberes entered into cells in Sheet1 were valid numbers in another sheet. The valid numbers will not always be consecutive.
View 2 Replies View RelatedI am using VBA to determine the data type of the active cell value. I have the following:
'To check Number
IsNumeric(ActiveCell.Value)
'To check Date
IsDate((ActiveCell.Value)
'To check Formula
ActiveCell.HasFormula
'To check Text (*not perfect solution)
WorksheetFunction.IsText(ActiveCell.Value)
However, I cannot find the way to check for Time. In addition, the method IsText will return True even if the active cell value is a date.
I have a cell in which I would like to have a user enter an email address. If it does not follow a valid format I would like it to display an error message, "Invalid E-mail Address", clear contents and re-select the cell otherwise move to the next cell. By Valid email I want it to check for only one "@", and at least one "." but I also want it so that a user can't just bypass it with typing "@.". I would like it to reject special characters and spaces and only allow "-" and "_" maybe a general format of <name>@<place>.<domain>
The cell in question is K45 and the following cell would be K47 if a valid email is entered
Any way to check if data entered is a valid date using a VBA function/routine?
For example, cdate() and isdate() functions accept dates like 31-Feb-12 and 29-Feb-11 when they are not valid.
If the cell is formatted as date format, then Excel replaces hyphens with forward slashes for dates, except invalid ones like 31-Feb-12 and 29-Feb-11, so in these cases I can test for existence of forward slashes in the following way
Len(Mid(pCell, InStr(pCell, "/") + 1, Len(pCell) - InStr(pCell, "/"))) 7
However this approach fails for Input boxes. Obviously I can't convert the Input box response using cdate function as it will incorrectly accept 31-Feb-12 as a valid date.
Any routines that will work for both cell entered and Input box entered dates?
want to do something simple, and it just wont paste. not sure why. anyone care to look it over and tell me what i'm doing wrong here?
'Insert Date Information
Dim vDate As Date
Range("D2").Select
ActiveCell.FormulaR1C1 = Date
vDate = Date
'Get date from user
Dim dDate As Date
vDate2 = Application.InputBox(Prompt:="Type in the due date for the location." _
& Chr(13) & Chr(13) & "*If you want the date to default to " & Date + 5 & " then leave the field blank.", _
Title:="Due Date", Type:=1 + 2).............
I need to create a leave tracker wherein i will get the names of the person who want to take leave in that particular month. I have prepared a calendar to make an entry. I need to take care of the following things
1) The person must have sufficient leave balance available to take the leave. so i have to first check if he/she has sufficient leave balance.
2) There are four team leaders and each team has around 13-14 members. so if lots of people from the same team apply for the leave then they will not be eligible for leave. this i want to know in percentage as to how much percentage of people are taking leave from that particular team.
I have the following macro, which is assigned to ctrl+shift+h to allow users to make a list and to insert hyperlinks to other sheets that have more details than the list can show:
Code:
Sub linker()
Dim strDocument As String
Dim strSheet As String
Dim strAddress As String
Dim strLink As String
[Code] .......
I was surprised to see that even if the contents of the active cell is not a valid sheet name in the target document, the link is still inserted without error. If the link is subsequently clicked, the target document will open and an "invalid reference" error box will appear.
Is there any way to check whether the contents of the cell constitutes a valid sheet name in the target workbook at the point at which the hyperlink is created, without opening up the target document?
Excel macro to retrieve some valid data from one sheet to another which has some values.
Description;- I have made an excel sheet for daily stock details which contains data like stock in, out, daily production for various products. I have made a menu which contains button of stock in, out and production, and one sheet for current stock where I enter In and out. I wand a macro when I click the button from the main menu it gives me all the production details taking from one sheet and past it in different sheet in the same workbook but it should not give the details of those products which does not have and production.
I import some text from a web page. The data is separated in rows and columns so it easily slip into cells in a nice row and column manner.
Now, I want to parse some names in one column (column A:A). The names do not reside in any other column. I want to change the content for those cells that is "Alpha Beta" into just "Beta", and I only want the replacing to be carried out on a specific sheet (named "Import").
I've recorded a VBA script and it look like this:
Cells.Replace What:="Alpha Beta", Replacement:="Beta", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
But, when I try different setting for the range I get the same script, I mean, for when I try the search & replace with settings for both the whole workbook and for the current sheet.
How can I control the search & replace with VBA to only be valid for a defined sheet?
I want to create a code that adds a check box for each sheet that's added and takes the name of the sheet as the Caption.
View 10 Replies View RelatedI have 2 sheets of data. I am looking for a macro that will check if there are any strings that exists on Sheet1 but not on Sheet2 and if they do, paste them at the end of Sheet2. All of this data is in Columns A by the way.
View 6 Replies View Relatedcode to get to know about the sheet in a worksheet is blank and then delete that.
View 5 Replies View RelatedI have this macro that looks in all sheets in column A, except the invoice sheet. How do I alter it to only check the active sheet?
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name ("Invoice") Then
On Error Resume Next
With ws
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
With .Columns("A").CurrentRegion
.Offset(2, 0).Resize(.Rows.Count - 1, 3).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Invoice").Cells(Rows.Count, "A").End(xlUp)(2)
End With
.Cells.Rows.Hidden = False
End With
Err.Clear
End If
Next ws
so i have a list of names. the code i have is able to add new sheets to the workbook. but i need the code to be able to run and check all the other worksheets in the workbook to see if that person already has a worksheet. if he/she has a worksheet then End If and go on to the next name.
Sub AddSheetWithNameCheckIfExists()
Dim ws As Worksheet
Dim newSheetName As String
Dim row As Range
Dim x As Integer
Sheets("data").Select
Range("Agent_name").Select
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Name = "employees"
x = 0
For Each cell In Range("employees")
For Each ws In ActiveWorkbook.Worksheets
newSheetName = ActiveCell.Offset(x, 0).............
I have a userform that copies a sheet in the workbook, renames the sheet & creates a hyperlink to that sheet using the following code.
Private Sub cmdEnter_Click()
Application. ScreenUpdating = False
If ActiveCell.Column <> 1 Then
MsgBox "Go to column A to before inserting a row"
Exit Sub
End If
The problem I have is I can't figure out how to incorporate error checking if the sheet already exists.
What I would like is a message stating that the sheet exists and allow the user to make required changes on the userform.
I am in sheet1, Is there a code to check if the sheet 1 is active or not?
View 6 Replies View RelatedI am writing a macro for a my team. I will distribute the .bas file then have them run it. I don't know what their individual sheets in their workbook are called so I need to ask them. Grab various columns from that sheet, check if they have a sheet called data import, then put in the columns in order in data import.
I have:
Code:
Private Sub checkForSheet()
Dim sh
On Error Resume Next
sh = Worksheets("Data Import").Name
If Not Err.Number = 0 Then Sheets.Add.Name = "Data Import"
On Error GoTo 0
End Sub
to check if Data import is made
Then
Code:
Sub prepareData()
Dim SCMsheet As String, TSE As String
Dim DISh As Worksheets
SCMsheet = InputBox("Enter your SCM Sheet name in entirety.")
If SCMsheet vbNullString Then
[code]....
But it doesnt stop scmsheet is not in the workbook, and the values arent put in.
Is it possible to use spell check on a protected sheet?
View 9 Replies View RelatedI want to Check the Duplicate Name in the Excel Sheet Using VB Macros
****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 11">****** name="Originator" content="Microsoft Word 11">
If the 1 nd Row Contains Name as " 101 Calif " and the Value For Vb is 77
2 nd Row Contains the Same Name "101 Calif " and the Value for this is 2.
Now I want the Output As Follows
101 Calif and Column 3 values is 79(77+2) and Column 5 Value is 105 and Column 7 Value is 105 and Column 9 is 100 and Column 11 is 3 and Column 13 th Value is % Value . (10+30/2 = 40/2= 20 )
***** http-equiv="Content-Type" content="text/html; charset=utf-8">****** name="ProgId" content="Word.Document">****** name="Generator" content="Microsoft Word 11">****** name="Originator" content="Microsoft Word 11"> Vendor
Actual YTD Annualized
Forecast
2007 Actual Difference % Change.........................................
I need to figure out how to tell if the sheet is empty with the exception of the header row that resides in Row 1. I have looked though the archieves, tried about 10 - 15 possible solutions, only for one thing or another to go wrong.
What this does is, if the data sheet is empty except the header, I need it to report that the user must add data. I have it checking row 1 column 1 but thats the header, and row 2 column 1 may or maynot contain data..
So if row two is empty then report that the sheet is empty, sans the header.
Sheet name = Data
Row 1 has header
Row 2 competely empty?
I have a command button that copies a template worksheet and names it with a date that the user chooses. Problem is, the user can choose the same date more than once. So, I need to have the command button check for all the sheet names, and if it finds a duplicate, prompt the user to enter some text to concatenate to the original sheet name, therefore making it's name unique. My existing code is as follows:
Private Sub CommandButton1_Click()
MsgBox "Please be patient. Creating a new Week Ending sheet can take several minutes!"
Call AddNewWE
End Sub
Sub AddNewWE()..............................
I have excel file, consists of 4 sheets Data, PF, Gratuity, Discrepancy. Here I have Emp no. field as key field, now here first I have to check Data Sheet data with PF.
For example,
Suppose, we are considering Emp no.: 4 from data sheet. It will check in PF sheet for same Emp no. if it find then it will check the relationship and first name and last name from data sheet. If it is ok then it will return output in discrepancy sheet with OK. Discrepancy sheet format:
Emp No. Spouse Child1 Child2 Father
(All the relationship present in Data Sheet in Column)
4 OK
9 OK OK OK NA
And so on.
I need a macro that would sort out the true value in column A, and paste it to another sheet (range A77)
View 10 Replies View RelatedWhat I am trying to do is, check if the value of c2 in update is the different to the value of c2 in original then run a code (for the moment just says msgbox so I know it works).
Code:
Sub what_needs_update()
'UPS = Sheets("Update").Range("c2:76")
'ORS = Sheets("Original").Range("c2:76")
For Each cell In Sheets("Update").Range("c2:S76")
[Code] ..........
I need to allow users to add up to seven new worksheets as required and the new sheets must be named Image1, Image2, etc. I do not want to add seven worksheets at once, only one at a time as the need arises and no new ws can be allowed after Image7 ws is added.
I have a macro to test for the existence of ws Image1, but need help on further development to add and test for the extence of the remaining sheets.
Dim ws As Worksheet
Dim bTest As Boolean
For Each ws In Worksheets
If ws.Name = "Image1" Then
bTest = True
Exit For
End If
Next ws
If bTest = True Then
'Need some code here, not sure what I need
I have a sheet1 with following column name Ab,Bb,Cb,Db,Eb,Fb and sheet two contains Ab,Xc,Eb,Sv,Db,Fb,Gm,Cb,Hb these headings are on 7 line of both excel sheet.
Now I want to check each cell under column name Ab in Sheet1 and compare it with all the cells under column name Ab in Sheet2. If both matches then update Cb,Db,Eb,Fb of Sheet1 to the corresponding columns in sheet2 for that column name.
