Příspěvky uživatele

K tým počtom by som dospel asi aj takto, ale "nejjednodušší řešení" mi to teda naozaj nepripadá, navyše netuším ako to s tou KT poriešiť.
Snáď by to niekoho mohlo nakopnúť...

??? Takto ???
Čo myslíš tým "HyperLink" ? Internetovú stránku ? Mailový odkaz ?

Len taký návrh. Ak by mohlo byť aj makro, tak je to jednoduché (makro vložiť do listu "Data"):
Sub bActualSize_Click()
Dim RT As Long, CT As Long

'Tu môžeme vykonať import dát od niekiaľ a vložiť ich do Tabuľky DataTab

On Error Resume Next 'Ak je chyba (nieje zaplnený žiadny riadok) pokračuj s 0
RT = ListObjects("DataTab").Range.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row - 1 'Nájdi počet zaplnených riadkov v Tabuľke DataTab
On Error GoTo 0 'Obnov štandardný odchyt chýb
With ListObjects("DataTab")
CT = .ListRows.Count
If RT <> CT Then 'Ak je rozdiel medzi zaplnenými riadkami a riadkami DataTab
.Resize .Range.Resize(RT + IIf(RT = 0, 2, 1)) 'tak uprav veľkosť tabuľky DataTab podľa zaplnených riadkov
Worksheets("KT").PivotTables("KTTable").PivotCache.Refresh 'a aktualizuj kontingenčnú tabuľku KTTable na liste "KT"
End If
End With
End Sub
Bolo by všetko na jeden klik, jednorázovo. Kedykoľvek potrebuješ aktuálne data, klikneš na tlačítko, a to importuje aktuálne data (to treba do makra samozrejme dorobiť ešte, keďže neviem zdroj), vloží ich do Tabuľky DataTab na liste "Data", a urobí Refresh kontingenčnej tabuľky KTTable na liste "KT". Makrom by sa zabezpečilo aj ponechanie vzorcov v prvom riadku DataTab.

Ak niekto hľadá podobné riešenie, tak toto je môj počin, ako jedno z možných riešení toho druhého problému. Možno pre Mischell pomôžete odhaliť mušky.

Takto ?

Máš tam 3 riešenia. S tabuľkou, bez tabuľky, a bez ničoho, iba s číslom tabuľky.

A ak by si chcel mať výsledok vždy iba v jednej bunke, tak napr. takto.
A ešte malá poznámka : netreba tak na začiatku započítať aj počiatočný zostatok ?

Tu som ti navrhol ešte riešenie vytvárania listov.

V zlúčenej "superbunke" orámovanie medzi zlúčenými bunkami urobiť nejde. Ani makrom. Ide meniť iba okrajové rámy, nie vnútorné, čiže zlúčená superbunka môže mať rôzne orámovanie na vonkajších zlúčených bunkách, ale nie vnútorné. Teraz som to vyskúšal.

Teraz som to chcel akurát napísať - pád aplikácie. Prosím ešte raz nám podrobnejšie (resp. úplne dopodrobna) popíš čo chceš aby to presne urobilo pri presne akej udalosti. Pretože z tohoto popisu to tiež nechápem, no ...
Tlačidlo môžeš ľahko premenovať aj takto - nastavíš mu makro na toto, a je premenované:
Sub Premenuj()
Dim o As Object
Set o = ActiveSheet.Buttons(Application.Caller)
o.Name = "bNazovBTN"
End Sub
V kóde by som doporučil asi použiť pri názve Label notáciu "lblNieco", tlačidlo "bNieco" / "btnNieco".
Na formulári má byť len to jedno "Výberové pole" v ktorom nieje na výber?
Na čo je tam tá schovaná hodnota v AH1?
A prosím daj ešte aspoň 1 riadok s reálnymi údajmi, aby sme videli Wo Co Tady Go.
Snáď to nejako doriešime...

Maticový vzorec (Ctrl+Shift+Enter)
=SUM(IF(MONTH($A$1:$A$10)=$D$1;1;0))
$A$1:$A$10 - tabuľka dátumov
$D$1 - sledovaný mesiac

EDIT: Ešte ma napadá, ak by si potreboval spočítať len záznamy určitého mesiaca v určitom roku, tak takto
=SUM(IF((MONTH($A$1:$A$10)=$D$1)*(YEAR($A$1:$A$10)=$E$1);1;0))
$E$1 - sledovaný rok
... ostatné detto

Nenapadá ma, ako inak vyriešiť sviatky, ako takto (tým nevravím, že to nejde). Klasické funkcie fungujú na uložených sviatkoch v bunkách vrátane rokov. To je ale problém, keďže u teba sa môže rok zmeniť. Takže som to narýchlo vyriešil takto. Veľká noc je tam testovaná samostatne lebo je počítaná, a k tomu je pridané hľadanie TEXTOVEJ (!) hodnoty zloženej zo dňa, bodky a mesiaca medzi TEXTOVÝMI hodnotami v sviatkoch.

Nech sa páči.

Úprava

Kopírovanie všetkých buniek aj s formátovaním, šírkou stĺpcov, výškou riadkov, atď, je ošemetné. Urob kópiu listu.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje