I get a type mismatch error and I have changed to variable types so many times I can't remember where I started! Hopefully someone can point me in the right direction.
The code in question is attached
I have I as String and K as Long. The code stops at line 11.
Maybe it's just bad syntax in the loop. I'm completely lost.
Any help as always is greatly appreciated.
I should probably explain what I'm trying to do.
I want the code to look at the value of A1 in wsht1 ("I") and find that same value in column A of wsht3 ("K"), then paste the range values of wsht1 (C1:AA1) to the corresponding "K" row but offset two columns right (Column C in effect)
I hope I have explained it clear enough.
Set wbk1 = ActiveWorkbook
Set wsht1 = wbk1.Sheets("Sheet1")
Set wbk3 = Workbooks.Open(wbk3path) 'Interface workbook
Set wsht3 = wbk3.Sheets(1)
wsht3.Range("A1:AA2").Formula = wsht1.Range("A1:AA2").Value
I = wsht1.Range("A1")
K = wsht3.Columns("A:A").Find(What:=I, lookat:=xlWhole)
wsht3.Range(K).Offset(0, 2).PasteSpecial xlPasteValues
Loop Until I = ""