nestacilo by prefarbit pismo na bielo? :))citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zvyraznene bunky
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: zvyraznene bunky 
Zaslal/a mayor 14.4.2014 10:31
Ahoj, ako by sa dali vymazat riadky v ktorych nie su zvyraznene bunky ?
Mam list v ktorom mam stlpce (A:X) s hodnotami a v roznych stlpcoch a riadkoch su zltym zvyraznenim oznacene hodnoty. Potrebujem vymazat riadky tabulky take kde nie je v ziadnom stplci zvyraznenie.
Příloha: 
18858_ukazka.zip (8kB, staženo 28x)
18858_ukazka.zip (8kB, staženo 28x) Uzamčeno - nelze přidávat nové příspěvky.inac by ste museli pouzit makro:
Sub test()
For x = 2 To 13
For y = 1 To 10
If Cells(x, y).Interior.Color <> 65535 Then Cells(x, y) = ""
Next
Next
End Subcitovat
Sub test()
For x = 2 To 13
For y = 1 To 10
If Cells(x, y).Interior.Color <> 65535 Then Cells(x, y) = ""
Next
Next
End Subcitovat
@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
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
(14.4.2014 12:10)#018867
klik do tabulky, automatický filtr,
sloupec f, filtrovat podle barvy, bez výplně,
sloupec j, filtrovat podle barvy, bez výplně, ...
vybrat zbylé řádky, odstranit.citovat
sloupec f, filtrovat podle barvy, bez výplně,
sloupec j, filtrovat podle barvy, bez výplně, ...
vybrat zbylé řádky, odstranit.citovat
@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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články