Why error?

[Peltz]

Hello, could someone help me here?

Workbooks.Open "G:\Klienkladd\Behandlingsavdelingen\1_Felles maler\Teamarbeid(Jenskladd)\Teamarbei.xls
If (Workbooks("Pasientliste".Sheet("Ark3").Cell("A7")=
Workbooks("Teamarbeid").Sheet("Ark3").Cell("25")) _
Then Range("A7:D7,F7:T7").Select
Range"F7").Actice
Selection.ClearContents
Else: Application.Run (Teamarbeid!Pas1) _
And Range("A7:D7,F7:T7").Select
Range"F7").Actice
Selection.ClearContents
End If

Does anyone know whats going on here?

 

[Andrew Poulsom]

This will compile but I haven't tried to run it:

    Workbooks.Open "G:\Klienkladd\Behandlingsavdelingen\1_Felles maler\Teamarbeid(Jenskladd)\Teamarbei.xls"
    If Workbooks("Pasientliste").Sheets("Ark3").Cells("A7").Value = Workbooks("Teamarbeid").Sheets("Ark3").Cells("25").Value Then
        Range("A7:D7,F7:T7").Select
        Range("F7").Activate
        Selection.ClearContents
    Else
        Application.Run "Teamarbeid!Pas1"
        Range("A7:D7,F7:T7").Select
        Range("F7").Activatee
        Selection.ClearContents
    End If

 

[par60056]

for 1 thing you are missing a closing quote on the first line. I would have thought the editor would have added it for you.

 

[Peltz]

Thanks so much guys, im still new to VBA so its great to learn.
I've changed the code. However i Now get the Type mismatch, runtime run time error 13. I've asked Google, however not geting much more clever.

The cell values are tekst, names like Jack White...

I know the question is a bit off topic, but again: Do you know whats going on now?

 

[Andrew Poulsom]

What should this be really?

Cells("25")

 

[Peltz]

Thanks.

The file is in a closed system, so I have to write back and forth between the system and internet. Its just a typo, it says in the workbook"A25"

On a side note: How do you end a line in your code with e.g. "Then" instead of "Then _"

 

[Andrew Poulsom]

On a side note: How do you end a line in your code with e.g. "Then" instead of "Then _"

Like I did in the code I posted.

 

[Peltz]

This is the line that the debugger doesnt like:

IF Workbooks("Pasientliste).Sheets("Behandlingsavdelingen").Cells("A7").Value = Workbooks("Teamarbeid").Sheets.("Ark3").Cells("A25").Value Then

Tripple checed the name of the workbooks. Also tried to change .Value to .Text ... still error.

If I just knew what the error means in this context...

 

[Andrew Poulsom]

What's in those cells when you get the error? Any merged cells?

 

[Peltz]

Actually yes, A7 is actually A7 and B7. However referencing the cell using Cell.(7, 1) bypassed the problem (!!). Thanks for putting me on the tought!

As a curiosity, how would you have solved the merged cell problem using a "A7" reference?