Příspěvky uživatele

Děkuji, vyzkouším, ale jde to ošetřit i bez makra?

Dobrý den,
prosím o radu. Do souboru Evidence načítám do listu KS data z externího souboru KS_data_konzultace (např. uloženém na ploše).
Když si v listu mezikrok do A2 napíšu číselný kód (např. 10.09.01.01) tak se mi v C2 zobrazí popis.
Problém je v tom, že v datech, které potřebuji vyhledat je v externím souboru jako text číslo 11. Funkce svyhledat tuto jedenáctku nevyhledá, ale umí ji vyhledat tak, že v načtených datech v listu KS do buňky s jedenáctkou vstoupím klávesou F2 a dám enter. Jde to nějak obejít, abych to nemusel dělat?
Data z externího souboru se mi mohou měnit a potřebuji je tedy načítat při každém spouštění souboru Evidence. To mám v Dotazech a připojeních zaškrtnuto.
Napadá mě udělat makro, které při spuštění data načte a pak "odentruje" tu jedenáctku, ale přijde mi to krkolomné.
Děkuji předem za nápady.

Tak již to mám, pokud by se to třeba někomu hodilo:
Sub zmena_na_link()

Dim odkazy As Range
On Error Resume Next

Set odkazy = Range("AF14:AF5015")
For Each Cell In odkazy
Application.ActiveSheet.Hyperlinks.Add Cell, Cell.Value
Next

End Sub

Dobrý den,
prosím o pomoc, jak pomocí VBA změnit text v buňkách AF15:AF5015 na hyperlink.
Děkuji.

Omlouvám se, že jsem nedal vědět.
Fungují oba způsoby a moc děkuji za pomoc oběma - Pavlus i pavelo.

Dobrý den,

rád bych požádal o pomoc. Mám jednoduchou tabulku, kde potřebuji vypočítat počet výrobků, u kterých se zvedla cena o více než 100%. Myslel jsem, že použiji countifs, ale asi to nebude ta správná funkce. Poradíte, prosím? data jsou v příloze.
Děkuji předem.

Moc děkuji za řešení. Nenašel jsem nic, že by nefungovalo. Ještě jednou díky!!!

Dobrý den,
mohl by mi, prosím, někdo pomoci vytvořit makro podle popisu níže?

Pracuji s ceníkem, který má cca 20tis. položek.
Každý měsíc se generuje nový ceník s novým názvem, tedy soubory jsou jiné. Ve valné většině se produkty v ceníku opakují, ale mohou tam být přidány nové položky nebo jiné naopak mohou být vyřazeny. Data z měsíčního ceníku se musí naloadovat do databáze DATA, kde budou dále zpracována.
data se budou loadovat přes makro v záložce Import. Tam se tedy natáhnou makra z externího souboru. Následně se data z listu IMPORT přenesou do databáze DATA, přičemž:

1) Na konci prvního řádku v listu DATA vytvořit nový sloupec s názvem "Nová data" (např. nyní je poslední sloupec AX, tak se vytvoří sloupec AY)
2) Přečte ID z listu IMPORT a pokud existuje stejné ID v listu DATA, zapíše položku CENA do listu DATA do nového sloupce "Nová data" , který vytvořil v bodě 1. Zároveň na stejném řádku přepíše položku TYP a SKUPINA.
3) Pokud ID v listu DATA nebylo nalezeno, vytvoří se v listu DATA pod tabulkou nový žlutý řádek, kam se zapíše ID, NÁZEV1, NÁZEV2, TYP, SKUPINA a do nově vzniklého sloupce, který byl vytvořen v bodě 1 se vloží CENA.
4) Pokud v novém ceníku není některá položka, která je v listu DATA, nevadí. Tento zápis v DATA zůstává a nebude smazán.

Pozn.: Pomocné vzorce, výpočty nebo seznam nových položek může využívat list Nastavení nebo klidně i jiný nový.

Zvládnul jsem importovat soubor, ale jak třídit, to nevím.

Moc děkuji za nápad a pomoc.

Možná krkolomné, ale asi jsem problém vyřešil. Zatím mi to funguje.
Po zápisu dat do databáze vyvolám nové makro StahnoutData. Během procedury jen potlačím hlášku o schránce ve Windows. Uvidím, jak bude fungovat, až bude zaplněno prvních 5000 řádků. Zatím to jde docela rychle.

Sub StahnoutData()

Application.ScreenUpdating = False 'odstraní "problik"
Application.DisplayAlerts = False

Dim Master As Workbook
Dim wbLocal As Workbook
Dim masterNextRow As Long

Set wbLocal = ThisWorkbook
Set wbMaster = Workbooks.Open("\\...místo,kde je uložena databáze \NPZP_Database.xlsm")

Dim rgSource As Range
Dim rgDestination As Range

'Zkopírování dat do listu input
Set rgSource = wbMaster.Worksheets("DATA").Range("A2:AB5000")
Set rgDestination = wbLocal.Worksheets("Input").Range("A14")

'Vložení dat do listu input
rgSource.Copy
rgDestination.PasteSpecial xlPasteValues

wbMaster.Close True 'True je argument pro uložení souboru

Application.ScreenUpdating = True 'konec akce odstraní "problik"
Application.DisplayAlerts = True

End Sub

Nevím, jestli Vás chápu, ale i když přesunu soubor jinam, tak je problém stále. Při druhém zápisu dat se data zapisují do databáze, která je jen pro čtení.

Mezitím jsem našel náhradní řešení - nemít připojení power query, ale požadovaná data zkopírovat z databáze do potřebného souboru. Zatěžuje mi to schránku a win se mě ptá, zda si přeji data nechat ve schránce. To nepotřebuji a nechci, aby se mi taková hláška zobrazovala. Taky mi toto řešení nepřijde moc elegantní. Při představě, že tak budu kopírovat 30.000 řádků, tak nevím....

Dobrý den,
prosím o pomoc.
V souboru NPZP mám makro na zápis dat do externí databáze. Potřeboval bych, až proběhne zápis do databáze, aby se mi v souboru NPZP.xlsm aktualizovaly data z databáze.
Nyní mi to funguje jen při prvním spuštění makra, ale jakmile je dotaz spuštěn, tak už dále makro vidí databázi jen pro čtení a nabízí ji uložit pod jiným soborem.
Nevím, co s tím, poradí, prosím, někdo?

Mockrát děkuji! To je ono!

Děkuji, líbí se mi Vaše řešení, ale ostrá xml jsou komplikovanější a jak píšete, těch uzlů je tam víc. Délka kódu se může různě měnit. Z důvodu GDPR nemohu poslat, tak snad pomůže náhled v txt souboru.

Ne, struktura XML bude často jiná. Avšak budou se tam určitě opakovat konkrétní uzly, např jméno, příjmení, .... Konkrétní data, která potřebuji, si umím zpracovat, jen je potřebují mít v konkrétním listu, např. Pomocný.
Poslední řešení, které je v makru mi přijde krkolomné, ale funguje. Zajímá mě, jak dostat data z XML včetně jejich označení do Excelu.
XML soubor v archivu byl jen příklad.

Nemá náhodu někdo jednodušší řešení?
Nyní problém řeším tím, že přejmenuji nově vytvořený list s xml daty na "Pomocný". Následně jiné makro data z listu Pomocný zpracuje a už nejsou třeba.
Příště, až se znovu spustí import xml dat, tak se list Pomocný vymaže a následně znovu vytvoří Pomocný s novými xml daty připravený pro zpracování.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje