DATA MATCHING
Closed
ashok
-
May 27, 2010 at 03:08 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - May 27, 2010 at 05:48 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - May 27, 2010 at 05:48 AM
Related:
- DATA MATCHING
- Tmobile data check - Guide
- Gta 5 data download for pc - Download - Action and adventure
- Digital data transmission - Guide
- Data transmission cable - Guide
- Transfer data from one excel worksheet to another automatically - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
May 27, 2010 at 05:48 AM
May 27, 2010 at 05:48 AM
all the data are in sheet - sheet1-like this
see this ulr
https://authentification.site/files/22649013/ashok.xls
see the formula in D3 which is copied down and also the formula in I3 which is also copied down.
to be safe the sheet is copied in sheet 2 also
now try this macro (which is the vbeditor )
=========
Sub test()
Dim r As Range, c As Range, cfind As Range, x As String
Dim r1 As Range
Worksheets("sheet1").Activate
Set r = Range(Range("I3"), Range("I3").End(xlDown))
Set r1 = Range(Range("d3"), Range("d3").End(xlDown))
For Each c In r
x = c.Value
Set cfind = r1.Cells.Find(what:=x, lookat:=xlWhole)
If cfind Is Nothing Then
Range(c.Offset(0, -3), c).Clear
End If
Next c
End Sub
======================
see this ulr
https://authentification.site/files/22649013/ashok.xls
see the formula in D3 which is copied down and also the formula in I3 which is also copied down.
to be safe the sheet is copied in sheet 2 also
now try this macro (which is the vbeditor )
=========
Sub test()
Dim r As Range, c As Range, cfind As Range, x As String
Dim r1 As Range
Worksheets("sheet1").Activate
Set r = Range(Range("I3"), Range("I3").End(xlDown))
Set r1 = Range(Range("d3"), Range("d3").End(xlDown))
For Each c In r
x = c.Value
Set cfind = r1.Cells.Find(what:=x, lookat:=xlWhole)
If cfind Is Nothing Then
Range(c.Offset(0, -3), c).Clear
End If
Next c
End Sub
======================
