Zaslal/a
2.8.2017 11:31Dobrý den je jedno co udělám, pokaždé mi bliká obrazovka už nevím co s tím, googlil jsem to a nic, nějaká rada? :O
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
If Cells(1, 2) = Cells(3, 15) Then Call přidej
If Cells(1, 2) = Cells(4, 15) Then Call uber
If Cells(1, 2) = Cells(5, 15) Then Call násob
If Cells(1, 2) = "VYPNOUT" Then Call vypnout
If Cells(30, 1) = 1 Then Cells(30, 1) = 0
'kusy navíc
If Cells(1, 2) = "end" Then Cells(1, 2) = ""
If Cells(6, 15) = 11 Then Call jj
If Cells(6, 15) = Cells(7, 15) Then Cells(1, 2) = ""
If Cells(11, 2) = "1" Then Cells(1, 2) = ""
If Cells(11, 3) = "1" Then Cells(1, 2) = ""
If Cells(11, 4) = "1" Then Cells(1, 2) = ""
If Cells(11, 5) = "1" Then Cells(1, 2) = ""
end sub
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.