• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Vy chcete z nejakého iného programu (účtovný soft, skladový soft, soft pre jazdné rozkazy, ...) tlačiť rovno do políčok Excelu, aby vyplnil vo formulári tie červené data ? Tak to nevidím príliš reálne. Jedine ak by mal ten dotyčný soft nejaký Export do rozlúsknuteľného formátu, ktorý by sa potom napr aj hromadne, pri otvorení toho formulára v Exceli makrom načítal.

Alebo chcete z iného Exceláckeho súboru "tlačiť" do tohto súboru vždy nový list s vyplnenými údajmi z toho prvého ? To je reálne.

Prosím ??? Veď práve tak je to urobené ! Niečo musíte robiť zle.
-Musíte mať povolené makrá.
-Žiadny nový list nevytvárate. Pracujete iba z listom Rozpis.
-Do listu DB nijako nezasahujte.
-Ďalší/predošlý mesiac prepínate 3-mi spôsobmi. Výberovým zoznamom v políčku mesiaca, priamym zadaním čísla mesiaca alebo roku do bunky písaním, alebo šípkami veľa roku (tie posúvajú po mesiacoch a z 12 preskakujú na ďalší rok a z 1 na predošlý rok).
-Pri každej zmene sa uloží do databáze pod daný rok a mesiac a všetky dni a všetkých pracovníkov, všetko čo je vyplnené, potom sa načíta ten mesiac, ktorý ste zadali jedným z 3-och spôsobov.
-Všetko práve že funguje, tak ako ste chcel.

EDIT: Nekopírujete vy náhodou makro z tohto môjho zošitu do Vašeho ? To samozrejme fungovať nebude. Makro je volané z Worksheet_Change listu Rozpis, Počíta iba s listom Rozpis a DB, a navyše list Rozpis má upravený riadok s dátumami v kalendári. Takže ak to kopírujete iba z časti, tak je to nefunkčné. Vyskúšajte si to najskôr v mojom súbore.

A potom ešte otázka : V tých súčtoch sa má zrátať nejaké "n", netuším čo to je?

Ako prílohu ste poslal iba ten odkaz na súbor, čo si Excel vytvára pri otvorenom súbore (165 B). Treba poslať skutočné XLSX (niekoľko desiatok KB a viac).

Také už som niekomu robil, skúsim to pohľadať, nech to nemusím znovu robiť :)

EDIT: Žiaľ som to nenašiel, bordel no čo už. Tak som Vám niečo podobné urobil.

Prepáčte, opäť sa mi stalo po dlhšom čase, že som zabudol na českú lokalizáciu.
SLOUPEC(B$1)

Tú dvojku nahraďte "COLUMN(B$1)" (bez úvodzoviek) a vzorec kopírujte v riadku doprava.

Už to tu bolo pár krát, a jediní riešenie (neviem už kto ho vymyslel) tu bolo uvedené :
- Zoom listu
- Následné zmenšenie všetkého ostatného textu
- Veľkosti textov sa takto dajú zrovnať.
- Pri tlači potom prípadne doprispôsobiť mierku

EDIT: Doplnil som aj formulárový ComboBox, ktorý ale rovnako nemá iné riešenie, a ešte ActiveX ComboBox, ktorý už si prispôsobíte, ale je problém s aktualizáciou dynamických zoznamov hodnôt pre väčšie množstvo takýchto objektov. Všetko má svoje výhody aj nevýhody.

Dobré by bolo priložiť prílohu. Takto som si musel vyrábať tú Vašu tabuľku podľa obrázku, a aj tak som nerozoznal čo tam tam na obrázku napr je v poslednom stĺpci, alebo počet hodín za zmenu (???). Počítanie napr. takto:

Datum1.xlsm - iba zmeníte hodnotu dátumu v A1 na liste A, a samé to skopíruje hodnoty na dané miesta.
Datum2.xlsm - hodnoty na dané miesta to skopíruje až po stlačení tlačidla.

Ak tam to Overenie dát v reále je, tak to fungovať bude, lebo nastane zmena uživateľom v bunke. Ale ak tam to Overenie je len teraz pre skúšku makra, a v skutočnosti tam bude vzorec, ako píše, tak sa OnChange vzorcom nevyvolá.

Vy už na toto žiadne makro vytvárať nemusíte. V prílohe som Vám poslal upravený súbor (ktorý ste poslal Vy), v ktorom som to testoval, ale iba na jednom vyplnenom riadku.
Takže:
-zmenil som Vám tabuľku na Tabuľku - tá si totiž vzorce, formátovanie, overenie kopíruje sama po vložení nových dát pod ňu.
-nastavil som Vám teda overovanie ANO/NE na celú oblasť, ktorú ste spomínal.
-vyplnil som 4 riadky v oblasti ANO/NE
-a teraz mi povedzte, že nevidíte na liste "1.SL" žiadnu zmenu, keď do danej bunky Seznam!H1 napíšete 1, a potom napr 3.

EDIT: SZ môžete, samozrejme. Zajtra budem ale celý deň mimo SR, tak riešiť to môžme teraz ešte max hodku, potom až pozajtra. Viem, že Vám to ponáhľa, možno niekto iný by sa do toho zajtra obul.

Vyskúšajte, či som Vás pochopil správne. Na červenú oblasť som Vám doplnil Overenie dát (ANO, NE), a na skrývanie riadkov je makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Riadok As Long, i As Integer, RNG As Range
If Not Intersect(Target, Cells(1, 8)) Is Nothing Then
On Error Resume Next
Riadok = WorksheetFunction.Match(Cells(1, 8), Columns(1), 0)
If Err = 0 Then
With Worksheets("1.SL")
For i = 1 To 17
If Cells(Riadok, 21 + i) = "NE" Then
If RNG Is Nothing Then Set RNG = .Cells(17 + i, 2) Else Set RNG = Union(RNG, .Cells(17 + i, 2))
End If
Next i
.Cells(18, 2).Resize(17).EntireRow.Hidden = False
If Not RNG Is Nothing Then RNG.EntireRow.Hidden = True
End With
Else
MsgBox ("Neregulérní hodnota řádku.")
Application.Undo
End If
End If
End Sub

Pred chvíľou som nad tým rozmýšľal presne rovnako, ako píšete. Veď to by malo byť principiálne úplne jedno. Tým pádom, je to warez, a to by sa tu riešiť nemalo.

Takže týmto ďakujem AL-ovi za usmernenie, a verejne prehodnocujem svoju snahu "pomôcť" Petr_07. Takže nie.

Áno, váhal som. A v SZ som dotyčnému uviedol, že ak to bude čokoľvek od vývojárov z tohto fóra tak do toho nejdem, a iné si ešte rozmyslím. Ale súhlasím s Vami, uvidím či mi príde nejaký súbor, a čo to bude ... rozhodnem sa následne.

Čo, kde, koho, kedy, kam ???
Absolútne netuším "wo co tady go". Prosím urobte ešte jednu prílohu, kde vyfarbíte na červeno, čo chcete kde zmeniť a na akú hodnotu, a na zeleno vyfarbíte čo by sa malo kde všade zobraziť. Lebo sa fakt v popise strácam.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse