eliminare numeri

Hai un problema con Excel?

Nuova discussione

eliminare numeri
di clod (utente non iscritto) data: 03/11/2017 10:33:33
Vorrei creare una macro che mi elimina i numeri in una colonna

grazie
di patel data: 03/11/2017 11:06:41
allega un file di esempio e spiega meglio cosa vuoi ottenere, sarebbe gradito il risultato desiderato
di clod (utente non iscritto) data: 03/11/2017 11:18:14
Ho allegato esempio,grazie

di Gianfranco data: 03/11/2017 12:06:33
ciao
in un modulo

la prima ti elimina i numeri e la virgola
sulla stessa colonna

la seconda inserisce i dati in colonna B

Sub Eliminanumeri()
 Dim Testo, nuovoTesto, togli, scelta As String
 Dim X As Integer
 uriga = Range("A" & Rows.Count).End(xlUp).Row
 For y = 1 To uriga
 Testo = Cells(y, 1)
 togli = "1234567890,"
 For X = 1 To Len(togli)
 scelta = Mid(togli, X, 1)
 nuovoTesto = Replace(Testo, scelta, "")
 Testo = nuovoTesto
 Next X
 Cells(y, 1) = nuovoTesto       '
 nuovoTesto = Trim(Cells(y, 1))
 Cells(y, 1) = nuovoTesto
 Next y
 End Sub

Sub Eliminanumeri()
 Dim Testo, nuovoTesto, togli, scelta As String
 Dim X As Integer
 uriga = Range("A" & Rows.Count).End(xlUp).Row
 For y = 1 To uriga
 Testo = Cells(y, 1)
 togli = "1234567890,"
 For X = 1 To Len(togli)
 scelta = Mid(togli, X, 1)
 nuovoTesto = Replace(Testo, scelta, "")
 Testo = nuovoTesto
 Next X
 Cells(y, 2) = nuovoTesto       '
 nuovoTesto = Trim(Cells(y, 2))
 Cells(y, 2) = nuovoTesto
 Next y
 End Sub

di patel data: 03/11/2017 12:50:06
se non vuoi togliere le virgole questa è un'altra soluzione

Sub eliminanumeri()
Dim cell As Range
LR = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = ActiveSheet.Range("A1:A" & LR)
For Each cell In Rng
  cell.Value = OnlyChar(cell.Text)
Next
End Sub
Function OnlyChar(c As String) As String
Dim i As Integer
For i = 1 To Len(c)
  If IsNumeric(Mid(c, i, 1)) = False Then s = s & Mid(c, i, 1) '
Next
OnlyChar = s
End Function

di clod (utente non iscritto) data: 03/11/2017 13:40:58
grazie mille fatto test e funizona perfettamente
ulteriore problema
di clod (utente non iscritto) data: 06/11/2017 16:59:45
tutto va bene con le macro ,solo che se su un altro pc dove ho importato sia macro che icone barra personallizata con simbolo delle macro,se avvio la suddeta macro mi arriva messaggio F:pincopallino est-macro-claudio1.xlsm non è stato trovato.Verificare che il file non sia stato spostato,rinominato o eliminato.

Puó essere che il sul mio pc ho salvato macro e tabelle di test in una partizione F; che esiste solo sul mio pc.Qunidi sul pc di un collega come risolvo il problema?
di patel data: 06/11/2017 17:29:34
le macro si avviano così:
Apri il file con excel, Visualizza, Macro, Esegui
macro in excel
di clod (utente non iscritto) data: 07/11/2017 08:07:18
anche avviando la macro coem sapevo giá lacnaindo la macro cvon esegui su un altro pc che non ha
partizione f: sul disco mi da´errore F:pincopallino est-macro-claudio1.xlsm non è stato trovato.Verificare che il file non sia stato spostato,rinominato o eliminato.
Sul mio cp avev osalvato su f:pincopallino tutte le macro e che poi ho esportato .
Conviene che le copio manualmente? e poi le inserisco sull'altro pc in una nuova macro?
grazie
di patel data: 07/11/2017 11:49:33
forse non hai salvato la macro nel modulo standard del documento, allega il file che hai sul tuo pc oppure qualche schermata che mostri dove si trova la macro

Vuoi Approfondire?