I might suggest that you enable "wrap text" in the column you're entering/editing notes - just for the visual effect it provides. There are several places in the code where you can make adjustments, and is so noted by a comment. The choice of font, size, style, etc will likely change the outcome of the wrapping. Be aware, the code is based on a poor assumption - that the column width is equal to the number of characters in that column. The code should be pasted into the worksheet module associated with the worksheet where you're entering/editing notes. If Err.Number 0 Then MsgBox Err.Number & ": " & Err.Description Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo 'Change to match your column
![microsoft excel templet for storing magazine notes microsoft excel templet for storing magazine notes](https://soulcompas.com/wp-content/uploads/2020/06/retail-inventory-tracker-excel-template.jpg)
StartPosition = StartPosition + ColumnWidth - (ColumnWidth - k) If Mid(Cells(i, 1).Value, k, 1) = " " ThenĬells(i, 1).Value = Mid(Cells(i, 1).Value, 1, ColumnWidth - (ColumnWidth - k))Ĭells(i + j, 1).Value = Mid(Cells(i + j, 1).Value, StartPosition, ColumnWidth)ĮlseIf Mid(Cells(i + j, 1).Value, (StartPosition + k), 1) = " " ThenĬells(i + j, 1).Value = Mid(Cells(i + j, 1).Value, StartPosition, ColumnWidth - (ColumnWidth - k)) Rows(i).Resize(Round((txtLength / ColumnWidth) + fudgeFactor, 0), 1).EntireRow.Insertįor j = 0 To Round((txtLength / ColumnWidth) + fudgeFactor, 0) If Not Intersect(Target, Columns(1)) Is Nothing Then 'Columns(1) is Column A change to match your column LastRow = Cells(Rows.Count, "A").End(xlUp).Row 'Change to match your columnįudgeFactor = 4 'Adjust up if text is being truncated.
![microsoft excel templet for storing magazine notes microsoft excel templet for storing magazine notes](https://www.exceldemy.com/wp-content/uploads/2022/06/how-to-add-notes-in-excel-1-768x690.png)
Private Sub Worksheet_Change(ByVal Target As Range)ĭim i As Long, j As Long, k As Long, StartPosition As LongĬolumnWidth = 20 'Change to match your column width If anyone has any ideas, please let me know. (I have more I can explain, but I don't want this post to get too lengthy.) I am also in the process of looking into software designed specifically for note taking, but I am afraid I have gone too far with Excel to turn back now. I have tried the approach of typing in Word and then pasting into Excel but it is rather inconvenient and with 256 character limitation of each cell, it becomes tricky to not lose notes without knowing it, as well as I lose a lot of the conveniences of using Excel. On a few other threads I have tried to come up with some ideas for some macro tools to request, and many users have been extremely helpful, but I was wondering if anyone has any ideas of how something like this may be achieved in Excel, I don't think such a setting exists within the program itself. Where when the text goes over the column width it automatically puts you into the next row, but this does not exist. What I ideally would like is a built in setting that uses the column width vertical line in a "wrap to ruler" or "wrap to window" kind of a setting found in Word. What I currently am doing is setting a relatively average column width that stays the same, and when I get to the end of that column width with text I have to hit enter to go to the next row.įor obvious reasons this becomes increasingly annoying to deal with, and also if you want to change the column width in the future this method will cause problems.
![microsoft excel templet for storing magazine notes microsoft excel templet for storing magazine notes](https://ih1.redbubble.net/image.882192575.0847/hj,1000x-pad,1000x1000,f8f8f8.jpg)
When text is wrapped that convenience is lost in my opinion. When using Excel for note taking it is also nice to have each row of text be its own entity where you can add new rows in between, delete entire rows, etc. I would like the ability to keep all rows at the same height, I find that applying the "wrap text" option creates a ton of different row heights and it becomes too confusing visually for me. The main limitation I am dealing with is the issue of text wrapping. However, Excel unfortunately has some key limitations as well which is why I am here. I find myself using Excel more and more to take notes with, typically most will use Word for this purpose but I feel that Excel offers many benefits that Word does not.