Federico460, grazie per la risposta e per la tua soluzione.
É perfetta.
Riguardo al fatto che le misure ti vengano similari e non uguali al valore inserito in cella, credo che ciò avvenga quando il valore in questione, riguardo al suo frazionamento decimale, non rispecchi fedelmente quello predefinito della colonna:
cioè
0,14 - 0,29 - 0,43 - 0,57 - 0,71 - 0,86
Quindi, se inserisci in cella 5,43 e lanci la macro, la larghezza della colonna sarà 5,43
se inserisci in cella 5,48 e lanci la macro, la larghezza della colonna sarà sempre 5,43
se inserisci in cella 5,54 e lanci la macro, la larghezza della colonna sarà 5,57 in quanto 5,54 è più vicino al frazionamento 0,57 rispetto a quello 0,43
Almeno credo che questo sia, descritto 'maccheronicamente', il motivo.
Quanto alle 'schifezze' ###### cui fai riferimento, è perchè la larghezza della colonna risulta troppo stretta in rapporto alla dimensione del carattere della cella.
Occorrerà, al riguardo, andare sulla cella in questione --> Tasto destro --> Formato Celle --> Allineamento --> 'Flaggare' la casella 'Riduci e adatta' --> OK e il valore in cella si adatterà alla 'ristrettezza' della colonna.
Per quanto possibile: in quanto se la colonna è molto stretta - es. inferiore a 1,43 - il carattere si ridurrà al punto da essere troppo piccolo per risultare leggibile.
federico460, 06/12/2023 23:09:
ciao
ciao Leo
per curiosità e per imparare
ho messo
Sub sostituisci()
Dim Lista As Range
Set Lista = Range("A1:ZZ1")
For Each CL In Lista
If CL <> "" Then
CL.ColumnWidth = CL.Value
End If
Next
End Sub
ho notato però che le misure vengono similari ma non uguali
mi spieghi il perchè
grazie
nb
se non si colorano di bianco le misure in riga 1
vengono delle schifezze ####### se la misura è piccola
[Modificato da Anthony D'Acunto 06/12/2023 23:42]