Cercare data in colonna

[miko]

Buongiorno a tutti,
ho il seguente problema
in colonna C del foglio IMPORTA, a partire da C4, vengono importate le date nella forma
gio 30/06/2022 : (2 punti compresi)
le celle di colonna C sono in formato generale.
Prima le date erano nella forma 30/06/2022 e per trovare la riga della data di ricerca usavo questo codice:

Codice: Seleziona tutto

Riga = .Application.Match(CLng(DataCerca), Range("IMPORTA!C1:C" & (LastImp + 2)), 0)
       

dove DataCerca è la data da cercare, e LastImp è l'ultima riga del foglio.
Naturalmente ora il codice non funziona più.
come posso trasformare, se è possibile, il codice per trovare la riga?
ciao grazie

[Anthony47]

Ovviamente quella e' una stringa non una data; vedi se questa funziona:

Codice: Seleziona tutto

Riga = .Application.Match(Format(DataCerca, "ggg gg/mm/yyyy :"), Range("IMPORTA!C1:C" & (LastImp + 2)), 0)

Il "." in .Application a che serve?

[miko]

salve,
purtroppo il tuo codice mi dà errore, forse dipende da come sono disposti i dati importati nel foglio?
con una macro registrata importo i dati e quello che segue è il risultato senza alcuna modifica



le celle di colonna C sono in formato generale
ciao, grazie

[Anthony47]

Probabile checi siano spazi in piu' o che non tutti i caratteri siano puro asci; pubblica un piccolo esempio con dati veri e vedremo...

[miko]

ciao,
qui il file di esempio con i dati reali come vengono importati dal sito

https://we.tl/t-cStwv6uCPS

prova a cercare una qualsiasi data in colonna C, per data intendo una stringa del tipo 27/06/2022
ciao grazie

[Anthony47]

Questa dovrebbe funzionare:

Codice: Seleziona tutto

Riga = Application.Match(Format(datacerca, "ddd dd/mm/yyyy : "), Range("IMPORTA!C1:C" & (LastImp + 2)), 0)

-le date hanno ancora uno spazio dopo il ":"
-il "format" deve essere tutto dichiarato all'inglese (come ho corretto)

Ho omesso il "." prima di Application, non so a che cosa avrebbe dovuto essere linkato

[miko]

Buona domenica a tutti,
il codice ora funziona, grazie.
in precedenza ho dimenticato di chiarire la presenza del "." prima di Application:
nella macro principale, che richiama l'importazione dei dati, ho una serie di "With foglio ... End With " annidati
e per quello che conosco il punto evita di riferirsi ad altri fogli o di avere errore se il foglio non è selezionato.
ciao e grazie