How to disable wrap text permanently?

[man]

Sometimes I type text in a cell and the [Wrap Text] button automatic pressed down. (screenshot 1)

I do not want the [Wrap Text] button to be pressed down permanently. I want it to look like screenshot 2 permanently

How to disable wrap text permanently? Thanks.

screenshot 1

screenshot 2

 

[Cubist]

View Code -> Paste the code in the editor.

 

[man]

View Code -> Paste the code in the editor.

I right click the sheet name>view code then pasted the code in the editor (screenshot below), then what should I do?

 

[Cubist]

Go back to your sheet, try pasting stuff in Column A and see if it's undo your wrap-text.

 

[man]

Go back to your sheet, try pasting stuff in Column A and see if it's undo your wrap-text.

I tried pasting stuff in Column A and it works to undo wrap text in Column A. Column B and other columns still have the same auto Wrap Text problem after pasting text. How to make your solution work for the whole sheet? (note: the sheet shown in this thread are examples, in my real sheet I need to paste in many columns, and my real sheet already has old info pasted in many cells)

 

[Cubist]

First, run this code one time to undo all of the existing wrap text:

Sub UndoWrapText()
    Dim ws As Worksheet
    Dim rng As Range
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        For Each rng In ws.UsedRange
            rng.WrapText = False
        Next rng
    Next ws
    
    Application.ScreenUpdating = True
End Sub

Replace the prior code with this to apply to all columns.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Application.EnableEvents = False
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        For Each rng In Target
            rng.WrapText = False
        Next rng
    End If
    Application.EnableEvents = True
End Sub

 

[Burrgogi]

I tried pasting stuff in Column A and it works to undo wrap text in Column A. Column B and other columns still have the same auto Wrap Text problem after pasting text. How to make your solution work for the whole sheet? (note: the sheet shown in this thread are examples, in my real sheet I need to paste in many columns, and my real sheet already has old info pasted in many cells)

If all you're doing is copy & pasting text information into a cell, there are better applications suited for this task. Excel would be the last option I would consider for this kind of task. I very much agree with Alex's comment earlier. You are using the wrong tool for the job. OneNote has already been mentioned, Notepad++ is another option.

 

[man]

First, run this code one time to undo all of the existing wrap text:

Sub UndoWrapText()
Dim ws As Worksheet
Dim rng As Range

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
rng.WrapText = False
Next rng
Next ws

Application.ScreenUpdating = True
End Sub

I right click the sheet name>view code then pasted the above code in the editor then press F5 is it correct? Will it apply to all sheets in the workbook?

----------

I then delete the above code and then replace with this below code correct?

Replace the prior code with this to apply to all columns.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Application.EnableEvents = False
If Not Intersect(Target, Me.UsedRange) Is Nothing Then
For Each rng In Target
rng.WrapText = False
Next rng
End If
Application.EnableEvents = True
End Sub

------

After finishing the steps above I then try copy text and paste into excel cell.

 

[man]

If all you're doing is copy & pasting text information into a cell, there are better applications suited for this task. Excel would be the last option I would consider for this kind of task. I very much agree with Alex's comment earlier. You are using the wrong tool for the job. OneNote has already been mentioned, Notepad++ is another option.

I did not know OneNote more than 10 years ago, I have use excel for more than 10 years ago to store info so there are many text in excel already. It works fine for me because I find it neater that all info are in a cell so it does not mess with other info in other cells or sheets. Notepad++ can store all same subject text in a .txt file but not suitable to store different subjects in a same .txt file, for example now I want to record a "chicken soup recipe" text and record a "vacuum cleaner cleaning instructions" text, I would need two .txt file to separate different types of info.

 

[Cubist]

I right click the sheet name>view code then pasted the above code in the editor then press F5 is it correct? Will it apply to all sheets in the workbook?

Yes. The first code will apply to all worksheets. For the second one to work on all sheets, you'd need to right-click and insert that code to each individual sheet code.

I then delete the above code and then replace with this below code correct?

Yes.

After finishing the steps above I then try copy text and paste into excel cell.

Yes.

 

[man]

Yes. The first code will apply to all worksheets. For the second one to work on all sheets, you'd need to right-click and insert that code to each individual sheet code.


Yes.


Yes.

Your solution works. Thanks.

How do I save it so I do not need to repeat the steps to insert code? I click save button then I see this screenshot and not sure what to do