Příspěvky uživatele
< návrat zpět
Příloha.
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
elninoJeš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.
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 
I já se připojuji klobouk dolů super prace elnino čučím 
Bože já jsem ale ..... stačí číst 
Ještě bych se chtěl zeptat zda jsou tam nějak ošetřeny duplicity, co jsem se díval tak asi ne? 
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.?
jinak super práce
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
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)
: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)
ale vaše řešení je zase nejjednodušší tak tam tu tabulku asi frknu Private Sub TextBox1_Change()
Me.ListBox1.List = Filter(sValues, TextBox1.Text)
End Sub
Budu muset zase pátrat
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
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.
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. Jinak to budu muset asi řešit nějak svyhledat, nebo něco takového.
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)?
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
fakt nikdo? 
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 . PDF-ko a excel to mají asi každé jiné. Nemohl by mi s tím někdo pomoci?
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
je to tu
http://ulozto.cz/xZf4scJt/nabidkovac-final-3-10-xlsm
hm tak jsem to vyřešil smáznutím listu a musel jsem ho znovu udělat
Uživatelské menu
\nMenu
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.
RSS nejnovější články