Příspěvky uživatele
< návrat zpět
Nie. Použite to hromadné makro z odkazu.
Pridal som tam iba
If vbcompSource.CodeModule.CountOfLines = 0 Then
pred priradenie textu kódu v module, ak by náhodou bol modul bez kódu.
A čítal ste tam toto:
Just make sure, following things are done before running this macro.
VB Editor > Tools > References > (Check) Microsoft Visual Basic for Applications Extensibility 5.3
File -> Options -> Trust Center -> Trust Center Setttings -> Macro Settings -> Trust Access to the VBA Project object model.
A1 = Ahoj jak; se mas! ja dobře! tak to sem rada
v tomto pripade hledat znak ; a vrátit číslo 27.
no to asi ťažko...
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.
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