Ahoj! To znám, řeším "Cancel" až na konci prc.
Už ti to došlo?
aby se to porovnávalo podle celkových trestných bodů
Tak porovnávej oblast celkových trestných bodů. No ne ?
Např:Sub VYSTUP()
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlManual
End With
Dim rdR As Long, rdW As Long
Dim Material As String, Stredisko As String
With Sheets("VÝSTUP")
rdW = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
If rdW = 1 Then rdW = 2
Range(.Cells(2, 1), .Cells(rdW, 4)).ClearContents
End With
Material = Sheets("VSTUP").Cells(3, 2)
Stredisko = Sheets("VSTUP").Cells(6, 2)
With Sheets("DATABAZA")
rdW = 1
For rdR = 2 To .Cells(Cells.Rows.Count, 1).End(xlUp).Row
If .Cells(rdR, 1) = Material Then
rdW = rdW + 1
Sheets("VÝSTUP").Cells(rdW, 1) = .Cells(rdR, 1)
Sheets("VÝSTUP").Cells(rdW, 2) = .Cells(rdR, 2)
Sheets("VÝSTUP").Cells(rdW, 3) = .Cells(rdR, 3)
Sheets("VÝSTUP").Cells(rdW, 4) = Stredisko
End If
Next rdR
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlAutomatic
End With
End Sub
A zkusils "Right" a místo středníku, čárku?
Třeba:
Pánové díky za reakci. Pravda na "SKALÁRNÍ SOUČIN" stále, pro mou škodu, zapomínám.
A jen nevýznamný dodatek:
=SUMA(A3:A32*(MOD(ŘÁDEK(3:32)-MIN(ŘÁDEK(3:32)-1);B1)=0)){CSE}
Už si to změnil, ale podle původního zadání:
1) pro spojitou oblast
=D5+SUM(INDIRECT("G4:G"&COUNTA(G4:G65535)+4))
2) pro nespojitou {CSE}
=D5+SUM(INDIRECT("G4:G"&MAX(ROW(4:65535)*(G4:G65535<>"")))
Už jsem to našel.
http://www.excel-easy.com/examples/sum-every-nth-row.html
Ahoj lidi! Pokouším se napsat vzorec pro součet hodnot n-tých řádků, daného sloupce v dané oblasti.
Ale buď mi vrací nulu, nebo součet všech řádků. Už jsem se zacyklil a nevím jak dál. Je to vůbec možné vzorcem řešit?
Třeba:
Česky "rrrr" - Slovensky "yyyy"
Tak ještě dva:
Taky jeden tip.
Ahoj. Fce "NEPŘÍMÝ.ODKAZ" očekává "Range" a tomu tak v "cisla2" není. Předpokládám, že proto chyba. Možné řešení:
"POZVYHLEDAT(5;ZVOLIT(1;cisla1;cisla2))"
"POZVYHLEDAT(5;ZVOLIT(2;cisla1;cisla2))"
Taky si jeden přidám.
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.