Buongiorno a tutti, ho riscontrato un problema con excel, ho fatto questa mini macro per excel che provvede ad abbreviare le parole che voglio io, il problema è che quando le abbrevia in questo caso mi abbrevia OTTONE in OTT, mi lascia uno spazio alla fine, e non saprei come risolvere questo piccolo problema, se vi state chiedendo "ma che ti frega di uno spazio?" lo spazio alla fine mi crea problemi perchè il file excel poi deve essere importato su SAP (software gestionale) che rompe le scatole se si superano i 40 caratteri, tuttavia se si clicca 2 volte di seguito la macro mi aggiunge due spazi.. come potrei risolvere? grazie mille in anticipo.
Se non avete capito niente di tutto ciò che vi ho scritto non esistate a chiedermi spiegazioni! grazie mille!.
Se non avete capito niente di tutto ciò che vi ho scritto non esistate a chiedermi spiegazioni! grazie mille!.
Codice:
Sub Aggiorna()
'
Dim cella As Range
For Each cella In Range("K5:K6")
Dim strCella As String
strCella = cella.Text
Dim parole() As String
parole() = Split(strCella)
Dim nuovaStr As String
nuovaStr = ""
For i = 0 To UBound(parole)
Select Case parole(i)
Case "OTTONE"
parole(i) = "OTT"
End Select
nuovaStr = nuovaStr & parole(i) & " "
Next
cella.FormulaR1C1 = nuovaStr
Next
End Sub