Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6   další »

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


Strana:  1 2 3 4 5 6   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52