Hello,
Please help me out.
I have followig values in "Sheet1",
Eg:
A
1 Apple
2 Orange
3 Lemon
In "Sheet2",Payments are made for those values present in "Sheet1" and for others.
Eg:
A B
1 Apple $20
2 Tiger $50
3 Lemon $14
4 Apple $36
5 Giraf $54
If value present in "Sheet1" matches in "Sheet2", then the entire row should be retrieved and displayed in "Sheet3". Others should be ignored.
Eg:
A B
1 Apple $20
2 Lemon $14
3 Apple $36
Thanks !
Configuration: Windows XP Internet Explorer 7.0
Try
Sub test()
Dim rng As Range, c As Range, x As String, cfind As Range
With Worksheets("sheet2")
Set rng = Range(.Range("A1"), .Range("A1").End(xlDown))
For Each c In rng
x = c.Value
Set cfind = Worksheets("sheet1").UsedRange.Cells.Find _
(what:=x, lookat:=xlWhole)
If Not cfind Is Nothing Then
c.EntireRow.Copy
With Worksheets("sheet3")
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
End With
End If
Next c
End With
Application.CutCopyMode = False
End Sub |
=if(find("?",c2,1)>0,1,0) returns #value! excel Can you say in excel if two cells are the same return result Check combobox value in internet explorer using vba Check value is uppercase and lowercase in c Excel if value is between two values return Excel vba check cell return value Filtered lists excel 2007 formula to return first value Formula cell value range equals result How to check values in each column, excel How to search string in excel return cell value vb6 If function return value from another cell Return cell value Return header value for a specific cell value Vba check value if equals different values Vba excel return value userform Vba function to return largest value from three numbers Vlookup for to check the values from two columns and return one value What is the significance of des key check value