Příspěvky uživatele
< návrat zpět
A kde ste nechal indexovacie (poradové) čísla, na základe ktorých to fachalo, ktoré Vám tam mepexg nachystal ? Ja tam vidím nejaký číselný bordel. Alebo si počítate poradový index odpočtom riadkov+násobok stĺpcov? V tom bude problém.
PS: Inak príloha sa nahrá iba tak, že ju zabalíte do ZIP, RAR, alebo premenujete na ZIP. Priamo XLS sem nejde nahrať.
EDIT: Aha, pozrite si a nastavte oblasť tlače (napr v Definovaných názvoch / Správca názvov)
Z brucha : na konci pripočítajte 1
...
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row + 1
...
EDIT:
Respektíve, keď na to pozerám, tak fakt od brucha, tak by to malo byť plus mínus autobus takto:
...
x = 1
maxRadek = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To maxRadek
If ActiveSheet.Cells(i, 4).Value = "Hotovo" Then
ActiveSheet.Rows(i).EntireRow.Copy List2.Rows(maxRadek2 + x)
x = x + 1
End If
Next i
...
ale neskúšam to, to len tak ...
Nočný nástrel pred spaním. Dve verzie. Jedna kopíruje celé riadky (teda aj formát), druhá len hodnoty. Príliš som to netestoval...
pr.
EDIT: Aha, tak kolega bol rýchlejší. KT bude vhodnejšia, aj keď budete potrebovať vypísať neznámy počet neznámych produktov...
Niečo podobné:
Sub Send()
Dim RNG As Range, PIC As Picture, OUT As Object, OUTMAIL As Object, WRDDOC As Object
Set RNG = Range("B2:J87")
RNG.Copy
Set PIC = ActiveSheet.Pictures.Paste
PIC.Cut
Set OUT = CreateObject("Outlook.Application")
Set OUTMAIL = OUT.CreateItem(olMailItem)
With OUTMAIL
.To = "halusky@portal.sk"
.CC = "slize@portal.sk"
.Subject = "Pozdrav z Marsu"
End With
OUTMAIL.Display
Set WRDDOC = OUTMAIL.GetInspector.WordEditor
WRDDOC.Range.PasteSpecial , , , , wdPasteBitmap
Set WRDDOC = Nothing: Set OUTMAIL = Nothing: Set PIC = Nothing: Set OUT = Nothing: Set RNG = Nothing
End Sub
Treba zafajknúť v Tool-References
Microsoft Outlook 16.0 Object Library
Microsoft Word 16.0 Object Library
Problém ale spočíva ešte v nutnosti potvrdiť v Outlooku vytvorenie správy. SendKeys sa mi nepodarilo rozbehať.
"xlbx" napsal/a:
To vaše není programový kód, ale Matrix :-D Ne vážně, tohle uživatelům nemůžete naservírovat :-D. Jo, máte nesporně programátorského ducha, copak o to, ale ... no a ty Goto trošku bolí.
??? Nesatačí ???
=COUNTIF(oblasť;"meno")
Zo srandy som skúsil vypotiť brutálny megavzorec namiesto makra. Teraz nastavené na 1000 hodnôt. Výpočtová doba sa ako tak dá zniesť...
Ja som to robil cez pole. Bol ste rýchlejší.
Prosím ? A kde sú tie ostatné listy, ktorých sa makro týka ? Prečo ste posunuli takú drobnosť ako pozíciu smerodatného dátumu z M1 do L1 ? To musím vždy skúmať všetky rozdiely s predošlou verziou ? To ma fakt nebaví. Názov súboru vo mne navyše evokuje pocit, že sa polka makier používať nebude, a zoznam pacientov bude samostatný súbor vedľa súborov spotreby materiálu. Podmienený formát je práveže lepší a jednoduchší ako riešenie ofialovenia riadkov na základe "1" makrom. Jednoduchšie je nechať aj orámovanie tabuľky na PF (akurát nebude vonkajšie hrubšie). Upravené makro som uložil do tohto súboru, a uvidíme, či si to budete vedieť presunúť do toho pôvodného, ak sa vôbec bude pôvodná skladba makrá+listy používať. A ak nie, tak bude treba makro zasa prekopať.
Ponechanie prvých riadkov oddelení - znamená ponechanie dát vo všetkých stĺpcoch v tom prvom riadku, alebo len ponechanie čísla 1 a názvu oddelenia ?
Kvôli zmene orámovania (PF), som upravil aj "CommandButton1_Click", navyše tam bolo adresovanie od riadku 3 (asi nejaká pôvodná verzia). "CommandButton2_Click" ani neskúmam, čo robí, také tlačítko tam nemáte (pravdepodobne pozostatok po odstránení tlačítka).
Použite fnc IF/KDYŽ alebo IFERROR.
=IF(AND(E2<=7;F2<=15;G2<=3;H2<=5;I2<=3);"OK";"NOK")
=KDYŽ(A(E2<=7;F2<=15;G2<=3;H2<=5;I2<=3);"OK";"NOK")
alebo len zo srandy matica
{=IF(SUM((E2:I2<={7\15\3\5\3})*1)=5;"OK";"NOK")}
{=KDYŽ(SUMA((E2:I2<={7\15\3\5\3})*1)=5;"OK";"NOK")}
Napr.
No to je problém. My nevieme ako to je koncipované, a ako to bude používané, či je to tabuľka alebo Object Tabuľka, či sú pod dátami kód a názov ešte iné dáta v tých stĺpcoch, kde sú vzorce, kde iba hodnoty, či sú počiatočné riadky a stĺpce fixné alebo nie, či tam môže byť výberový zoznam alebo nie, ako je vyriešené dopĺňanie nových riadkov, a či je počet riadkov obmedzený (ďalšími objektami alebo nastavením tlače ...), či a aké sú tam vlastne stĺpce (Celkom, s PDH, bez ...), lebo aj Celkom som si tam domyslel, to ste tam nemal.
atď...
To sa bez reálnej prílohy (po odmazaní citlivých info, ale ponechaní štruktúry) nedá.
ponechanie pôvodných hodnôt: Je tu možnosť zapnúť iteračný výpočet, kde by sa testoval nejaký príznak (napr. v nejakej bunke by bolo "Vybavené") a na základe toho by vzorec buď odkazoval sám na seba, alebo počítal s aktuálnymi dátami. No nie som si istý ako sa to zachová, ak sa súbor náhodou otvorí na PC, kde iteračný výpočet zapnutý nieje (a to predvolene nieje). Myslím, že automaticky nenávratne zničí staré dáta. Teda jednoduché riešenie je, po vybavení označiť tabuľku, Ctrl+C, pklik a výber Hodnoty.
Ak náhodou nepotrebujete zároveň robiť zoznam mien v tabuľke, ale máte ho pevný, tak aj maticovým vzorcom. Príklad:
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