karta domů -> seřadit a filtrovat -> zvolit filtr textu -> obsahuje - a sem zadáte Q a tím se zobrazí požadované buňkycitovat
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: promazání databáze
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: promazání databáze 
Zaslal/a 9.7.2013 16:22
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.(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
Lahwac to napsal dobře, pak stačí jen vymazat, ale, co je to "odstranit". Úplně odstranit řádky nebo třeba jen skrýt?citovat
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
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
Já jsem to zpracoval takto. Lze zadat číslo sloupce i hledané písmeno.
Příloha: 
14297_sesit1.zip (15kB, staženo 27x)
citovat14297_sesit1.zip (15kB, staženo 27x)@ji026441
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat
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ě.
Příloha: 14299_sesit1.zip (16kB, staženo 26x)
citovat14299_sesit1.zip (16kB, staženo 26x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Čas od do
lubo • 19.4. 16:30
Makro smyčka
MilanKop • 19.4. 10:46
Makro smyčka
elninoslov • 19.4. 9:02
Čas od do
elninoslov • 19.4. 8:46
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
RSS nejnovější články