codice con if che non funziona

[matzap]

Ciao
Ho questa semplice macro che però non funziona

Sub provaemq()
If Activesheets = ("mes-Olivotto ") Then
Range("L35") = "OK EMQ"
Else
Range("M28") = "OK EMQ"
End If
End Sub

anche se mi trovo sul foglio mes-Olivotto, mi scrive OK EMQ sempre nella casella M28 invece che nella casella L35.
Perchè

[Dylan666]

Guarda che è Activesheet e non Activesheets
Infatti sarebbe "foglio attivo" e non "fogli attivi" al plurale. Anche perché può essere attivo solo un foglio per volta

[matzap]

non funziona comunque. Se scrivo:
Sub provaemq()
If ActiveSheet = ("mes-Olivotto ") Then
Range("L35") = "OK EMQ"
Else
Range("M28") = "OK EMQ"
End If
End Sub

mi da errore di run-time 438

[Dylan666]

Dopo mes-Olivotto vedo uno spazio di troppo... è fra la o alla fine della parola e gli apici di chiusura

[scossa]

Ciao
Ho questa semplice macro che però non funziona

Sub provaemq()
If Activesheets = ("mes-Olivotto ") Then

Prova ad usare la proprietà Name:

Codice: Seleziona tutto

If Activesheet.Name = ("mes-Olivotto ") Then

verificando eventuali spazi in eccesso come segnalato da Dylan666 (ciao).

[matzap]

Yes, ora funziona, il segreto è nel ".name"!
grazie