Visual Basic 6 - celle colorate

e mi sarebbe comodo pure.... se quando clicca cerca e poi enter la finesrtella cerca dovrebbe sembre restare attiva e non sparire...non so se si puo fare

e poi ancora se digito una parola che non esiste nell'elenco mi da errore....si puo eliminare quasto errore

Si........

Dipende:

se vuoi tradurre sempre in Maiuscolo dovresti inserire la funzione UCASE()

se invece vuoi tradurre sempre in Minuscolo dovresti inserire la funzione LCASE()

per. es.

da così: What:=Mid(Range("AA2".Value, 2)
a così : What:=LCase(Mid(Range("AA2".Value, 2))

per eliminare l'errore dovresti appunto (come ti ho scritto qualche Post prima)

ON ERROR RESUME NEXT

Ti racchiudo tutti i messaggi in uno…
....la puoi modificare che se scrivo la parla da cercare in minuscolo me la cerca lo stesso!
mi sarebbe comodo pure.... se quando clicca cerca e poi enter la finestrella cerca dovrebbe sempre restare attiva e non sparire...non so se si può fare
e poi ancora se digito una parola che non esiste nell'elenco mi da errore....si può eliminare questo errore

mi da errore ADESSO SIA SE CERCO IN MAIUSCOLO CHE MINUSCOLO VEDI SE HO FATTO BENE
Sub Trova()
Cells.Find(What:=LCase(Mid(Range("AA2".Value, 2)), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
Selection.Interior.ColorIndex = 3

METTENDO On Error Resume Next MI DA ERRORE

Scusami , ma ora non ho più tempo , mi sembra di averti risposto (anche se a pezzettini)
un pò a tutto , l'unica cosa che manca è quella riferita a quando tu dici



appena posso ti mando quella parte di codice .....