Type missmatch with .value

[CsJHUN]

Hi guys!

Im trying to declare some value from cells value to other cell value.
(I give a list of datas in columns, the macro get the datas from do-until loop, write this data to a specific cell, call another macro, than step forward)

Here is what I have now:

Sub asd()
s = 1
Do
s = s + 1
vizsgaztato = Workbooks(MyName).Sheets("Temp00").Range("Q" & s).Value
vizsgazo = Workbooks(MyName).Sheets("Temp00").Range("R" & s).Value
tema = Workbooks(MyName).Sheets("Temp00").Range("S" & s).Value
szint = Workbooks(MyName).Sheets("Temp00").Range("T" & s).Value


Workbooks(MyName).Sheets("MAIN").Range("Thematic") = tema
Workbooks(MyName).Sheets("MAIN").Range("ThematicLevel") = szint
Workbooks(MyName).Sheets("MAIN").Range("Trainer") = vizsgaztato 
Workbooks(MyName).Sheets("MAIN").Range("Operator") = vizsgazo


Call Exam1Create.CreateExam
Loop Until s = Workbooks(MyName).Sheets("Temp00").Range("V1").Value
End Sub

On TEMP00, there will be 4 column. Vizsgazo ("Q") and vizsgaztato("R") stored as text, tema("S") and szint("T") are numbers. THe cell in "V1" is just a simple =counta(Q:Q)
I always got No.13 error messages at the first line (vizsgaztato)

 

[steve the fish]

Do you have a 'Dim vizsgaztato as ....' statement somewhere within the code? The data type declared within the Dim statement probably doesn't match the data type that it will find in the target cells (Q2,Q3 etc.)

 

[jasonb75]

You haven't declared or defined MyName so the variable is not being recognised as a valid workbook name.

 

[steve the fish]

You haven't declared or defined MyName so the variable is not being recognised as a valid workbook name.

That would produce an out of range error wouldn't it? That must be valid to produce the type mismatch.

 

[jasonb75]

That would produce an out of range error wouldn't it? That must be valid to produce the type mismatch.

That would be correct, Steve, I was pointing out what appeared to be an error, but didn't pay much attention to the error type

 

[CsJHUN]

Cool guys, thx for trying to help
Dim-ing not helped ofcourse, this is why not in the code.
Changed Workbooks(MyName).Sheets("MAIN") to ThisWorkbook.Sheets("MAIN") and its working now (and even less character ).
(and now just read the 2nd post, thx jasonb75)

Cheers again