asyamonique
Well-known Member
- Joined
- Jan 29, 2008
- Messages
- 1,280
- Office Version
- 2013
- Platform
- Windows
Code:
Dim ws As Worksheet, rngFind As Range
Set ws = ThisWorkbook.Sheets("0600")
Set rngFind = ws.Range("b:b").Find(what:=Sheets("Result").Range("A5").Value, MatchCase:=True)
If Not rngFind Is Nothing Then
Sheets("Result").Range("b5").Value = rngFind.Offset(0, 1).Value
Sheets("Result").Range("c5").Value = rngFind.Offset(0, 2).Value
End If
Good Day,
Im trying to change the above code as given code below but im not good enough to make it!
Code:
Dim ws As Worksheet, rngFind As Range
Set ws = ThisWorkbook.Sheets("0600")
Set rngFind = ws.Range("b:b").Find(what:=Sheets("Result").Range("A5:A24").Value, MatchCase:=True)
If Not rngFind Is Nothing Then
Sheets("Result").Range("b5:d24").Value = rngFind.Offset(0, 3).Value
Sheets("Result").Range("c5:e24").Value = rngFind.Offset(0, 4).Value
End If
I just wanted make it easier due to instead of writing them all one by one!
Could somebody help me on this problem?
Many Thanks