Příspěvky uživatele


< návrat zpět

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

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?

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

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

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

Zapomněl jsem přílohu...

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

Jeza.m: Fantastické-Děkuji

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

Ř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

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...

Děkuji!
Vyzkouším.
Jarda

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

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

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09