Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 10
Tabulka vyhledávání z dat (8.9.2016 11:18)

Příloha.

Tabulka vyhledávání z dat (8.9.2016 10:09)

elninoslov napsal/a:


súbor "Filter makrom 3 duplicita.xlsm" - Jáj no ale veď Vy myslíte overenie, či sa daný údaj už v liste nenachádza medzi predtým vloženými. Teda nie duplicitný záznam vo filtrovanom ListBoxe (o ktorom sa primárne bavíme), ale duplicitný záznam medzi vloženými záznamami. Myslíte to teda takto ?Příloha: 32683_filter-makrom-3-sirsie-a-duplicita.zip


Super práce 5 elnino

Ještě jsem chtěl požádat elnino jestli byste mi mohl pomoci s makrem, kde mám list s daty klienta (např. "list1" jméno, příjemní, r.č., atd) a pak si to ukládám (tlačítkem) do dalšího listu, kde je databáze klientů. A potřeboval bych když si zadám data klienta tak aby mi to prošlo databázi a porovnalo rod číslo v databázi (sloupec B2:B) s rodným číslem v listě1 a pokud by to našlo stejné rč tak abych si mohl určit přepsání již existujících dat nebo zahození nových dat. Pokud bude potřeba tak hodím i přílohu. Děkuji.

Tabulka vyhledávání z dat (6.9.2016 12:51)

2 elnino
Z logiky věci plyne, že by stačilo porovnávat rodné číslo, což je jedinečný identifikátor a v případě shody nabídnout nahrazení záznamu novým záznamem, nebo ponechání původního záznamu a zahození nových dat.

PS: Ještě jsem nekoukal na přílohu 1

Tabulka vyhledávání z dat (5.9.2016 15:59)

I já se připojuji klobouk dolů super prace elnino čučím 9

Tabulka vyhledávání z dat (5.9.2016 12:31)

Bože já jsem ale ..... stačí číst 3 Ještě bych se chtěl zeptat zda jsou tam nějak ošetřeny duplicity, co jsem se díval tak asi ne? 4

Tabulka vyhledávání z dat (4.9.2016 19:42)

elninoslov napsal/a:

Výpis položky "pod seba" vo filtrovacom formulári:
?!? Nečítate čo píšem, veď som písal, že tú chybu s výpisom jedinej položky "pod seba" som opravil a poslal opravenú verziu, a Vy naďalej používate starú a upozorníte na tú chybu.

Tlačítka "Hľadať predo" ... :
To nie ste ochotný urobiť jednoduchú logickú dedukciu, a jednoduchý pokus, že by ste stlačil a vyskúšal rovnaké tlačítko na rovnakom mieste a obdobne znejúcim názvom ? Je to len otázka prekladu SK a CZ Excelu.
"Hľadať predo" = "Předchozí"
"Hľadať ďalej" = "Další"

Tlačítko Uložiť:
Zabudnite na tlačítko Uložiť. Tiež som Vám to už písal. Okrem tohto sa už k tomu fakt opäť vyjadrovať nemienim. Ten formulár na liste Data, NIEJE opakujem NIEJE upraviteľný ! Tak ho naprogramoval výrobca Excelu, a tak ho Vy môžete alebo nemusíte používať. Žiadne tlačítko Zavrieť na Uložiť nezmeníte ! Pre to aby ste pridali záznam do Tabuľky urobíte:
-pravý klik na liste Data niekde v stĺpcoch A:O
-stlačiť na formulári "Nové"
-Vyplniť údaje
-ak chcete, pridať ďalší záznam, tak ešte raz stlačíte "Nové", predošlý nový záznam od tejto chvíle už JE (opakujem JE v Tabuľke). Teda nezatvárate formulár. Ak ale nechcete pridávať ďalšie záznamy, stlačíte "Zavrieť", a od tejto chvíle záznam JE (opakujem JE) v Tabuľke.
-možnosť, aby ste mali tento formulár otvorený neustále (ako píšete, aby ste ho nezatváral) - NEEXISTUJE.

2 dvojbodby (dvojtečky "::")
To je jednoduché, mali ste ich v hlavičkách stĺpcov, ktoré ste dodal, tak som ich zmazal. Tie druhé tam samozrejme dopĺňa (iba vo formulári) samotný Excel.Příloha: 32622_filter-makrom-2.zip


Prosím tě chtěl jsem se zeptat, kde najdu ten form data, abych si mohl upravit tlačítka atd.? 4 1 jinak super práce 9

Přechod na položku rozevíracího seznamu (30.8.2016 23:06)

Chtěl jsem se zeptat, jestli byste mi mohl někdo pomoci s tou mojí záležitostí. Dělám si databázi klientů a potřeboval bych to nějak dokončit, ale asi jsem úplně blbej (tím nechci říci že jsem bůhví jak dobrej ve vba)

Ten kód od eLCHa funguje tak jak máDim sValues() As Variant

Private Sub UserForm_Initialize()
sValues = Application.Transpose(List16.ListObjects(1).ListColumns(1).Range.Value)
Me.ListBox1.List = sValues
End Sub

Private Sub TextBox1_Change()
Me.ListBox1.List = Filter(sValues, TextBox1.Text)
End Sub, ale já bych ve formuláři "vyhledat_klienta" potřeboval zobrazovat 2 sloupce. V tabulce mám vložen v prvním sloupci rodné číslo a ve druhém sloupci příjmení, adresu atd.... A potřeboval bych když do textBoxu napíšu rč, nebo příjmení tak aby mi to ukazovalo oba dva sloupce pro kontrolu, jsetli jsem našel toho správného človíčka. Pak mi to taky načítá komplet celou vloženou tabulku i když tam mám jen 2 řádky. Nešlo by nějak poradit, nebo alespoň navést na tu správnou cestu?

Předem děkuji

Přechod na položku rozevíracího seznamu (26.8.2016 10:22)

eLCHa napsal/a:

potřeboval bych zjistit na kterém řádku v databázi (list2 "data_klient") se klient nachází

Pokud načítáte souvislou oblast, např. Range("A1:A100"), tak to vám právě řekne ListIndex (tuším, že začíná 0) takže přesněji ListIndex + 1.
Range("A1:A100").Cells(lb.ListIndex + 1)
Pokud ta oblast není souvislá nebo s daty v ListBoxu něco vyvádíte (např. řazení) - tak si adresu nebo řádek uložte jako další (nezobrazenou) hodnotu listboxu.
lb.AddItem Range.Value
lb.List(lb.ListCount - 1, 1) = Range.Address
Pokud ten listbox filtrujete, jak je v tomto tématu - tak nejsrozumitelnější pro vás bude použít vyhledávací funkci - nejpravděpodobněji Worksheetfunction.Match

Píšu to zbrucha - pokud to není přesné, berte jako inspiraci a nasměrování - dolaďte si.


Tak jsem to vyřešil takto (s využitím nápovědy na netu) 1 :


Private Sub UserForm_Initialize()
Dim lbtarget As msforms.ListBox
Dim rngSource As Range
Dim sloupec, radek As Variant
sloupec = 2
radek = 2

Do While (Worksheets("database_klientu").Cells(radek, sloupec).Value <> "")
radek = radek + 1
Loop

radek = radek - 1

'Set reference to the range of data to be filled
Set rngSource = Worksheets("database_klientu").Range("A2:B" & radek)

'Fill the listbox
Set lbtarget = Me.ListBox1
With lbtarget
'Determine number of columns
.ColumnCount = 2
'Set column widths
.ColumnWidths = "130;130"
'Insert the range of data supplied
.List = rngSource.Value
End With
End Sub


Ale nechce mi to filtrovat když vypisuji např. číslo klienta, nebo jméno klienta. Asi budu muset vložit tabulku do listu (tomu jsem se chtěl vyhnout) 8 ale vaše řešení je zase nejjednodušší tak tam tu tabulku asi frknu 1


Private Sub TextBox1_Change()
Me.ListBox1.List = Filter(sValues, TextBox1.Text)
End Sub


Budu muset zase pátrat 8

Dal by se váš kod upravit aby načítal dva sloupce?
Dim sValues() As Variant

Private Sub UserForm_Initialize()

sValues = Application.Transpose(List1.ListObjects(1).ListColumns(1).Range.Value)



Me.ListBox1.List = sValues

End Sub

Tak jsem si poupravil kod:
Dim sValues() As Variant

Dim radek, sloupec As Variant

Private Sub ListBox1_Click()
Dim sloupec As Variant
sloupec = ListBox1.Value
End Sub

Private Sub TextBox1_Change()
Set lbtarget = Me.ListBox1
lbtarget.List = Filter(rngSource, TextBox1.Text, , vbTextCompare)
End Sub

Private Sub UserForm_Initialize()
'Macro Purpose: To populate a multi-column listbox with data from
' a worksheet range

Dim lbtarget As msforms.ListBox


sloupec = 3
radek = 2

Do While (Worksheets("databazeAll").Cells(radek, sloupec).Value <> "")
radek = radek + 1
Loop

radek = radek - 1

'Set reference to the range of data to be filled
Set rngSource = Worksheets("databazeAll").Range("C2:D" & radek)

'Fill the listbox
Set lbtarget = Me.ListBox1
With lbtarget
'Determine number of columns
.ColumnCount = 2
'Set column widths
.ColumnWidths = "130;130"
'Insert the range of data supplied
.List = rngSource.Value
End With
End Sub

Ale když zadávám něco do textBoxu tak mi to nefiltruje prosím pomooooc 8

Přechod na položku rozevíracího seznamu (25.8.2016 14:17)

elninoslov napsal/a:

Uložte si niekam vlastnosť TextBox1.ListIndex. To je Index (poradové číslo) vybranej položky. Ďalej si to už ľahko spracujete podľa potreby.

elninoslov napsal/a:

Uložte si niekam vlastnosť TextBox1.ListIndex. To je Index (poradové číslo) vybranej položky. Ďalej si to už ľahko spracujete podľa potreby.


Hm to mi vrátí hodnotu v listBoxu, ale já potřebuji adresu na listu (např. data_klient - což je databáze s několika stovkama klientů), kde se konkrétní jmého
(klient nachází), abych mohl dále natáhnout hodonty z databáze a vyplnit je do formuláře pro tisk. 1 Celé to fachčí tak, že na Listu1 mám formulář a tlačítko vyhledat klienta. Když na to kliknu, tak se mi otevře formulář pro vyhledání klienta, kde do texBoxu napíšu méno a ono se mi to v listBoxu vyhledává. Pak v listBoxu kliknu na konkrétního klienta a potřeboval bych zjistit na kterém řádku v databázi (list2 "data_klient") se klient nachází, abych si mohl dotáhnout další hodnoty do formuláře na listu1. 4 Jinak to budu muset asi řešit nějak svyhledat, nebo něco takového.

Přechod na položku rozevíracího seznamu (25.8.2016 0:00)

eLCHa napsal/a:

Ne, Like bych nepoužil.

Na tohle je výborná funkce Filter.
Data: Na List1 v objektu Tabulka - vybírám první sloupec
Formulář: TextBox1 a ListBox1
Vše obslouží tento krátký kód (testováno asi 20s - rozlišuje velká a malá písmena)Dim sValues() As Variant

Private Sub UserForm_Initialize()
sValues = Application.Transpose(List1.ListObjects(1).ListColumns(1).Range.Value)

Me.ListBox1.List = sValues
End Sub

Private Sub TextBox1_Change()
Me.ListBox1.List = Filter(sValues, TextBox1.Text)
End SubPokud nechcete rozlišovat velká a malá Me.ListBox1.List = Filter(sValues, TextBox1.Text, , vbTextCompare)


Hoj ogaři. Chtěl bych se zeptat, když naplním listBox datama z listu (např. Jmenama) a pak vyberu v tom listBoxu nějaké jméno, tak jak zjistím adresu toho co jsem vybral na listu (sloupec, řádek)?

import export dat mezi excelem a pdf-kem (21.8.2016 23:00)

elninoslov napsal/a:

Tu máte príklad na Import/Export makro. Ale ako poriešiť ešte to upravenie diakritiky popravde neviem a ani sa mi nechce skúmať ...Příloha: 32358_import-export-fdf.zip


Super děkuji moooockrát 1

import export dat mezi excelem a pdf-kem (17.8.2016 16:38)

fakt nikdo? 7

import export dat mezi excelem a pdf-kem (15.8.2016 13:36)

Zdravím Vás borci,
potřeboval bych helfnout s jedním problémem. Mám soubor s koncovkou FDF viz příloha. Tento soubor mi generuje pdf formulář. Funguje to tak, že v pdf-ku si vyplním formulář a dám uložit data. Tyto data se mi uloží do souboru (*.fdf). Teď by se mi hodilo, abych tyto data mohl načíst i do excelu a pokud by to bylo možné, tak abych si tento formulář vyplnil i v excelu a zase tlačítkem nechal vygenerovat soubor s koncovkou (*.fdf), který by se dal načíst do (.pdf). Tady jsem ale trochu narazil s kódováním češtiny 4 . PDF-ko a excel to mají asi každé jiné. Nemohl by mi s tím někdo pomoci?

propojení sešitů (4.2.2016 13:41)

vovka.h napsal/a:

Pokud pomohlo smazání listu a jeho nové vytvoření, pak bych téměř s jistotou nad přírodou zvítězil. Škoda, že jste mi tu legrácku neposlal. Měl bych další dušičku do složky s propojenými sešity a vám by to ušetřilo práci. Na druhé straně bych se nejspíš nedozvěděl žádné novinky o tom, co ještě spravit neumím...

Nejde mi to nahrát pošli mi mail 6
je to tu
http://ulozto.cz/xZf4scJt/nabidkovac-final-3-10-xlsm

propojení sešitů (3.2.2016 21:12)

hm tak jsem to vyřešil smáznutím listu a musel jsem ho znovu udělat 8


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 10

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