Sheets("Data").Cells(radek,3).Value = Sheets("Kurz měn").Range("P3").Value
Možno si chcel namiesto
radek = B2 + 5
dať
radek = range("B2").value + 5
@Dingo
Namiesto
=SUM($A$2:A2)-SUMIF($C$2:C2;"<"&B2;$A$2:A2)
stačí
=SUMIF($C$2:C2;">"&B2;$A$2:A2)
@krkstex
A ako budeš riešiť čiastočné úhrady?
@ladaakk
Tak sa zaregistruj.
A ako chceš zadávať tú premennú? Niekde na liste v bunke?
Namiesto Range("A1") napíš Cells(1,1) alebo Cells(83,1)
Alebo takýmto maticovým vzorcom
=SUM(List1!$B3:$O3*((List1!$B$1:$O$1)=List2!B$2))/MAX(1;SUM((List1!$B1:$O1=List2!B$2)*1))
Zaslat odpověď
Vybrat súbor- Musí byť spakovaný.
Odeslat
Selection.Value = Sheets("List1").Range("A1").Value
@eLCHA
Máš pravdu.
Ale to mu nezaručuje, že zošit "XY" nebude aktívnym zošitom.
A možno sa mu podarí zatvoriť zošit s tým makrom.
To si musí sám postrážiť.
ActiveWorkbook.Save
ActiveWorkbook.Close
A ak chceš zatvoriť excel, tak čím(keď nie excelom) zostanú tie súbory otvorené?
Použi funkciu SUBTOTAL namiesto SUM.
Poprípade aj SUMIF aj bez filtrovania.
A čo tak použiť automatický filter?
Najlepšie bude dať do bunky C5 a aj F9 nejaký vzorec(funkciu). Navrhujem IF(KDYŽ). Pozri si nápovedu.
Napríklad.
=INDIRECT(A1&"!a1") INDIRECT = Nepřímý.Odkaz
V bunke A1 je "leden"
Prečo nepriložíš prílohu?
Môže byť?
Zruš tie zlúčené bunky.
Posledné dva riadky sú prázdne(aj keď sú zlúčené). Tam nefunguje automatický filter.
@AL
To mi tiež napadlo, rozdeliť to na skupiny a pospájať.
Ale taký vzorec? Čo som sa s koňom zrazil?
Veď stačí funkcia UDF, alebo aj to riešenie s pomocným stlpcom.
To som dal iba pre ilustráciu. Nakoniec mi nie je celkom jasné praktické využitie toho desaťznakového reťazca.
A kto by to lúštil, ak by chcel 100 znakový.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.