Is it possible to make this code simpler?
Code:
Dim Found As Range
With Sheets("Viewer")
Set Found = Sheets("A").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G8").Value
Found.Offset(1, 0).Value = .Range("F8").Value
End If
Set Found = Sheets("B").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G9").Value
Found.Offset(1, 0).Value = .Range("F9").Value
End If
Set Found = Sheets("C").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G10").Value
Found.Offset(1, 0).Value = .Range("F10").Value
End If
Set Found = Sheets("D").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G11").Value
Found.Offset(1, 0).Value = .Range("F11").Value
End If
Set Found = Sheets("E").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G12").Value
Found.Offset(1, 0).Value = .Range("F12").Value
End If
Set Found = Sheets("F").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G13").Value
Found.Offset(1, 0).Value = .Range("F13").Value
End If
Set Found = Sheets("G").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G14").Value
Found.Offset(1, 0).Value = .Range("F14").Value
End If
End With
Last edited by a moderator: