Příspěvky uživatele
< návrat zpět
Přikládám alespoň kód, pokud by někdo chtěl vystřelit na slepo:
Private Sub CommandButton3_Click()
For x = 24 To 124
With Sheets("Nabídka_im")
If .Cells(x, 2) = "" And .Cells(x, 3) = "" And .Cells(x, 8) = "" And .Cells(x, 9) = "" And .Cells(x, 10) = "" And .Cells(x, 11) = "" And .Cells(x, 12) = "" Then Exit For
Cells(x, 2) = .Cells(x, 2)
Cells(x, 3) = .Cells(x, 3)
Cells(x, 8) = .Cells(x, 8)
Cells(x, 9) = .Cells(x, 9)
Cells(x, 10) = .Cells(x, 10)
Cells(x, 11) = .Cells(x, 11)
Cells(x, 12) = .Cells(x, 12)
End With
Next
Dim rRowsToHide As Range
Dim i As Integer
For i = 124 To 24 Step -1
If IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i - 1, 3)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 3)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 3))
End If
Else
Exit For
End If
Next
If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If
Set rRowsToHide = Nothing
End Sub
No a koukám, že nefunguje vkládání příloh...zkusím přiložit později
Zdrávím, opět potřebuji trošku pomoci.
V přiloženém sešitu se vkládají makrem data z listu Nabídka_im do listu Nabídka.
Vše je OK, jen bych potřeboval, aby se vkládaná data do formuláře vložila za již existující položky. Zatím je to tak, že se fixně vloží od 24 řádku.
Budu-li mít tedy nějaké položky ve formuláři a budu chtít provést import dat z listu Nabídka_im, tak se data z importu vloží za již obsazené řádky. Kontrola obsazenosti by se měla provést ve sloupci C (Název položky) jelikož ostatní údaje na řádku nemusejí být vyplněny.
Pomůže někdo? Díky M.
Tak problém je vyřešen.
Chyba byla v nastavení TextBoxu, jelikož v ControlSource jsem měl odkaz na danou buňku kam se prováděl zápis. Ta vracela hodnotu bez nuly:-(
Tak problém už je přímo v TextBoxu1. Napíšu tam 0600 a po aktivaci jiného TextBoxu se nula vymaže.
V UF do Textbox1 napíši 0600 a v buňce potřebuji mít tu samou hodnotu. Jenže pokud použiji jen Sheets("Nastavení").Cells(9, 17) = TextBox1
tak se to uloží bez té nuly.
Vlastně i ve formuláři v UF nula po překliknutí kamkoliv zmizí.
Něco mám někde blbě asi
Vyzkoušel jsem, ale pokud do TextBox1 napíši 0600 a kliknu do jiného TextBox, tak se automaticky ta nula odebere a mám tam zase 600.
Je nějaký jiný způsob jak přes UF Vložit tento formát 0600 do listu?
Zdravím...
Mám kód pro vložení čísla z UF do formuláře.
Bohužel bych toto číslo potřeboval z UF uložit jako číslo i do listu. Problém je, pokud zadám kód banky 0600, tak se uloží jen 600. Vkládám níže uvedeným kódem:
Sheets("Nastavení").Cells(9, 17) = TextBox1
Je zde nějaký fígl pro převod na číslo? Díky M.
Díky za odpovědi všem.
Přistoupil jsem k možnosti a stáhl jsem si na jeden nevyužitej počítač slovenskej office, takže budu testovat na něm. Ještě mě teda zajímá jedna věc a to je přičtení DPH k ceně. Mám-li 100EUR (A1) a chci k němu přičíst 20% DPH (B1) tak jaký bude vzorec na výpočet v buňce C1? Asi by měl být v buňce C1 vzorec =A1+(A1*B1/100), ale nevím zda to tak je správně a zda pro EUR tam není nějaká finta?
Jojo, noční směna:-)
Správce názvů, to mě taky mohlo napadnout podle názvu:-) Ale to mám v pohodě, vše se odkazuje na existující data
Kde najdu Name managera? S tím jsem asi nikdy nepracoval....
Hm, tak to je pěkný. Tak to tam nic posílat nebudu:-)
VBA je ale podle mě stejné, tam je ENG ve všech evropských mutacím, myslím.
Jen s názvy funkcí jsem si nebyl jistej a hlavně to nemám kde vyzkoušet.
Takže jediné řešení asi bude nainstalovat SK Excel a předělat vše na něm. Nějakej converter neexistuje?:-)
Zdravím...
Nemáte někdo zkušenosti se slovenskou verzí excel... zajímá mě zda jsou vzorce, funkce a makra vytvořené v české verzi plně spustitelné ve slovenské mutaci excel a zase naopak?
Budu posílat nějaké firemní informace na Slovensko a tak chci předejít nepříjemnostem. Díky za odpověď...M.
Tak jsem "podstraňoval" vymazal veškeré sloupce a řádky včetně všeho formátování a velikost klesla o cca 5MB. Takže tedy někde v buňkách asi zůstal duch předchozích hodnot nebo formátování:-)
Díky za konzultaci...
Děkuji za reakce. Používám 2007 Testuji, ale moc se mě nedaří. Tam kde byla původně nakopírovaná data jsem odstranil sloupce a po uložení ubylo sotva pár bitů. Myslel jsem, že nepotřebné sloupce půjdou odstranit úplně, ale nedaří se, prostě se jakože vymažou data, ale sloupce na počet zůstanou (počet sloupců je tedy nezměněn). Soubor mám ve formátu .xlsm, jelikož používám více sloupců (cca2500 sloupců)a makra. Prostě nechápu, jediné co jde je skrýt.
Dále jsem zkusil změnit koncovku na .zip, zobrazil se tam soubor [Content_Types].xml, který ma stejná data jako sešit takový(29MB), žádné obrázky ani prvky tam nejsou. Ukládání Historie jsem nikde nenašel, pouze automatické obnovení. Kde tuto možnost najdu?
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články