Salve a tutti.
ho un problema con questa macro di excel
Dunque io utilizzo questa macro (non completa perchè praticamente ci devo aggiungere molte altre parole) per abbreviare delle descrizioni.
Allora la descrizione è composta da diverse parole misure ecc ecc che però non può superare i 40 caratteri, attualmente se supera i 40 caratteri su excel me lo segnala io avvio la macro e con le abbreviazioni dovrebbe scendere sotto i 40 caratteri. ecco.. ora arrivo al problema. Purtroppo con questa macro sono limitato, ovvero che la macro non fa altro che un trova e sostituisci di massa e praticamente mi abbrevia tutto. Nel caso in cui io abbia una descrizione ad esempio cosi " PANNELLO POSTERIORE COLORE NERO SPESSORE 2MM" dunque in questo caso è possibile modificare la macro in modo che non mi abbrevi tutto in " PANN. POST. COL. NERO SP. 2mm" ma che esegua una specie di ciclio iniziando dal primo ovvero abbrevia soltanto PANNELLO e se con l'abbreviazione rientra nei 40 caratteri si ferma senza proseguire.
Spero di essermi spiegato bene! grazie in anticipo a tutti.
- - - Updated - - -
Allora io ho aggiunto queste stringhe
Dunque cosi se sta sotto i 40 caratteri non fa niente ed è giusto però se supera i 40 caratteri abbrevia direttamente tutto senza riverificare la condizione anche se io l'ho scritta
ho provato anche a mettere più IF di seguito ma niente... continua ad abbreviare tutto senza ricontrollare la condizione come posso fare? grazie.
ho un problema con questa macro di excel
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
If nuovaStr <> "" Then
nuovaStr = nuovaStr & " "
End If
nuovaStr = nuovaStr & parole(i)
Next
cella.FormulaR1C1 = nuovaStr
Next
End Sub
Allora la descrizione è composta da diverse parole misure ecc ecc che però non può superare i 40 caratteri, attualmente se supera i 40 caratteri su excel me lo segnala io avvio la macro e con le abbreviazioni dovrebbe scendere sotto i 40 caratteri. ecco.. ora arrivo al problema. Purtroppo con questa macro sono limitato, ovvero che la macro non fa altro che un trova e sostituisci di massa e praticamente mi abbrevia tutto. Nel caso in cui io abbia una descrizione ad esempio cosi " PANNELLO POSTERIORE COLORE NERO SPESSORE 2MM" dunque in questo caso è possibile modificare la macro in modo che non mi abbrevi tutto in " PANN. POST. COL. NERO SP. 2mm" ma che esegua una specie di ciclio iniziando dal primo ovvero abbrevia soltanto PANNELLO e se con l'abbreviazione rientra nei 40 caratteri si ferma senza proseguire.
Spero di essermi spiegato bene! grazie in anticipo a tutti.
- - - Updated - - -
Allora io ho aggiunto queste stringhe
Codice:
If Range("L10").Value > 40 Then
Range("K10").Replace What:="PANNELLO", Replacement:="PANN."
ElseIf Range("L10").Value > 40 Then
Range("K10").Replace What:="POSTERIORE", Replacement:="POST."
End If
ho provato anche a mettere più IF di seguito ma niente... continua ad abbreviare tutto senza ricontrollare la condizione come posso fare? grazie.