MS Excel

Dobrý den, potřebovala bych pomoc s nějakou funkcí, která by mi promazala ze sloupce, kde mám v každé buňce jedno slovo a potřebuji promazat slova, která obsahují písmeno "q". Je to nějak možné? Děkuji za pomoc

Uzamčeno - nelze přidávat nové příspěvky.

lahwac(9.7.2013 16:30)#014293

karta domů -> seřadit a filtrovat -> zvolit filtr textu -> obsahuje - a sem zadáte Q a tím se zobrazí požadované buňkycitovat

Miska(9.7.2013 16:34)#014294

no to jsem myslela trochu jinak. ten sloupec má 20 tisíc řádku a z toho třeba 1000 řádků obsahuje slovo s q a já potřebuji nějak automaticky ty řádky odstranit a ne je najít. myslíte si, že je to nějak možné? děkujicitovat

Opičák(9.7.2013 17:56)#014295

Lahwac to napsal dobře, pak stačí jen vymazat, ale, co je to "odstranit". Úplně odstranit řádky nebo třeba jen skrýt?citovat

Opičák(9.7.2013 18:29)#014296

Uplné odstranění řádků:
Sub vyhodQ()
Rem --- pro sloupec A --- jinak upravit ---
Dim MaxLin As Long
Application.ScreenUpdating = False
MaxLin = Cells(Rows.Count, "A").End(xlUp).Row
For lin = MaxLin To 1 Step -1
For pismeno = 1 To Len(Cells(lin, "A"))
If Mid(Cells(lin, "A"), pismeno, 1) = "q" Or pismeno = "Q" Then
Rows(lin & ":" & lin).Select
Selection.Delete Shift:=xlUp
End If
Next
Next lin
Application.ScreenUpdating = True
End Sub

edit:
mezi End If a Next (4-5 řádek odspodu) by mohl být ještě řádek EXIT FORcitovat

ji026441(9.7.2013 18:54)#014297

Já jsem to zpracoval takto. Lze zadat číslo sloupce i hledané písmeno.citovat

Opičák(9.7.2013 19:02)#014298

@ji026441
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat

ji026441(9.7.2013 20:24)#014299

No jo, chybička se vloudila, nejdřív jsem to udělal jen na "A", ale pak jsem si řek, ať je to uživatelsky nastavitelné a doplnil jsem tam ten inputbox, ale už nezměnil v cyklu... Tady je to už doufám správně.citovat

Miska(10.7.2013 14:31)#014302

Dekuji, pomohlocitovat

Téma: promazání databáze

Uživatelské menu

Formulář Faktura

Formulář Faktura V

Helios iNuvio

On-line nástroje