Forum Discussion
excel function replace all letters in document with numbers automatically
Hello, I'm in need of some help and I cannot find a solution online. I have a document that has uniform sizes. i.e. S, M, L, XL I need to replace those sizes automatically: S=1, M=2, L=3, xl...
With VBA
Sub Row_Column_width()
With Sheets("69")
.Rows("50:50").RowHeight = 63.75
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
End Sub
If you liked my solution, I would be happy to receive a reply with a cross as the correct answer and a thumbs up. If it is not an option, please ignore or inform.
Nikolino
I know I don't know anything (Socrates)
Sub Row_Column_width()
With Sheets("69")
.Rows("50:50").RowHeight = 63.75
.Columns("A:A").ColumnWidth = 4
.Columns("B:H").ColumnWidth = 1.86
.Columns("I:I").ColumnWidth = 35.14
.Columns("J:J").ColumnWidth = 14.71
.Columns("K:K").ColumnWidth = 13
.Columns("L:L").ColumnWidth = 12.86
.Columns("M:M").ColumnWidth = 30
End With
End Sub
If you liked my solution, I would be happy to receive a reply with a cross as the correct answer and a thumbs up. If it is not an option, please ignore or inform.
Nikolino
I know I don't know anything (Socrates)
Adjust column width according to cell value
With file where you can set the column width as desired .... with VBA.
Freehand fished from the Internet and prepared ... completely fresh.... and as I said, if you liked it ... high :-))
Nikolino
I know I don't know anything (Socrates)
- Here 🙂
hope I did nothing wrong ...NikolinoDE Don't really know what your intentions are, but you are certainly not responding to the issue in this thread.
