Příspěvky uživatele
< návrat zpět
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.
Private Sub CheckBox3_Click()
If CheckBox1.Value = True Then
Sheets("vzor").Rows("31:34").Hidden = False
Else
Sheets("vzor").Rows("31:34").Hidden = True
End If
End Sub
Pod Checkboxem 3 se odkazuješ na první, viz tučné písmo.
Líbí se mi tohle řešení pomocí makra. Prostuduj
http://www.makra.webz.cz/02Faktura/faktura.htm
Ahoj, reaguju na předposlední příspěvek. Je použit maticový vzorec (zadání se ukončí trojkombinací CTRL+SHIFT+ENTER)
Pomocí maticového vzorce
Uživatelské menu
\nFormulář 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