D
Denys
Good day everyone,
With the following code, you compare data between two columns in a
different worksheet, and the results are transferred to a third one.
Sub test()
Dim T(), A As Long
Dim Rg As Range, Rg1 As Range
With Worksheets("month")
Set Rg = .Range("B1:B" & .Range("B65536").End(xlUp).Row)
End With
With Worksheets("Data received")
Set Rg1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each c In Rg
If Application.CountIf(Rg1, c) = 0 Then
ReDim Preserve T(A)
T(A) = c.Value
A = A + 1
End If
Next
Worksheets("Result").Range("A1").Resize(UBound(T) + 1) = _
Application.Transpose(T)
End Sub
However, I would like to have the entire row to show on the
destination sheet rather than the cell value only.
Anyone would know where I should modify the code ?
Thanks for your time
Denys
With the following code, you compare data between two columns in a
different worksheet, and the results are transferred to a third one.
Sub test()
Dim T(), A As Long
Dim Rg As Range, Rg1 As Range
With Worksheets("month")
Set Rg = .Range("B1:B" & .Range("B65536").End(xlUp).Row)
End With
With Worksheets("Data received")
Set Rg1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each c In Rg
If Application.CountIf(Rg1, c) = 0 Then
ReDim Preserve T(A)
T(A) = c.Value
A = A + 1
End If
Next
Worksheets("Result").Range("A1").Resize(UBound(T) + 1) = _
Application.Transpose(T)
End Sub
However, I would like to have the entire row to show on the
destination sheet rather than the cell value only.
Anyone would know where I should modify the code ?
Thanks for your time
Denys