I 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 RepliesI'd like to write a formula that check if a string (contained in another cell - say A1) includes at least one occurrence of one of a set of 5 sub strings. If the substring is included then it should return which one.
For istance, say that the cell A1 = " The colour is BLACK" then I'd like a formula in cell B1 that check if any of the following strings is included in A1 (RED, GREEN, BLUE, BLACK, ORANGE) and that tells me which one.
How to do this with a one cell formula ?
Can the below be achieved with any formulae or macro -
I have 2 worksheets (sheet1 & sheet2). In sheet2, i have some colors in column A (e.g. "red" in A1, "blue" in A2, "green" in A3.
In sheet1, i have some text strings in column A, e.g.
A1: I love red color
A2: my pen in blue
A3: Green grass
A4: Orange juice
A5: I like red and blue
What i want in corresponding cells in column B, is the name of the color which is in column A. so my output should be
B1: red
B2: blue
B3: green
B4: "NIL" (any error message)
B5: red (even though it contains 2 color, i am happy to show any one of the colors it contains)
I have a list of strings as such
A1: A
A2: B
A3: D
A4: E
How can I check to see if this range is sorted with vba?
I have searched but havent found anything for strings.
I can only think of adding each cell to an array, creating a copy array, sorting the copy array and then comparing the two arrays. I want it to return TRUE, FALSE or 1, 0
I have strings like this:
"xx-xx-100-ap01"
"xx-xx-200"
"xx-xx-200-ap01"
"xx-xx-200-ap02"
etc
I'm running a loop on all cells, and checking different values in each row where this strings occure.
But I would like to do a IF check on this string. If it find a string with 'ap' in it, it should do my check.
My problem is to understand the combinations of right, len, mid, instr etc. How could I use this functions to do checks in the strings.
I have some code traversing a directory of folders and subfolders on a shared server and returning a list of those file paths. Around 6000 folders with about 2 subfolders on average. This returns a list of 12000 filepaths but takes around 13-15 minutes to do. Each path looks something like this:
C:Folder1
C:Folder1Folder1SubFolder1
C:Folder1Folder1SubFolder2
C:Folder2
C:Folder2Folder2SubFolder1
C:Folder2Folder2SubFolder2
I need to do a vlookup that takes a string from one cell and then tries to find that string (embedded in a larger string) in the table array
Essentially I imagine this involves the FIND function at some point.
Attached is an incredibly simplified example of what I'm looking for.
I am trying to find a function that will search for a particular name in a range and return ALL rows (or, preferably, specific cells in that row) which have that name in it, onto a new sheet.
eg. Sheet 1
Fred 45m $50 6/2
Joe 30m $35 5/28
Pete 60m $60 6/4
Fred 30m $30 6/6
If this range was on sheet 1, I would like to show on sheet 2 all times and dates for Fred in consecutive rows. ie the result on sheet 2 would be: Sheet 2
Fred 45m 6/2
Fred 45m 6/6
If selecting individual columns cannot be done, then the whole row would be fine.
I have been trying to use the concatenate function to join some text strings to a cell on a different sheet - From an input sheet -Sheet 1 named Input, to a Notification Form (Sheet 2). Although the Function Argument display tells me that it will display the result I want it actually displays just the formula. It's a very simple thing
Address 1 10 Downing Street
Address 2 Westminster
Address 3 London
Postcode SW1A 1AA
I want displayed as: 10 Downing Street, Westminster, London, SW1A 1AA in a single merged cell. All I am getting on the Form is =concatenate(Input!c25," ",Input!c26," "Input!c27," "Input!c28). I feel sure that it is a very easy solution but I can't arrive at it!!
I have an excel worksheet with about 10K rows of data in column A.
I have also another list of data, about 200 rows of data, in column G.
I need to color each cell in column A that contains, anywere in the string, any of the data strings in column G.
Example:
in column A
row 1: info@duende.com
row 2: rasko@silvester.com
row 3: supportonline@fabius.com
row 4: myhelp@friday.com
in column G:
row 1: help
row 2: info
row 3: support
I need rows 1, 3 and 4 in column A to be colored.
How would I go about counting the number of times TA shows within strings of text in a range within a sheet. Example: TA,MH in cell A2, CB,TA in cell C40, ES,TA in cell Q19. Result would be 3. Ideally, I'd like the formula to reference a cell that has TA as the look up data such as in A1 I'd have TA.
View 4 Replies View RelatedI 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 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 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.
I am using the macro below to import every spreadsheet into a folder. I would like to modify it to check the sheets it is importing for sheet protection. If the sheet protection is turned on, I would like it to turn it off. The password for the sheet protection will be "PIR".
View 3 Replies View RelatedI am trying to write some code that will copy the worksheets from one workbook (wkbSource) to another (wkbTarget), but I need it to maker sure the worksheets being copied from wkbSource don't already exist in wkbTarget. If they do exist, it just skips and moves to the next worksheet. Here is the code I have already, I thought that by adding the On Error Resume Next to the code it would just skip it, but for some reason it is still copying the first duplicate workbook, then it skips.
Code:
Dim wkbSource As Workbook
Dim wkbTarget As Workbook
Dim WorkbookName As String
WorkbookName = ThisWorkbook.Name
[Code] .........