Příspěvky uživatele
< návrat zpět
V tom případě vyzkoušej(na kopii svých dat) toto:
Sub Vymaz_radky_podle_podminky()
Dim i As Long
For i = Range("AT" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 46).Text Like "*-M-*" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
Edit: Kod upraven, vypadly mi tam ty pomlky!
Ten kód není špatný, dělá přesně to co jsi popsal v zadání. Špatné jsou tvoje vyjadřovací schopnosti! Chtěl jsi smazat řádek, kde je ve sloupci AT text "-M-" (tedy pomlka em pomlka).
Chceš tedy tvůj "znak" hledat v textovém řetězci v buňce sloupce AT.
Ten tvůj znak je "-M-" nebo je má jednat jen o obyčejné "M"? Má se rozlišovat velikost písmena "M" či nikoliv?
Vzorec je maticový. Jeho zadání se ukončí trojkombinací
CTRL+SHIFT+ENTER
Postav se na buňku, kde máš vzorec. Stiskni F2 a poté ctrl+shift+enter a bude fungovat.
Myslíš něco jako tohle:
http://www.get-digital-help.com/2009/10/25/how-to-return-multiple-values-using-vlookup-in-excel/
Ada007 napsal/a:
Sub ukončit()
Set UKO = Worksheets("Ukončení")
Set MD = Worksheets("MD kmenová data")
For r_u = 2 To 10000
If UKO.Cells(r_u, "D").Value = "" Then GoTo konec14
For r_m = 2 To 5000
If MD.Cells(r_m, "F").Value = "" Then GoTo konec13
If (MD.Cells(r_m, "F").Value = UKO.Cells(r_u, "D").Value) And (UKO.Cells(r_u, "L").Value <= UKO.Cells(1, "Q").Value) And (UKO.Cells(r_u, "L").Value <> "") Then
MD.Cells(r_m, "O").Value = "False"
GoTo konec13
End If
Next r_m
konec13:
Next r_u
konec14:
End Sub
Porovnává hodnoty z listu MD kmenová data ze sloupce F s listem Ukončení slouec D, L a Q. Pokud vyhoví podmínce na listu MD kmenová data do sloupce O zapíše hodnotu FALSE
Ada007 napsal/a:
' příjmení, jméno do sloupce D
DOCH.Activate
Range("D1").Select
Selection.Copy
Range("D2:D5000").Select
ActiveSheet.Paste
Range("A2").Select
V podstatě na listu Docházka zkopíruje vzorec z buňky D1 do buněk D2 až D5000
Ada007 napsal/a:
No já bych právě ráda věděla, co to má dělat, protože ta dobrá duše, co to psala to není schopná nikomu vysvětlit, co to má dělat. ... proto to sem celé píšu ...., to že to není OK vím bohužel sama
Největší průser je, že ani ta dobrá duše neví co to má dělat.
Pokud sem nedáš vzorek dat na kterých se do dá odzkoušet, tak si to budeš muset odkrokovat (klávesou F8) sama.
Na jednu část monitoru sešit na druhou editor VBA. Kurzor postavíš na začátek makra a mačkáš F8.
Zde je celý kód v txt
http://www.jaknaoffice.cz/2-forum/?id=2397
To AL
Ahoj chci se zeptat, jaký význam má na konci vzorce toto
-COLUMN(A1)+1) ?
Díky
Matejqo napsal/a:
Ako to myslíš s tým SUBSTITUTE ? podľa mňa sa to na toto nedá použiť, hovorím neviem či je to úplne jednoducho pochopiteľné, ale skúste to pochopiť čo sa snažím spraviť, na to mi SUBSTITUTE nemá ako pomôcť
Opak je prevdou. viz soubor
nebo si ještě počti
http://wall.cz/excel-navod/parser-textu-funkce-najit-zleva-delka-a-cast
Pokud sem pochopil zadání, šel bych na to pomocí funkce SVYHLEDAT.
Jen rychlý nástřel, nutno doladit.
Tisk na výchozí tiskárnu, zápis data a počtu kopií na list2
nebo nematicově
=SOUČIN.SKALÁRNÍ((B9:B41="A")*(D9:D41))
=KDYŽ((A1-B1)<0;(B6-D6)&" YES";(D7-D8)&" NO")
Další jednoduchou možností je nastavit souboru parametr "Jen pro čtení" a je po pérdeli 
=SOUČIN.SKALÁRNÍ((MĚSÍC(A1:A100)=B1)*1)
Místo A1:A100 dosaď vlastní rozsah buněk obsahujících datum, B1 je kritérium (vyhledávaný měsíc - číslo). Buď změň odkaz na "svou" buňku nebo vlož číslo měsíce natvrdo do vzorce.
Uživatelské menu
\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