Příspěvky uživatele


< návrat zpět

Různé zarovnání dat v listboxu v userformu (11.11.2017 2:01)

Ten odkaz jsem našel už dřív,ale po úpravě a implementaci nefunguje.

Různé zarovnání dat v listboxu v userformu (10.11.2017 20:56)

Mám sešit (příloha),ve kterém po otevření UserFormu je listbox vyplněný daty.Je nějaká možnost,aby textová data byla zarovnána vlevo a číselná data vpravo?

Načtení dat z ARESU ve formuláři (20.10.2017 7:55)

Stalker:
Jo to je ono.Po úpravě jede.
Děkuji za Tvůj čas.

Načtení dat z ARESU ve formuláři (19.10.2017 20:32)

Ahoj
Zkusil jsem,jak radil Merlin99 nějaký příklad naimplementovat do formuláře,ale nefunguje.Lze nalézt kde dělám chybu?

Private Sub CB_ARES_Click()

Application.ScreenUpdating = False 'potlačí obnovování obrazovky
Application.DisplayAlerts = False 'potlačí varovné hlášky

'vloží nový list na konec se jménem ares
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"

Sheets("ares").Activate 'přesun na tento nový list
'XML dotaz do ARESU s tím, že ičo máme na první listu v buňce C2 a importovná data chceme vložit do buňky A1
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=" & txtIC.Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

Sheets(1).Activate 'přesun zpět na první list

'přenesení údajů z pomocného listu do kolonek formuláře
Sheets("ares").Range("AJ3") = txtPLNYNAZEV 'přenesení názvu firmy
Sheets("ares").Range("DA3") = txtULICE 'přenesení ulice
Sheets("ares").Range("DD3") = txtPSC_MISTO 'přenesení č.p.
Sheets("ares").Range("AK3") = txtIC 'přenesení ič

Sheets("ares").Delete 'smazání pomocného listu

Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = FaTruelse 'obnoví varovné hlášky

End Sub

Načtení dat z ARESU ve formuláři (19.10.2017 13:02)

Merlin99 napsal/a:

Ahoj,
nějaký příklad na:

https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/automaticky-import-dat-o-firme-z-registru-ares-pomoci-makra-s-xml-dotazem/


Děkuji za tip

Načtení dat z ARESU ve formuláři (18.10.2017 22:03)

Zapomněl jsem přílohu...

Načtení dat z ARESU ve formuláři (18.10.2017 22:01)

Zdravím,
Prohledal jsem toto forum,něco tu o načítání z Aresu je,ale pouze v sešitu.Potřeboval bych provádět načítání ve formuláři.
Půjde mi pomoci?..
Děkuji

Formulář-po stisku uložit/duplicita/přepsat (17.10.2017 7:14)

Jeza.m: Fantastické-Děkuji

Formulář-po stisku uložit/duplicita/přepsat (15.10.2017 18:55)

Nezná někdo řešení?
Děkuji
Yardaz

Formulář-po stisku uložit/duplicita/přepsat (15.10.2017 18:54)

Řeším,hledám,dlouho
Na formuláři CommandButton ZAPSAT FAKTURU
po stisknutí:
a)vyhledá zda na listu není již faktura pod stejným číslem
b)je-li zobrazí MSGBOX/ PŘEPSAT-STORNO
c)po stisku PŘEPSAT přepíše v řádku hodnoty z formuláře

Private Sub CommandButton10_Click()

Dim iRow As Long
Dim ws As Worksheet
'''na jaký list zapsat obsah formuláře
Set ws = Worksheets("List1")

'''najde poslední prázdnou buňku
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

''existuje už v databazi?

Set ws = Worksheets("List1")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'vyhledá zda není duplicitní číslo faktury
If WorksheetFunction.CounIf(Sheets("List1"), ws.Range("A12", ws.Cells(iRow - 1, 1)), TextBox9.Value) > 0 Then
Select Case MsgBox("Faktura pod tímto číslem již existuje", vbOKCancel, "UPOZORNĚNÍ")
Case vbOK
'po stisku "přepsat" přepíše data u čísla faktury
ws.Cells(lastrow, 1).Value = Me.TextBox9
ws.Cells(lastrow, 2).Value = Me.TextBox8
ws.Cells(lastrow, 3).Value = Me.TextBox1
ws.Cells(lastrow, 4).Value = Me.TextBox5
ws.Cells(lastrow, 5).Value = Me.TextBox3
ws.Cells(lastrow, 6).Value = Me.TextBox4
ws.Cells(lastrow, 7).Value = Me.TextBox6
ws.Cells(lastrow, 8).Value = CDbl(Me.TextBox7)
ws.Cells(lastrow, 9).Value = Format(TextBox10.Value, "dd.mm.yyyy")

Call Main 'Progress Bar

Unload Me
Application.ScreenUpdating = False
MsgBox "Záznam byl uložen do vydaných faktur", vbApplicationModal, "POTVRZENÍ"

Case vbCancel
'po stisknutí "storno"zavře dialog
End Select

End If

Sheets("List1").Select

'End With
End Sub

Checkboxy v UserForm,Textboxy a závislosti.. (13.4.2017 20:30)

Pohrál jsem si,něco upravil,z větší části by to mělo být funkční.Kritiku či nápady přivítám...

Checkboxy v UserForm,Textboxy a závislosti.. (13.4.2017 7:54)

Děkuji!
Vyzkouším.
Jarda

Checkboxy v UserForm,Textboxy a závislosti.. (12.4.2017 22:11)

Ahoj!
Zápolím s vyplňovacím formulářem,který by mi vyplnil do jiného listu přijaté faktury.část jsem zvládnul,ale zbytek už je pro mě vyšší level.
Při zatržení přenesení daňové povinnosti se aktivuje frame "Daň",kde jsou dva checkboxy s hodnotami 15% a 21%.Jak docílit,aby cifru v textboxu"Částka bez DPH" spočítalo v závislosti na zatrženém checkboxu do textboxu "Částka s DPH"?
Děkuji
Jarda

SVYHLEDAT (16.3.2017 7:28)

Dobrý den!
Mám dva listy-viz příloha.
Jak docílit,aby se překopíroval řádek v pozměněném pořadí sloupců do listu "FAKTURY" po dvojkliku ve sloupci K na listu "ZAKÁZKY"
Děkuji za pomoc
Yardaz


Uživatelské menu

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

Menu

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.

On-line nástroje