Sheet1 Column1: contains the word "dog" Column2: contains the word "bark"
Sheet2 Column1: contains the sentence "I like dogs a lot." Column2: is blank
What I need to do is search Sheet2/Column1 for the presence of "dog" and if it's present, populate the word "bark" in Sheet2/Column2 from Sheet1/Column2.
I got 2 columns A and B, I need to find if the cells in colume B are in cloumn A and do some copy pasting. But sometimes when it cant be find in column A, then VBA shows an error message. What I want is if it cant be find in column A, then skip it and go to the next cell of B and find it in A again. I think it can be done with On error resume next, On error goto 0, but i cant make it work.
I am using the below code and it is not performing the operations of comparing and deleting the duplicate values from sheet1 and pasting unique values in sheet 1, p.s. Do not need values from sheet 2, just want to compare the sheet 1 with 2 and delete dups in sheet1.
I have I workbook that contains 2 sheets. The first sheet "Business Objects" is the master list. The second sheet "Gene" contains similar data but is incomplete. There is a unique identifer for both sheets and that is item ID. what I would like to do is look at the Item ID column on sheet1 compare it to SS# on sheet two and copy any rows from sheet1 to the end of the sheet in sheet 2. I have found in my searches on this forum a bit of code that identifies the ones in sheet1 that are not in Sheet2 and highlights them red(which is not neccessary for me, but I am struggling to figure out how to take that and paste it to sheet2.
right now it will check for col C and D , if both col have zero it will delete, i like to change the code , so it only check for C col , if it is zero , it delete the row.
Sub macro_07_if_detect_2_zero_delete_row()
Dim lastrow As Long, i As Long Application.ScreenUpdating = False Application.Calculation = xlManual With ActiveSheet On Error Resume Next .Columns(3).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete On Error GoTo 0 lastrow = .Cells(Rows.Count, 3).End(xlUp).Row For i = lastrow To 1 Step -1 If .Range("C" & i).Value = 0 And .Range("D" & i).Value = 0 Then .Rows(i).Delete Next i End With Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
I'm creating a macro with several brands in a variant variable.
The only thing that isn't working, is the find function. I want to find "Brand" & variable. So when my variable is "medicijn1", then I want to find "Brand medicijn1". However, when I try, it gives me the following error:
"run-time error '91': Object variable or with block variable not set".
The macro basically looks like this
Sub Medicijnen() Dim Medicijn As Variant
Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Medicijn In Array("medicijn1", "medicijn2", "medicijn3", "medicijn4"")
I have a file. In sheet1, Array from row 2 to row 16 named "Vung1". array 2: row 20 -> 27 with name "Vung2".
I need: In sheet2, if I select "Vung1", Below with echo "Vung1" from sheet 1 (Keep format) and if I select "Vung2", it will echo "Vung2" from sheet1 (Keep format too).
I have: - sheet1.xls, this is the source sheet. column A = model numbers - sheet2.xls, have the data that I need to copy to sheet1.xls column C = product description text and in column D = product price column G = product description text and in column H = product price
What I need to do is to write a Macro that:
open each row in column A in sheet1.xls and search in sheet2.xls in column C if it finds this text (model number) then it should copy row D (product price) and paste it to column E in the right row in sheet1.xls. Also search in sheet2.xls in column G if it finds this text (model number) then it should copy row H (product price) and paste it to column E in the right row in sheet1.xls.
I hope please that you understand me. And will be happy if someone could help me please to do that
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row = 2 Then If Target.Cells.Count 1 Then Exit Sub boo = Target.Value boobs = Target.Offset(-1, 0).Value nocold = 4 WO_update_cust End If If Target.Column = 2 And Target.Row = 3 Then If Target.Cells.Count 1 Then Exit Sub boo = Target.Value boobs = Target.Offset(-2, 0).Value nocold = 5 WO_update_cust End If End Sub
i have another script than unhides a sheet and copys whats in the template to it.
Simply put i want to copy this script to it too.
i used a copy and add sheet method but i need to be able to do this in a shared workbook, hence the hidden sheets instead.
Is there any way to make one cell on a separate sheet appear EXACTLY the same, including formatting and values? As in this for example: Copy this value and formatting
I would like to keep the formatting, (color and bold), but I have not figured out how to do this. I read a couple other posts but could only copy the values but not get the formatting to also copy over.
i'm trying do is have information from sheet1 copy to sheet2 upon selecting a value from a DV list. Based on my attached sample, in Column J, upon selected "Yes", I would like to get the information from A6:H6 copied to sheet2 in the same row. I've tried it with the "if" formula and writing a macro for it.
All data is located within one book. I have two sheets with material codes in each sheet which include pricing (existing and current)
Sheet1 (has existing material codes plus existing pricing) Has about 1200 lines Sheet2 (has current material codes plus current pricing), has about 36000 lines
I need to cross check if the material code (taken from sheet1) are still available in sheet2, and if they are, copy the current price back to sheet1. The current price needs to be pasted back into sheet1 (next to the existing price). If the material code doesn't exist (for whatever reason, in sheet2), the program needs to move onto the next line and leave the current price for that material code blank. The program should finish once all the lines in sheet1 are completed. I have attached a sample of what I'm trying to do,
I have created a code in which the information from Sheet 1 copies to Sheet 2 correctly. Every time I input new information for my click event (ticket sales/amount received/change due) I want this information to be displayed in Sheet 2. However, every time I start a new submission, the information overwrites on the second Row so that only one submission is displayed. I need to create a history of all submissions from Sheet 1. Here is the code that I have to copy Sheet 1 to Sheet 2:
VB: intRow = intRow + 1 If intRow = 1 Then intRow = intRow + 1 End If
In sheet1 I have 4 columns; Name, Age, *** and Job.
Sheet2 has three columns; Name, Age and Job.
What I need is VB that will check the *** column from Sheet1 and when it is Male, the Name, Age and Job fields from that row are copied into the cells in Sheet2.
I want entry the data with different row and different cells, so when I click the button, the data on sheet1 is clear and copy to empty row on sheet2 and automatic create a border and automatic insert new row, so we can entry again and next. And I attached my sample Excel File with the description too.
I have a sheet of data (Sheet1 below) running into almost 1000 rows. Each month, I get an updated sheet (Sheet2) which has overlapping data with sheet1 (rows starting with N, O, P, Q), new data (rows starting with R, S) and data present in Sheet1 but not in Sheet2 (row starting with M in Sheet1). The columns "Item" and "Quantity" in sheet1 are populated by me and are blank in sheet2. The table below explains the structure.
Sheet1 Name ID Date Item Quantity
M 231 14/03/2001 egg 5
[Code] .......
It gets tedious to update Sheet2 every month. Is it possible to merge the 2 sheets into a Sheet3 (like below) if Name, ID, Date in each row is an exact match?
Sheet3 Name ID Date Item Quantity
M 231 14/03/2001 egg 5
[Code] ........
Further, it will make my job much easier, if it was possible to identify rows only present in Sheet1 and add a tag "absent in new" in a new columnidentify rows only present in Sheet2 and add a tag "new" in the new columnidentify rows with matching data in Name, ID, Date in Sheet1 and Sheet2 and add a tag "current" in the new column.
Something like the table below:
Sheet3 (Desirable) Name ID Date Item Quantity Comments
I want text that's in bold in column B in sheet 1 of my spreadsheet to copy over into column A in sheet 2 of my spreadsheet - is there a quick way of doing this using code or a formula?
I have two sheets: Sheet1 - linked from external file, new data coming daily. Sheet2 - I need to copy/past Rows from Sheet1 to Sheet2 but only if B-cells are not empty. How can I automate the process?
I dont know how to do it here, but in Excel i have January (2columns) Febaruy (2columns) March tables. filled each table with its determinated data, and going down i have 3 more months, and so etc till i complete 12 tables one per month.
So now what i need is: That in Sheet1, where is Select Month be some kinda of drop down list, which allow me to pick the month i wanna see, and then when i pick. for example: April, then go to Sheet2, find the April table, and bringthe values to fill the table in Sheet1 , whatever option be, flirting, or copying just values, or filling the table. I really dont know what be easier.And then if i pick another month like October, do the same, etc.
have two worksheets, "Entry form" and "Database" in my workbook. I am trying to put together a macro button to find the cell value D5(Entry form) in the column A:A (database), if found, copy selected cells (B5:D5,B7,B9) from entry form and paste in the adjacent cells of the row with the value in the database sheet.
VB: 'Match value D3 and replace data Dim sht As Worksheet, outsht As Worksheet, r As Long Dim rfoundCell As Range
I have data beginning in cell A6 and continues through cell A13 for this instance. I want data in cell A6 on sheet 1 to be copied to cell B1 in sheet 2; data in cell A7 sheet 1 to be copid to cell C1 sheet2 and so on till all of the data in the continuous range beginning in cell A6 of sheet 1 has been copied to row 1 beginning in cell B1 of sheet2. This seams relatively easy but below is my failed attempt at this.
Code: Sheets("Data Request").Select Dim DATAREQUEST As Long, TYPESRws As Range TYPES = WorksheetFunction.Max(Range("A" & Rows.Count).End(xlUp).Row) DATAREQUEST = Range("A6", "A" & TYPES).Rows.Count Sheets("Data Retrieval").Select For i = Range("B1", "1" & DATAREQUEST).Columns.Count To 1 Step -1 Sheets("Data Retrieval").Select [B1] = i ActiveCell.Offset(1, 0).Select Next i
Trying to assign code to comm. button on User form to copy lets say:
(sheet1, rangeB2:B21) to (sheet2, first blank row rangeB2:B21) and paste it as text value one more question: what to be aware in case of sheets format (merged cells, hidden rows...)
