Dík za snahu. Nakoniec som tú funkciu zadal do zdrojového zošita a v druhom je len odkaz na výsledok.
Takto to funguje. Tie cesty boli správne a na kontrole podľa rady sa ukázali. Len to stále hádže tú chybu.
Ano v stlpci b sú mená a v stlpci c číselné hodnoty - sorry preklep ale aj tak to nejde
Tak asi problém bude tu:
"Aplikace Microsoft Office Excel nemůže text převést na správný typ dat. Ujistěte se, že vzorec nebo funkce jsou pro požadovaný operand nebo argument správné, a že buňky, na které vzorec odkazuje, obsahují platné hodnoty. Jestliže například buňka A5 obsahuje číslo a buňka A6 obsahuje text „Není k dispozici“, vrátí vzorec =A5+A6 chybovou hodnotu #HODNOTA!." = help excel
Má niekto nápad ako to obísť? Iná funkcia, makro?
Zdravím . Narazil som na problém pri zadaní funkcie.
Mám dva zošity. V zošite 1 sú dáta - do zošitu 2(tlačová zostava) potrebujem vložiť funkciu ktorá spočíta zadané hodnoty podľa určitých kritérií zo zošitu 1. Funkcia (SUMIF) funguje len na začiatku:
Sú otvorené obidva zošity nastavím funkciu ide ok. Po uložení zošitov a následnom otvorení zošitu 2 sa v bunkách zobrazí chyba #HODNOTA!. Nefunguje ani po otvorení zošita 1. Auto aktualizácie prepojení sú povolené - office2007. Znamená to že funkcie pracujú len s dátami jedného zošita ( v ktorom sú zadané)?
Inak zápis vyzerá takto:
=SUMIF('C:\PHM\2012\exporty\[januarphm.xlsm]22'!$B$4:$C$2999;"Rastislav Lanža";'C:\PHM\2012\exporty\[januarphm.xlsm]22'!$C$4:$C$2999)
Vďaka misocko zdá sa že to je funkčné
bohužial ani pri rôznych kombináciách sa čísla neukladajú ako čísla ale stále ako text
Zdravím. Rád by som poprosil o radu. Mám vytvorený jednoduchý formulár cez VBA s textbox a combobox cez ktoré sa zadávajú položky - každá do jednej bunky.Tlačidlom ich vložím a po ďalšom výbere vloženie na nový riadok. Problém je v tom že pri zadaní čísla do textboxu alebo výberu čísla s comboboxu sa číslo uloží ako text, ale ja potrebujem pre dalšie výpočty použiť vybrané/uložené číslo do výpočtov
Private Sub CommandButton1_Click()
Dim PoslBunka As Range
' nalezeni posledniho neprazdneho radku na listu:
' nastaveni na posledni radek listu ve sloupci
Set PoslBunka = Worksheets("7").Range("A:A").Cells(Range("A:A").Cells.Count)
' presun na posledni neprazny radek listu
If IsEmpty(PoslBunka) Then Set PoslBunka = PoslBunka.End(xlUp)
'nastaveni na prazdnou bunku
Set PoslBunka = PoslBunka.Offset(1, 0)
' vlozeni dat z textovych poli formulare do listu
PoslBunka.Value = UserForm1.TextBox1
PoslBunka.Value = UserForm1.vodic1
PoslBunka.Value = UserForm1.km1
PoslBunka.Value = UserForm1.pret1
PoslBunka.Value = UserForm1.cer1
PoslBunka.Value = UserForm1.tankcs1
PoslBunka.Value = UserForm1.tanksklad1
PoslBunka.Value = UserForm1.rano1
PoslBunka.Value = UserForm1.druh1
PoslBunka.Value = UserForm1.TextBox2
PoslBunka.Offset(0, 0).Value = UserForm1.TextBox1
PoslBunka.Offset(0, 1).Value = UserForm1.vodic1
PoslBunka.Offset(0, 2).Value = UserForm1.km1
PoslBunka.Offset(0, 3).Value = UserForm1.pret1
PoslBunka.Offset(0, 4).Value = UserForm1.cer1
PoslBunka.Offset(0, 5).Value = UserForm1.tankcs1
PoslBunka.Offset(0, 6).Value = UserForm1.tanksklad1
PoslBunka.Offset(0, 7).Value = UserForm1.rano1
PoslBunka.Offset(0, 8).Value = UserForm1.druh1
PoslBunka.Offset(0, 9).Value = UserForm1.TextBox2
'vyprazdnit textova pole
UserForm1.TextBox1.Value = vbNullString
UserForm1.vodic1.Value = vbNullString
UserForm1.km1.Value = vbNullString
UserForm1.pret1.Value = vbNullString
UserForm1.cer1.Value = vbNullString
UserForm1.tankcs1.Value = vbNullString
UserForm1.tanksklad1.Value = vbNullString
UserForm1.rano1.Value = vbNullString
UserForm1.druh1.Value = vbNullString
UserForm1.TextBox2.Value = vbNullString
End Sub
Dík za rady
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.