DATA MATCHING
Closed
ashok
-
27 May 2010 à 03:08
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 27 May 2010 à 05:48
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 27 May 2010 à 05:48
Related:
- DATA MATCHING
- Tmobile data check - Guide
- Data transmission cable - Guide
- Download facebook data - Guide
- Transfer data from one excel worksheet to another automatically - Guide
- Whatsapp video call data usage - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
27 May 2010 à 05:48
27 May 2010 à 05:48
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
======================
