zrýchliť takto?
Je to také neučesané. Snáď postačí.
Spusti ALT+F8
Síce netuším, načo je to dobré.
Skús dať na list tento kód
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Value = Selection.Value + 1
End Sub
A dvojklikom na bunku sa ti pripočíta 1.
Môžeš si dať aj podmienku, aby ti to nerobilo vo všetkých bunkách.
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?
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.