Příspěvky uživatele
< návrat zpět
Program je určený pro seznamku, vkládají se tam klienti včetně Fotek a souborů.
Má koncovku .jar
Bohužel dá se otevřít pouze s Javu zkoušel jsem i portable Havu, ale nejde to otevřít.
Program je na USB jen má tu nevýhodu, že musí být nainstalovaná Java v PC bez ni to nejde.
Děkuji
To jsem zkoušel, ale nefunguje to.
Dobrý den, mám program, který se neinstaluje do PC, ale který potřebuje ke spuštění Javu.
Je možné program upravit tak, abych nemusel používat Javu.
Program mám na USB a používám ho i na jiných počítačích, bohužel na nich není Java a nemám k instalaci Javy práva.
Děkuji za vaši pomoc.
Děkuji moc.
Již to funguje
Potřebuji to, aby to bylo tak to.
Sub Mazání()
e = MsgBox("Chceš údaje z Dokladu " & Range("Y3") & " smazat ?", vbYesNo)
Select Case e
Case vbNo
Case vbYes
Range("BN2").Select
ActiveCell.FormulaR1C1 = "" ' přenastaví hodnotu na nula aby se udaje smazali "1"
Range("BN3").Select
JmenoS = Sheets("Doklad").Range("Y3").Value + 1 'Názve souboru
Range("Y3") = JmenoS ' změní čílo o 1 vetší
End Select
End Sub
Jen aby to šlo i HP20210012 .. OMLOUVÁM SE
Pokud v tom číslu to HP není tak to funguje pokud to však přidám tak to nejde.
JE K TOMU JEŠTĚ K DALŠÍ FUNKCI, KTERÁ PO STISKNUTÍ TLAČÍTKA
ULOŽÍ DOKLAD DO PDF A VYMAŽE FORMULÁŘ.
A MĚLO BY TO ZVÍŠIT ČÍSLO O 1
Dobrý den, níže je uvedené makro, který přidá o číslo víc do dokladu jen to musejí byt čísla potřeboval bych aby to fungovalo např.: HP20210012
JmenoS = Sheets("Pokladní doklad").Range("Z3").Value + 1 'Názve souboru
Range("Z3") = JmenoS
Moc děkuji
Ano, pouzivam svyhledat v jiných buňkách.
Co se týče zobrazení číslování tak v tom konkrétní buňce ano.
Ale používám to i jinde například klienti a u některých to začíná 00 a také to píše že tam je chyba.
Děkuji
JEŠTĚ BYCH MĚL DOTAZ OHLEDNĚ TĚCH NUL NA ZAČÁTKU DÁ SE TO NĚJAK ZMĚNIT, ABY MĚ TO NEUKAZOVALO ŽE TAM JE CHYBA.
UKAZUJE TO TŘEBA I V POLOŽKÁCH NEBO V KLIENTECH SKOUŠEL JSEM TAM VLOŽIT ' ALE NEFUNGUJE TO.
Děkuji
Ne List se jmenuje stejně.
Jen ID klienta a to číslo je vyplněné červeně a text černá to stejné je i u Přijato a vrátit.
Dobrý den, kód mě funguje u toho vzoru, ale když ten kód vložím do originálu tak to nefunguje vytiskne to všechno.
Nemůžu přijít proč.
JEŠTĚ BYCH MĚL DOTAZ OHLEDNĚ TĚCH NUL NA ZAČÁTKU DÁ SE TO NĚJAK ZMĚNIT, ABY MĚ TO NEUKAZOVALO ŽE TAM JE CHYBA.
UKAZUJE TO TŘEBA I V POLOŽKÁCH NEBO V KLIENTECH SKOUŠEL JSEM TAM VLOŽIT ' ALE NEFUNGUJE TO.
Děkuji
Lugr napsal/a:
A chybu už to nehází?
Ne
Lugr napsal/a:
Problém je v těch sloučených buňkách.
Dejte si tam toto:
.Range("O9,P9,D62,D64,G62,F62:H62,F64:H64")
Ani teď to nejde
To jsem zkoušel, ale hlásí to chybu:
xIndex = .Range("O9,P9,D62,D64,G62,F62,F64").Font.ColorIndex
Lugr napsal/a:
Na Office 2016 mi to funguje.
Jedná se Vám o buňky H63 a O9?
Kód je zde:Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xIndex As Long
If ActiveSheet.Name = "Faktura" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
xIndex = .Range("O9,P9,D62,D64").Font.ColorIndex
.Range("O9,P9,D62,D64").Font.Color = vbWhite
.PrintOut
.Range("O9,P9,D62,D64").Font.ColorIndex = xIndex
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Skryje to ID klienta a to číslo
Dále Přijato: a Vrátit:
Bohužel neskryje to částku u přijato a částku u vrátit
Lugr napsal/a:
A dal jste "Povolit obsah"?
Ano
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