Macro per sostiuzione contenuto celle non funziona

dadep

unread,

Mar 14, 2022, 4:33:45 PM3/14/22

to

Salve a tutti,
premessa obbligatoria: sono un assoluto ignorante in materia, ma ho la
necessita' di risolvere questo problema.
Ho una tabella che contiene dei campi testo estrapolati da un
applicativo e riformattati partendo da un file csv.
Il risultato finale e' quello scaricabile al link

https://app.box.com/s/qbct3kditjhpx9v2uplwvkgul1ftyc1t

Io devo sostituire:
Colonne F e G
FALSO con "" (cella vuota)
VERO con Effettuato

Colonna H
Falso con No
Vero con Si

ho provato ad adattare tutte le macro che ho trovato in rete (che
sintatticamente non danno nessun errore).
Ho anche registrato la macro eseguendo i comandi da ll'interfaccia di Excel.

Un esempio di macro che ho fatto girare e'

...........................................................................
Sub Macro1()
Columns("F:G").Select
Selection.Replace What:="VERO", Replacement:="Eseguito",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="FALSO", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("H:H").Select
Selection.Replace What:="FALSO", Replacement:="No", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="VERO", Replacement:="Si", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("E12").Select
End Sub
...........................................................................

Ma entrambe le soluzioni non sostituiscono nulla in nessuna cella.

Dove sbaglio ?
Grazie a chi vorra' darmi una mano

issdr

unread,

Mar 15, 2022, 7:26:39 AM3/15/22

to

dadep wrote:

> Un esempio di macro che ho fatto girare e'

nei LookAt prova xlWhole

(sto dando per scontato che il foglio non contenga formule, potrebbe
essere un problema. seleziona una cella con VERO e guarda cosa
c'è nella barra della formula (magari il vero contenuto non è VERO,
bensì TRUE))

issdr

unread,

Mar 15, 2022, 8:29:31 AM3/15/22

to

dadep wrote:

> Sub Macro1()
> Columns("F:G").Select
> Selection.Replace What:="VERO", Replacement:="Eseguito",
> LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
> Selection.Replace What:="FALSO", Replacement:="", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
> Columns("H:H").Select
> Selection.Replace What:="FALSO", Replacement:="No", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
> Selection.Replace What:="VERO", Replacement:="Si", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
> Range("E12").Select
> End Sub

sostituisci TRUE a VERO e FALSE a FALSO

dadep

unread,

Mar 15, 2022, 2:46:34 PM3/15/22

to

Grazie infinite ! Non ci sarei mai arrivato, a me sulla barra esce
VERO/FALSO e non TRUE/FALSE.

issdr

unread,

Mar 15, 2022, 2:54:43 PM3/15/22

to

dadep wrote:

> Grazie infinite ! Non ci sarei mai arrivato, a me sulla barra esce
> VERO/FALSO e non TRUE/FALSE.

anche a me: grazie a te, "aprendo il cofano" del file, ho scoperto che
il valore booleano (vero o falso) viene registrato come numero (0 o 1),
quindi c'è la stramberia che la ricerca interattiva (manuale?) cerca e
trova il termine in italiano, mentre il codice VBA "ragiona" in inglese