Příspěvky uživatele
< návrat zpět
Problém je aj v tom, že to je text (!), a nie dátumo-čas.
Teda nematicovo
=SUM(IF(FREQUENCY(INT(B2:B100);INT(B2:B100))>0,1;1))-1
=SUMA(KDYŽ(ČETNOSTI(CELÁ.ČÁST(B2:B100);CELÁ.ČÁST(B2:B100))>0,1;1))-1
ak tam je dátum, ale nie vklad, tak sa dátum nemá započítať, teda maticovo:
=SUM(IF(FREQUENCY(IF(A2:A100<>"";INT(B2:B100););INT(B2:B100))>0;1))-1
=SUMA(KDYŽ(ČETNOSTI(KDYŽ(A2:A100<>"";CELÁ.ČÁST(B2:B100););CELÁ.ČÁST(B2:B100))>0;1))-1
ak tam je vklad, ale nieje dátum, teda sa nemá aký započítať, FREQUENCY/ČETNOSTI to berie ako 0, a tú ignoruje, teda tento prípad rieši prvý vzorec.
EDIT: Predošlé vracajú o 1 viac, teda buď započítava aj tie prázdne alebo FALSE/NEPRAVDA v podmienke, alebo FREQUENCY vracia pole o 1 väčšie, riešením by bolo vždy odrátať 1 na konci.
Alebo oprava maticovo :
=SUM(--(FREQUENCY(IF((A2:A100<>"")*(B2:B100<>"");INT(B2:B100);"");INT(B2:B100))>0))
=SUMA(--(ČETNOSTI(KDYŽ((A2:A100<>"")*(B2:B100<>"");CELÁ.ČÁST(B2:B100);"");CELÁ.ČÁST(B2:B100))>0))
Iba ak to bude prkotina. Nasľuboval som už kadekomu hory-doly, a nemám kedy (často ani chuť) skoro nič urobiť ...
Pošli to na mail.
Tak keď tam nieste, do príchodu nič nepíšte. Prečo tam potrebujete okrem červeného označenia mať ešte aj napísané SV ? Vzorec v O48 presne spočítava "SV". Nerozumiem Vám. Vyplňte a pošlite prílohu s príkladom čo máte, a čo chcete mať.
Je to môj kód z 26.2.2018. Myslím, že bude stačiť vložiť toto
strPath = strPath & Format(Date, "yyyy.mm.dd") & Application.PathSeparator
If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath
Pred riadok
Application.DisplayAlerts = False
No tak to by bolo treba celé prerobiť. Ale tie 3 veci napr takto:
Private Sub PrepisTextBox()
Dim Z()
With Worksheets(Data)
Z = .Cells(i, 1).Resize(, 5).Value
TextBox1.Text = Z(1, 1)
If IsDate(Z(1, 2)) Then TextBox2.Text = Format(Z(1, 2), "d.m.yyyy") Else TextBox2.Text = Z(1, 2)
If IsDate(Z(1, 3)) Then TextBox3.Text = Format(Z(1, 3), "d.m.yyyy") Else TextBox3.Text = Z(1, 3)
TextBox4.Text = Z(1, 4)
CheckBox1.Value = UCase(Z(1, 5)) = "ANO"
End With
End Sub
Private Sub Editace()
Dim Z(1 To 1, 1 To 5)
Z(1, 1) = Int(TextBox1.Text)
If IsDate(TextBox2.Text) Then Z(1, 2) = DateValue(TextBox2.Text) Else Z(1, 2) = TextBox2.Text 'zapisovat datum
If IsDate(TextBox3.Text) Then Z(1, 3).Value = DateValue(TextBox3.Text) Else Z(1, 3) = TextBox3.Text 'zapisovat datum
Z(1, 4) = TextBox4.Text
Z(1, 5) = IIf(CheckBox1, "ANO", "NE") 'zapisovat ANO / NE
Worksheets(Data).Cells(i, 1).Resize(, 5).Value = Z
End Sub
Private Sub Najdi_Click()
Dim c As Range
Set c = Worksheets(Data).Columns(4).Find(TextBox17.Value, LookIn:=xlValues)
If c Is Nothing Then
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly)
Else
i = c.Row
NajdiDalsi.Enabled = True
End If
If i > 3 And Předchozí.Enabled = False Then Předchozí.Enabled = True
If i = 3 And Předchozí.Enabled = True Then Předchozí.Enabled = False
PrepisTextBox
End Sub
Chýbal mi tam predsa posledný parameter v MATCH(). Vedľa som pridal aj ten druhý spomínaný spôsob čo čekuje stĺpec C:C.
Máte pravdu nedomyslel som to. Napadlo ma nechať A:E, do F dať dátumy výkonu, a do G výkon. Síce by sa dala robiť z toho KT so sumármi pre každého zadávateľa, zákazku, či výpis v daný deň, ale musel by sa opakovať pri zadávaní riadok v stĺpci A a C, čo by bolo naprd. Síce by sa pekne scrolovalo, ale bolo by to neprehľadné. Viac sa už radšej dnes nezamýšľam. Dobrú...
Heh, Elnino sa sem dostáva až teraz. A to iba uspať PC, páč mi tu ide celý deň na 2 veci... 
Zajtra si aspoň omrknem riešenia.
Zbytočne pomalé to robiť po 1 riadku a kopírovať celé riadky. Tie listy majú rozdielnu šírku, alebo vždy rovnakú ? Navrhujem použiť UsedRange, prípadne pole+kolekciu. Ak nikto, tak možno cez obed Vám to spravím. Najlepšie by bolo priložiť fiktívne dáta s 2 listami s pár riadkami, a výsledkom. Ale nech to vyzerá ako skutočný súbor, teda či je niečo pod touto tabuľkou, či vedľa nej (súčtové riadky stĺpce). Nech je vidieť prípadná rozdielnosť v počte stĺpcov a pod.
Veď toto sú jednohubky :)
Prípadne PowerQuery. To by som v PQ možno zvládol aj ja 
Vzorce máte v podmienkach upravené, stačí iba absolútny "$" odkaz na stĺpec B teda $B3. Podmienky nastaviť iba na jednu bunku F3. A potom napr.
-Označiť bunku F3, Ctrl+C, označiť potrebnú oblasť F3:U6, pklik, možnosti prilepenia, Formátovanie.
-Označiť bunku F3, potiahnuť kam treba dole alebo doprava.
-Rovnako ak pridáte nový dátum, označte iba posledný predošlý stĺpec, a natiahnite doprava. Skopírujú sa aj predošlé dáta, tie zmažte, alebo použite iba kopírovanie formátu, viď vyššie.
-Alebo si nastavte/nakopírujte formát na väčšiu oblasť naraz.
Apropo dátumy - viete, že víkendy máte mimo ? Počet dní v týždni máte 6?
PS: A prečo nezadávate dáta pod seba. Dali by sa potom pekne filtrovať podľa dátumu, zadávateľa a pod.
Pre priloženie súboru s makrom treba súbor zabaliť do ZIP, RAR. Samotný XLSM nieje možné na fórum priložiť.
Pozor vyhľadávaná bunka musí mať rovnaký formát ako prehľadávané dáta. Hľadané ste mal ako Všeobecné, a prehľadávané ako Text. Ak tam máte v dátach ten stĺpec Lines, tak aj podľa toho sa dá určiť, či treba aj druhý riadok. Teraz som to určil podľa prázdnej bunky v prvom stĺpci.
A čo určuje, kedy tam bude ten List 0 a kedy nie?
Ako to súvisí s tými náhodnými číslami vo vedľajšom vlákne?
Pridanie nového listu ... no to už vôbec nechápem. Vlastne ako to má celé fungovať je dosť divné. Našiel som si tu rozpracovaný súbor, čo som sa Vám to už snažil poriešiť, a už viem prečo som toho zanechal. Raz sú dáta s medzerami (riadkami), potom bez, to sa dá dopočítať. No vôbec sa neráta s tým, čo ak sa zmení názov tovaru? Alebo Umiestnenie v tabuľke ?
Množstvo zádrhelov a podivností. Čo s tými hypertextovými odkazmi v liste "Menu", pri akej príležitosti a kto ich má vytvárať ? Hypertextový odkaz je napr aj na cene "2,- €" (J13 a J14) v liste "Tlač".
Na každom liste zostáva tlačítko "Inventár", ktoré prepíše dáta na liste "Inventár" podľa toho na ktorom liste bolo stlačené ? To sú teda tie listy 0-99 dni? 99 dní ale mesiac nemá? Čo iné okrem dní to môže byť, ak je v G1 mesiac? Alebo sa inventár či sumár nerobí každý mesiac ? Ako potom vytvárať mesačné odkazy v "Menu", keď sa nerobí súhrn každý mesiac?
...
Obávam sa naozaj veľkej straty času. Dovysvetlite prosím používanie súboru.
Popíšte čo najskôr čo potrebujete, lebo už mám zas pomenej času na fórum ...
Veď to otestujte cez Len(Dir()) tak ako testujete existenciu adresárov. Napr. :
Sub Tisk_protokolu_do_PDF()
Dim Soubor As String, Slozka As String, Zakazka As String, Rozhodnuti As Long
Slozka = ThisWorkbook.Path
If Len(Dir(Slozka & "\PDF", vbDirectory)) = 0 Then MkDir Slozka & "\PDF"
If Len(Dir(Slozka & "\PDF\Protokoly", vbDirectory)) = 0 Then MkDir Slozka & "\PDF\Protokoly"
If Len(Dir(Slozka & "\PDF\Protokoly\Hotové", vbDirectory)) = 0 Then MkDir Slozka & "\PDF\Protokoly\Hotové"
With ThisWorkbook.Worksheets("Kovo - actual forms")
Zakazka = .Range("AK1").Text & "_" & .Range("AL1").Text & " - " & .Range("AJ3").Text
Soubor = Slozka & "\PDF\Protokoly\Hotové\" & Zakazka
Rozhodnuti = vbYes
If Len(Dir(Soubor & ".pdf", vbNormal)) <> 0 Then
Rozhodnuti = MsgBox("Soubor PDF již existuje." & vbNewLine & "Přejete si ho prepsat ?" & vbNewLine & vbNewLine & Soubor & ".pdf" & vbNewLine & vbNewLine & _
"ANO - přepsat" & vbNewLine & _
"NE - uložit s číslem 2" & vbNewLine & _
"ZRUŠIT - zrušit operaci", vbQuestion + vbYesNoCancel, "Upozornění")
End If
If Rozhodnuti = vbCancel Then Exit Sub
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Soubor & IIf(Rozhodnuti = vbNo, "2", "") & ".pdf", _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub
Uživatelské menu
\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.
RSS nejnovější články