Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
sexy_andrea2006
 | Femeie
24 ani
Sibiu
cauta Barbat
27 - 53 ani |
|
|
TRaP
Moderator
Inregistrat: acum 8 ani
Postari: 937
|
|
E.g., I have data in range A1:E8, but I previously formatted more rows in these columns to ensure already applied formatting when I add data past row 8. Now I want to add additional data in column F and would like to know the last formatted cell so I can apply the same to column F, or go beyond the last formatted cell/row. Maybe I formatted 100 cells, maybe less.
I want consistent formatting so I won't find one day that formatting is applied in column A, but not in B, but is applied in C and D, but not in E etc.
This is not shown in Workbook Statistics, as that reports the last cell with data, not with formatting.
For Conditional Formatting, simply go there and check ranges.
But if you ever want to see what is the last formatted cell of your worksheet - e.g. you added wrap text, bold etc. - use:
This key combination will go to the last formatted cell in your worksheet.
In my case, I had data in A1:E8 and it turns out my last formatted cell was E66.
I usually mark my last formatted row by adding a border and leaving a text, but CTRL+END is much easier, or is useful in case you forget to add visual management to the worksheet.
To clear formatting, simply go on the first empty row after your data, select the range across (in my case I would select A9:E9), press CTRL+SHIFT+DOWN ARROW to select all blank rows in worksheet, go to Home - Clear - Clear All.
Now pressing CTRL+END will select the last cell in your data.
Source: Gemini Flash 3.5
|
|
| pus acum 5 zile |
|
|
TRaP
Moderator
Inregistrat: acum 8 ani
Postari: 937
|
|
VBA Code to achieve this - UNTESTED
Sub HighlightFormattedEmptyCells()
Dim cell As Range
Dim count As Long
For Each cell In ActiveSheet.UsedRange
' Checks if cell is empty BUT has non-default font or alignment settings
If IsEmpty(cell) Then
If cell.Font.Bold Or cell.HorizontalAlignment <> xlGeneral Or cell.Interior.ColorIndex <> xlNone Then
cell.Interior.Color = vbYellow ' Highlights the cell in yellow
count = count + 1
End If
End If
Next cell
MsgBox count & " empty formatted cell(s) highlighted in yellow.", vbInformation
End Sub |
Source: Gemini
|
|
| pus acum 5 zile |
|