I don't have much coding experinece and I am trying to figure out how I can compare every cell of two different rows on two different sheets. I tried to do it with nested for loops but even thought the code runs through, I am not getting any results.
Here is what I have so far:
Sub masterexpenses()
Dim finalrow2 As Integer
Dim finalrow3 As Integer
Dim i As Integer
Dim r As Integer
Sheets("PersonnelData").Activate
finalrow2 = Sheets("RawExpenses").Range("U100").End(xlUp).Row
finalrow3 = Sheets("PersonnelData").Range("C100").End(xlUp).Row
For r = 2 To finalrow3
For i = 2 To finalrow2
If Sheets("PersonnelData").Cells(r, 3) = Sheets("RawExpenses").Cells(i, 20) Then
Sheets("RawExpenses").Cells(i, 20).copy Destination:=Sheets("PersonnelData").Cells(r, 7)
Sheets("RawExpenses").Cells(i, 21).copy Destination:=Sheets("PersonnelData").Cells(r, 10)
Sheets("RawExpenses").Cells(i, 22).copy Destination:=Sheets("PersonnelData").Cells(r, 13)
Sheets("RawExpenses").Cells(i, 23).copy Destination:=Sheets("PersonnelData").Cells(r, 16)
Sheets("RawExpenses").Cells(i, 24).copy Destination:=Sheets("PersonnelData").Cells(r, 19)
Sheets("RawExpenses").Cells(i, 25).copy Destination:=Sheets("PersonnelData").Cells(r, 22)
Sheets("RawExpenses").Cells(i, 26).copy Destination:=Sheets("PersonnelData").Cells(r, 25)
Sheets("RawExpenses").Cells(i, 27).copy Destination:=Sheets("PersonnelData").Cells(r, 28)
Sheets("RawExpenses").Cells(i, 28).copy Destination:=Sheets("PersonnelData").Cells(r, 31)
Sheets("RawExpenses").Cells(i, 29).copy Destination:=Sheets("PersonnelData").Cells(r, 34)
Sheets("RawExpenses").Cells(i, 30).copy Destination:=Sheets("PersonnelData").Cells(r, 37)
Sheets("RawExpenses").Cells(i, 31).copy Destination:=Sheets("PersonnelData").Cells(r, 40)
Sheets("RawExpenses").Cells(i, 32).copy Destination:=Sheets("PersonnelData").Cells(r, 43)
Sheets("RawExpenses").Cells(i, 33).copy Destination:=Sheets("PersonnelData").Cells(r, 46)
Sheets("RawExpenses").Cells(i, 34).copy Destination:=Sheets("PersonnelData").Cells(r, 49)
Sheets("RawExpenses").Cells(i, 35).copy Destination:=Sheets("PersonnelData").Cells(r, 52)
Sheets("RawExpenses").Cells(i, 36).copy Destination:=Sheets("PersonnelData").Cells(r, 55)
Sheets("RawExpenses").Cells(i, 37).copy Destination:=Sheets("PersonnelData").Cells(r, 58)
Sheets("RawExpenses").Cells(i, 38).copy Destination:=Sheets("PersonnelData").Cells(r, 61)
Sheets("RawExpenses").Cells(i, 39).copy Destination:=Sheets("PersonnelData").Cells(r, 64)
End If
Next i
Next r
End Sub
Your would be much appreciated. I am trying to figure out this thing for quite a while now...
Thanks in advance!
Aucun commentaire:
Enregistrer un commentaire