MS Excel

nestacilo by prefarbit pismo na bielo? :))citovat

@Palooo ... nie nejde mi o prefarbenie alebo zvyraznenie ... potrebujem vymazat riadky kde uz zvyraznenie je v akejkolvek bunke daneho riadku ....

BTW odpoved uz mam z excelforum.com a prikladam ju :

Sub deleterows()
Dim rng As Range, cell As Range
Dim lr As Long, lc As Integer, i As Long, x As Integer, n As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = lr To 2 Step -1
Set rng = Range(Cells(i, 1), Cells(i, lc))
n = Application.WorksheetFunction.CountA(rng)
For Each cell In rng
If cell.Interior.ColorIndex <> xlNone Then
Exit For
Else
x = x + 1
End If
If x = n Then
cell.EntireRow.Delete
End If
Next cell
x = 0
Next i
Application.ScreenUpdating = True
End Subcitovat

@lubo to je sice fasa ale dost nepouzitelne nakoko je to velmi pracne a hladal som nieco co mi urychli pracu aby som nemusel stlpec po stlpci robit firlte na farbucitovat