kp57 napsal/a:
Pokud nepomůže přejmenování, tak potom už neumím poradit. Mně to fachčí i s původním automat jménem i s mnou přiřazeným jménem. Taky se můžou ty prc. odstranit a řešit to jinak.
Môže byť?
mosquito791 napsal/a:
zrušit else
If TextBox65 = True And TextBox65 = "" Then MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation: Exit Sub
If ComboBox4 = True And ComboBox4 = "" Then MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation: Exit Sub
@TomasML
Tak ju začni študovať.
Na takéto veci sa ti bude veľmi hodiť.
Je to akési chaotické.
Píšeš, že chceš spotrebu za september a pritom ti v tabuľke zobrazuje spotrebu za 1.10.2014.
A zadáva sa tam iba spotreba? A pôjde to do mínusu????
Skús trochu poštudovať kontingenčnú tabuľku.
TomasML napsal/a:
Díky za pomoc, ale asi jsem to špatně popsal co stím potřebuju. Záměr je takový: na listě chlornan se bude sledovat výdej chemikálie. Bude to takový nekonečný zadávací formulář, kde se bude zaznamenávat výdej chemikálie a zároveň i na jaký objekt byl vydán.List spotřeby chemikálií bude sloužit jako souhrná tabulka za dané období, zadané v datumu uzávěrky. V tabulce se musí objevit objekt kam byla chemikálie vydaná a zároveň i množství popřípadě i zůstatek.
Děkuji za vaše rady a nápady jak to vyřešit
Tomáš
eLCHa napsal/a:
@lubo
=NEPŘÍMÝ.ODKAZ(POLÍČKO("odkaz"))
jako dostanu bez VBA do parametru odkaz adresu Selection?
Inak t=0 je riešenie pre všetky hodnoty A, B, k1, k2
Teda nie je čo riešiť.
Hľadanie riešenia
Goalseek
Na karte udaje > citlivostná analýza
Lubo má pravdu. Ide to aj bez VBA. Len potom po výbere treba mačkať F9.
@lubo
Ide to aj bez nepriameho odkazu. A je to elegantnejšie ako uviedol "komár". Teda myslím s VBA. Samozrejme nápad je to tvoj.
A aby to neprepočítavalo celý list, tak namiesto calculate možno dať activecell=activecell
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D2").Interior.Color = Range("A2").Interior.Color
End Sub
Zmeň farbu a daj ENTER
roscher napsal/a:
přílohaPříloha: 21697_pokus.zip
A lze.
Len si musíš upraviť formát stlpca A. Trocha sa s tým musíš pohrať.
No po dlhom skúšaní som prišiel na toto.
=KDYŽ(B1<>"";ŘÁDEK(B1)-4;"")
Selection.TextToColumns Destination:=Selection.Offset(0, 4), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1)), TrailingMinusNumbers:= _
True
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.