Excel creare macro per sostituire funzioni

[Francesco53]

Un saluto a tutto il Forum,
cercavo di realizzare una macro per sostituire delle formule presenti in un foglio,
purtroppo mi va in errore e non so come correggerlo.
Vi allego codice in quanto non credo sia il caso di inviare file in quanto mi sembra esplicito

Codice: Seleziona tutto

Sub EliminaSPazi()
Dim n As Byte
'=ANNULLA.SPAZI(DESTRA(SOSTITUISCI(C1;" ";RIPETI(" ";100));100))
For n = 1 To 10
    Cells(n, 3) = Trim(Right(Substitute(Cells(n, 1), " ", Rept(" ", 100)), 100))
Next n
End Sub

ringrazio chi può darmi un aiuto,
Francesco

[Marius44]

Ciao
Chi volesse aiutarti deve prima capire cosa vuoi fare

La formula che hai commentato cosa dovrebbe restituire?
Nel codice VBA cosa vuol dire Rept? (forse sarebbe il caso di precisare quale versione hai di Excel; io la 2010 è non c'è alcuna funzione con quel nome)
Non credi sarebbe opportuno spiegare meglio cosa vuoi esattamente fare, magari con un esempio concreto?

Ciao,
Mario

[Francesco53]

Ciao Marius vorrei fare quanto è scritto nella riga remmata che è poi quanto è scritto nella cella in cui ottengo il risultato nel foglio.
Io ho Excel 2007, ma il codice ho cercato di crearlo, ma non funziona proprio quel rept.
Francesco

[Anthony47]

Ti assicuro che la domanda e' un rebus

La mia migliore ipotesi, anche l'unica che sono in grado di fare:

Codice: Seleziona tutto

Cells(n, 3) = Trim(Right(Replace(Cells(n, 1), " ", String(100, " ")), 100))

E quando non ti restituira' il risultato che vuoi allora rassegnati a dire come sono i tuoi dati e che cosa stai cercando di ottenere

Ciao a tutti

[klingklang]

Ma perché dite che è un rebus? L'utente ha scritto (commentandola) la funzione Excel che vorrebbe "tradurre" in VBA... e l'unico errore che stava facendo è l'inesistente funzione Rept, giustamente da Anthony sostituita con String (oltre a Replace al posto di Substitute, che esiste come membro di WorkSheetFunction, ma visto che usiamo il VBA tanto vale stare sul Replace).

A quanto capisco dalla lettura della funzione, serve a estrarre l'ultima parola da una stringa formata da più parole... ma questo ha un'importanza relativa: se la funzione Excel era quella e funzionava, altrettanto farà la versione VBA scritta da Anthony

[Anthony47]

Anche i rebus si risolvono, lo so...
Pero' perche' devo dar il mio contributo a completare una "Sub EliminaSpazi" senza essere certo di che cosa quella Sub dovrebbe fare? Perche' contribuire a realizzare una soluzione potenzialmente poco efficiente perche' non e' stato spiegato quale e' l'obiettivo finale? Ad esempio, secondo me (per quello che sembra essere lo scopo finale) il modo migliore per risolvere con macro e' utilizzare InStrRev.

Se invece uno chiede genericamente come si traduce in vba una formula allora io gli suggerisco di provare a registrare una macro mentre inserisce quella formula in una cella.

Ciao!

[klingklang]

Se invece uno chiede genericamente come si traduce in vba una formula allora io gli suggerisco di provare a registrare una macro mentre inserisce quella formula in una cella.

Ciao Anthony, lo sai da solo che questa non sarebbe la tua risposta, visto che così facendo ti ritroveresti con un "ActiveCell.Formula = ..." con la formula in inglese come la scriveresti sul foglio di calcolo. Questo non è "tradurre in VBA", bensì inserire una formula nella cella tramite VBA, e sono due cose ben diverse.
Per il resto, concordo con te sulla possibile inefficienza del codice proposto al posto di un altro, ma restando sulla richiesta dell'utente, non c'è ragione di credere che "non otterrà il risultato che vuole"

[Francesco53]

Buon pomeriggio a tutti, ringrazio per la partecipazione e mi dispiace aver creato incomprensioni.
Quello che chiedevo era la sostituzione di una formula o funzione presente in una cella da copiare
su circa 1200 righe, con una macro, ( che ho cercato di realizzare nella mia poca conoscenza, e non funzionava).
Utilizzando la macro scritta da Anthony sono riuscito ad ottenere quanto richiesto.
Scusate ma pensavo che con la scritta remmata fosse chiara la richiesta.
Grazie
Francesco

[Anthony47]

Avessi spiegato quello che devi ottenere come risultato finale ti avrei proposto qualcosa di piu' performante.
Vale per la prossima volta!