Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Salve,
Avrei bisogno semplicemente di una macro che mi semplifica il trova e sostituisci.
Praticamente mi serve sostituire tutti i "." con i ":" solo nella colonna C mentre nelle altre colonne mantenere la formattazione.
Ho provato con:
Sub sostituisci ()
Range("C1:C9999").Select
Cells.Replace What:="." , Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Facendo così però mi cambia in tutto il foglio.
Grazie in anticipo per l'aiuto.
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Ciao Giovanni,
[...]
Puoi scaricare il mio file prova Giovanni20230112.xlsm.
{...]
**** https://1drv.ms/x/s!AmTW9HzZG8cqk3-XAlA1bFOLiVz4?e=4dB6hv
===
Regards,
Norman
Ciao Giovanni,
Ti ringrazio per l'immediata risposta ; ho provato ma adesso mi da il messaggio "Nessun oggetto" e non fa nulla.
Sono sicuro che l'errore segnalato non ha nulla a che fare con il codice che ho pubblicato e, in ogni caso, il codice funziona per me senza alcun problema.
Puoi scaricare il mio file prova Giovanni20230112.xlsm.
Eseguendo il mio codice con i seguenti dati iniziali
[![](https://learn-attachment.microsoft.com/api/attachments/8d66a3cf-a223-45c5-9c8a-215b515c47fb?platform=QnA
ottengo il seguente risultato:
[![](https://learn-attachment.microsoft.com/api/attachments/ba69fdae-7443-479b-b926-beadf1043450?platform=QnA
===
Regards,
Norman
Ti ringrazio per l'immediata risposta ; ho provato ma adesso mi da il messaggio "Nessun oggetto" e non fa nulla.
Ciao Giovanni,
Avrei bisogno semplicemente di una macro che mi semplifica il trova e sostituisci.
Praticamente mi serve sostituire tutti i "." con i ":" solo nella colonna C mentre nelle altre colonne mantenere la formattazione.
Ho provato con:
Sub sostituisci ()
Range("C1:C9999").Select
Cells.Replace What:="." , Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Facendo così però mi cambia in tutto il foglio.
Prova:
'========>>
Public Sub sostituisci()
ActiveSheet.Range("C1:C9999").Cells.Replace What:=".", Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
'<<========
EDIT:
Più semplice sarebbe:
'========>>
Public Sub sostituisci()
ActiveSheet.Range("C1:C9999").Replace What:=".", Replacement:=":", SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
'<<========
===
Regards,
Norman