Ws.Rows(v).Resize(c.Row - v - 1).EntireRow.Hidden = HideRowsĪs you can see from a to c it works great but the d one is broken. On exporting my data in a excel cell, if the text is too long it gets split in another row which is a complete nonsense as it's giving the exported data a whole new meaning. Set c = ws.Cells(v, "B").Offset(1, 0) 'next cell down If ws.Cells(v, "B").Interior.Color = clr Then 'has the color of interest 'every variable needs a type, unless you want a Variantĭim v As Long, c As Range, ws As Worksheetįor v = 1 To ws.Cells(Rows.Count, "B").End(xlUp).Row Sub ToggleRows(clr As Long, lastcol As Long, HideRows As Boolean) 'clr - cell that marks the start, lastcol - ending cell ' `HideRows` = True will hide, False will unhide. ' and ending with the first cell filled yellow or with no fill 'Show or hide rows, beginning with a cell in ColB with fill color `clr` Now, the hidden text in your cells will be visible again. But this time choose General as the format of the cells. ToggleRows RGB(218, 238, 243), RGB(231, 238, 243), True How do you hide text overflow in Excel How do you show hidden text in Excel If you want to display the hidden cell values, right-click the cells and select Format Cells.
#Excel hide overflow text in cell code
This code wasn't written by me but was taken from my another question, I just modified it a bit to a new idea.
In a screenshot I post how does my spreadsheet look. I'm trying to write code to hide rows between cells with exact color provided, and as far everything worked great I get an 1004 application-defined or object-defined error here:
0 kommentar(er)
