abdelfattah
Well-known Member
- Joined
- May 3, 2019
- Messages
- 1,430
- Office Version
- 2019
- 2010
- Platform
- Windows
hi, gays
i have data in sheet1 i would transfer data just non duplicated to sheet 2 i try with this code but show me error " object required"
and this is my code
i have data in sheet1 i would transfer data just non duplicated to sheet 2 i try with this code but show me error " object required"
and this is my code
Code:
Public Sub SumDuplicateData()
Dim Srch As Range
Sheet2.Range("A2:G100").Value = Empty
For I = 2 To Sheet1.Range("F100").End(xlUp).Row
Set Srch = Sheet2.Range("F2:F100").Find(Sheet1.Range("F" & I).Value)
If Srch Is Nothing Then
For j = 1 To 6
Sheet2.Range(Cells(Sheet2.Range("F100").End(xlUp).Offset(1, 0).Row, j).Address).Value = Sheet1.Range(Cells(I, j).Address).Value
Next j
Sheet2.Range("G" & Sheet2.Range("F100").End(xlUp).Row).Value = Sheet2.Range("F100").End(xlUp).Row - 1
Else
For j = 1 To 3
Sheet2.Range(Cells(Srch.Row, j).Address).Value = Sheet1.Range(Cells(I, j).Address).Value + Sheet2.Range(Cells(Srch.Row, j).Address).Value
Next j
End If
Next I
End Sub
Last edited by a moderator: