Příspěvky uživatele


< návrat zpět

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

Omlouvám se že se vracím k tomuto vláknu, pachtím se s tím makrem už delší dobu nepřišel jsme jak na to. A nedaří se mi makro správně zformulovat.

Postup by měl být že ve zdrojovém souboru spustím makro.
1) otevře se požadovaný CSV v exelu kde jsou data v pořádku v požadovaných sloupcích
2) v otevřeném souboru do sloupce BH se do všech řádků doplní název aktivního souboru (jde pro případné dohledání CSV souboru)
3) Pak krom záhlaví z prvního řádku vše nakopíruje do zdrojového souboru na začátek. To je na řádek 2
4) pak by se přes funkce Exelu Data>odebrat duplicity odebrali duplicitní řádky. Jestli jsme dobře koukal tak zůstane vždy ten nejvyšší řádek proto by se nové soubory přidávali na začátek.
5) CSV soubor se zavřel

Dim FileName As String
Dim MostRecentFile As String
Dim MostRecentDate As Date
Dim FileSpec As String

FileSpec = "*.csv"
Directory = ThisWorkbook.Path '
FileName = Dir(Directory & FileSpec)

With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.csv"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
SouborZ = SelectedItems
Workbooks.Open .SelectedItems(1)
ActiveSheet.Copy After:=Workbooks("Objednavky.xlsm"). _
Sheets(1)

End If
End With

Radek = Range("A1048576").End(xlUp).Row
Range("BH2").Select
ActiveCell.FormulaR1C1 = _
"=MID(CELL(""filename""),SEARCH(""["",CELL(""filename""))+1,SEARCH(""]"",CELL(""filename""))-SEARCH(""["",CELL(""filename""))-1)"
Range("BH2").Select
Selection.AutoFill Destination:=Range(Cells(2, 60), Cells(Radek, 60)).Select

Pak by pokračoval makro nakopírovat data do zdroje a smazání duplicit

Mám problém v makru že 1) soubor se otevře nějak jinak než když ho otevřu ručně (většina sloupců se mi spoji do asi 5)
2) doplní se mi název souboru ale již se mi nedaří to rozkopírovat na všechny řádky

3-5 mám nějak snad rozpracováno, ale když by někdo dokázal i toto bylo by super

A nestačí použít Najdi a nahradit ?
Ctrl+F
a pak najdi
<iframe*</iframe>
a dej nahradit mezerou nebo nech prázdno pro smazání

a dej nahradit vše

Tak sem narazil na problém většinou ve sloupci Y a AX
kde se občas objevují data na dva - více řádků
+ nevím zda nevadí že se může objevit text se středníky např. jako
;;P17;TMY
nebo ;;;XXX text

v příloze jsem na ukázku poslal problémové řádky jestli by jsi byl ještě ochotný kouknout zda se nedá něco s tím udělat

elninoslov napsal/a:

Pr.Příloha: 51197_sem-dostat.zip (322kB, staženo 1x)


Moc děkuji, funguje skvěle. Zkusím ještě, ale takto to zatím vypadá perfektně. MOOOC děkuji

CSV mi sem nejde nahrát tak jsme ho uložil do XLS.
Tak snad takto zabalen jde.
Makro nevadí . Bylo by v tabulce kam by se data aktualizovala.
Odělovač je ;

Nevím jak přiložit 2 soubory, zip mě to nevzalo.

Zdravím, chtěl bych se zeptat zda je možné nějak provést když mám tabulku a soubor v CSV (se stejnou struktůrou sloupců)tak jejich sloučení, ale s tím aby se do tabulky vložila data-řádky nové data dle sloupce D na konec tabulky, tak aby případně shodné řádky přepsali aktuálníma daty z CSV souboru. Jde o to že CSV soubory se generují 1-2 týdně a jsou tam data řekněme od 1/1/2021 do 1/2/2021 a další soubor má data od 10/1/2011 do 10/2/2021. Jednoduše data v souboru jsou generována jen 15 dni před dneškem a 15 dní odedneška, proto si je takto ukládám - exportuji.
A protože se data ve zdroji odkud je generuji mění i v průběhu to znamená že v prvním soubodu (který stáhnu dnes tak stejná zakázka dle sloupce D) bude třeba v zítřejší sestavě změněné data v několika buňkách.

Jak tam dostat nové data zvládnul jsem, ale jak přepsat duplicitní řádek dle čísla ve sloupci D = unikátní , s tím si nevím rady :(

Moje představa je že do soubor s kterým pracuji (by se připsali všechny řádky (druhého mnou vybraného souboru) kde ve sloupci D bude nalezeno číslo které tento soubor neobsahuje.

Díky, vypnul jsem automatické výpočty pak na konci jen nechám přepočítat.

Děkuji za radu.
Oblast v prvním řádku je v plné tabulce vyplněno (jen sem promazával citlivá data - smazáním celého sloupce)

Děkuji moc aplikoval jsem a opravdu hledání je několikanásobně rychlejší.

A neměl bys radu ještě jak i zrychlit zapsání ? to zůstalo při více dat stále pomalé

1) Spustím fakturační tabulku
2) V otevřeném formuláři zadám hledat např: 6196 , kliknu na najít. Načtou se mi data v pravé půlce.
3) Pak vyberu jednu ze 3 možností. Odpojeno - Nepřístupné -Storno. Podle toho se mi vyplní vpravo data a teda i v listu Data se dle toho změní údaje.
Např: kliknu-li na odpojeno, doplní se:
Datum provedení, Kód zásahu, specifikace, Služba, Jméno technika a Dokončeno se vyplní "ANO"
Ale když mám přepnuto na Fast = že se listu Data zafiltrují jen data které ještě nebyli takto odepsány tak se mi provede vše krom toho zapsání "ANO" v okně dokončeno zůstane prázdné.

Když bych klikl na Nepřístupné tak se mají vyplnit:
Dokončeno "ne"
Zrušeno "zrušeno_technikem
Důvod "nehotové bezpřítomnostní odpojení

To když je přepnuto na fast tak se toto nevyplní. Ale technik a datum provedení ano. Když ale fast vypnu tak stejné tlačítko tyto údaje vyplní

Zdravím zase jsem se zastavil zda-li by někdo neporadil kde je chyba.

Mám formulář ve kterém si načtu požadovanou smlouvu a načtou se data vpravo. Pak jen zapíšu provádějícího technika a kliknu na tlačítko zda Odpojeno/Nepřístupné/Storno

Doplní se mi Datum provedení a dle specifikací 8 hodnot. Vše mě funguje dobře.

Můj problém je že když je dat více v listu Data tak jak hledání tak zapsání trvá dlouho.
Chtěl jsem toto ošetřit že by se pracovalo jen s daty které už nejsou z dříve odepsané. Což jsou data kde ve sloupci C není datum (datum kdy provedeno)

Přidal jsem si teda tlačítko Fast/vše kterým se mi data vyfiltruji nebo zase odfiltrují. Toto také funguje.

Problém je že když mám přepnuto na Fast (vyfiltruji) tak nemohu najít důvod proč při kliknutí na Odpojeno/Nepřístupno/Storno se mi nechtějí vyplnit dle specifikací poslední 4 hodnoty
Když zase přepnu na na vše tak se hodnoty zapíší správně

Děkuji za jakoukoli radu :)
Nejde mě vložit příloha tak snad takto
https://www.uschovna.cz/zasilka/NVWMK56LPKS54Y52-DM5/

JoKe napsal/a:

a jeden s megavzorcem

POZOR
v původním
E1 - Hradec Králové - má na konci mezeru - opravit!Příloha: 50352_desifruj.xlsx (12kB, staženo 4x)


Děkuji moc toto vypadá že funguje dobře. A opravdu mega vzorec že ani se nesnažím nějak pochopit jak je dobrej.

Děkuji, zatím co jsem ve koukal to funguje, až jak jste sám podotknul na nějaké případy.

Chápu že zadání je asi neřešitelné a možná mnou špatně popsané.
Případně bych zkusil ještě popsat jinak.
V prvním sloupci mám text kde bude vše v jedné buňce a který bude obsahovat jeden dlouhý texty. V dalších sloupcích kde bych definoval "Města" a chtěl získat text který bude za konkrétním městem k dalšímu městu. Problém je že ve zdrojovém textu může ale nemusí být všechny mnou hledané města, text může obsahovat jakékoliv znaky v různém pořadí (Text číslo, číslo text a může nastat že i obsahuje : nebo i speciální znaky !, % ) a i pořadí měst se může měnit v textu = nejdou vždy stejně za sebou.

Ale Váš výtvor snad bude postačovat.
Každopádně ušetří čas v dohledávání
Děkuji

Update 15:15
tak ještě jsem zjistil že je problém u delších textu jako že "Praha: Slon Africký 2x ...." to v Praze vypíše jen Slon

Ale asi neřešitelné tak projedu ručně

Dobrý den,
mohu poprosit o pomoc.
Mám v jedné buňce text který může obsahovat mnou požadovaný - hledaný text. Řekněme že v buňce A2 mám text "Praha: 23 koček Strakonice: 2 psy"
A já bych rád rozkouskoval, buňka B2 by obsahovala 23 koček a buňka C2 2 psy.

Ale v textu může být více měst, tak že bych chtěl do další buňky D2 napsat zase text co je k tomuto městu.

Jediné co je pevné že za městem je ":" (případně mohu v řádku 1 přesně napsat které města chci z textu hledat).
Bojím se že může nastat že i v textu může být dvojtečka a že mohou být města v textu přeházená tak že ani moc nefunguje funkce v přiloženém souboru.

Ve zkratce z textu bych potřeboval získat text pro případných konkrétních 5 které bych měl sloupcích napsané.

Děkuji, Exel 2013 CZ

je nutné to dělat přes Exel ?
například Total Commander umí hromadné přejmenování a toto zvládne.
Nalézt _*
Nahradit prázdno


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

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01

Ověření datumu TextBox1.Text

Scraper • 18.10. 18:25

Auto mazanie emailov

Pavol1 • 18.10. 17:10

zdroj dat ve VBA

elninoslov • 18.10. 17:08

zdroj dat ve VBA

lubo • 18.10. 15:40

EXCEL VBA vyhledání buňky

lubo • 18.10. 15:39