Le mie celle NON devono contenere il testo "sabato", "domenica", "25/12/14, "26/12/14"
Mi fa corretto sulle date ma poi arriva il 27/12/14 che è un SABATO e mi entra nell'if, deve essere sbagliata la linea di codice che ho evidenziato in grassetto, peraltro non so se sia corretto l'uso di AND...
Codice: Seleziona tutto
Do until spesaok=1
datafoglio=Sh1.getcellbyposition(0,rigaspesa+15+aggiungi).string
giornofoglio= Sh1.getcellbyposition(2,rigaspesa+15+aggiungi).string
Codice: Seleziona tutto
if giornofoglio <> "sabato" and giornofoglio <> "domenica" and datafoglio <> "25/12/14" and datafoglio <>"26/12/14" then
Codice: Seleziona tutto
Sh1.getcellbyposition(10,rigaspesa+15+aggiungi).string="previsto giorno di spesa"
spesaok=1
else
aggiungi=aggiungi +1
spesaok=0
end if
loop