Thecraftycarrot
New Member
- Joined
- Nov 8, 2018
- Messages
- 27
Hi i am having issues with the following code The first half works fine(It copies, but doesn't paste), its just the second half that is causing me an issue - i am getting run time error 438 -object doesn't support this property or method.
Code:
Dim UpdateRow As Long
Dim UpdateCol As Long
Dim ColName As String
Dim S3 As Worksheet
Dim S2 As Worksheet
Dim S1 As Worksheet
Set S3 = Sheets("SHEET3")
Set S2 = Sheets("SHEET2")
Set S1 = Sheets("SHEET1")
Rowname = S1.Range("E16").Value
UpdateRow = S2.Range("A3:a1000").Find(Rowname, LookIn:=xlValues).Row
ColName = "Contract number"
UpdateCol = S2.Range("A2:AZ2").Find(ColName, LookIn:=xlValues).Column
S2.Select
S2.Range(Cells(UpdateRow, UpdateCol), Cells(UpdateRow, UpdateCol).Offset(0, 29).Address).Copy
Rowname = ArchContract.Range("a10000").End(xlUp).Row
ColName = "Contract line number"
UpdateCol = ArchContract.Range("A2:AZ2").Find(ColName, LookIn:=xlValues).Column
ArchContract.Select
ArchContract.Cells(Rowname, UpdateCol).Paste