Příspěvky uživatele

Ten soubor...

Našel jsem na dvou třech místech toto :

Sub Auto_open()
'this is for pre Excel 2007
'I know you have Excel 2007, but I don't
'this might need to be different for 2007
Const strConn As String = "ODBC;DSN=Excel Files;DBQ=FULLNAME;DefaultDir=PATH\;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
Dim qt As QueryTable
Dim wks As Worksheet
With ActiveWorkbook
For Each wks In .Worksheets
'this needs to change for 2007
'wks.ListObject.QueryTables
For Each qt In wks.QueryTables
qt.Connection = Replace$(Replace$(strConn, "FULLNAME", .FullName), "PATH", .Path)
Next qt
Next wks
End With
Set qt = Nothing
Set wks = Nothing
End Sub

Vše proběhne jak má, ale cestu to nezmění, podle mě jsem něco ještě měl udělat, ale stále nemůžu přijít na to co :-(. Změnil jsme i parametr, který je nahoře na ten : ODBC;DSN=Excel Files;DBQ=FULLNAME;DefaultDir=PATH\;DriverId=790;MaxBufferSize=2048;PageTimeout=5; Jenže to nic neudělalo. Sice mi to píše oba údaje do cesty, ale já bych tam potřeboval dát tu proměnou.

Nejlepší pro mě by byla plocha uživatele. Teď je tam tato cesta : DSN=Excel Files;DBQ=D:\Users\kosinar\Desktop\akce.xlsm;DefaultDir=D:\Users\kosinar\Desktop;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

Zdravím všechny,
mám sice jednoduchý dotaz, ale jen doufám, že na něj existuje i jedoduchá odpověď. Stále hledám a pokud něco najdu, postnu to sem + přiložím i zjednodušený soubor, jako náhled o co mi asi jde.

Používám na vyhledávání MS Query databazy, funguje perfektně. Bohužel, jsem narazil na problém cesty k té samotné databazy. Potřeboval bych do nich dát proměnou, soubor používá více lidí a na více PC = každý ho bude mít jinou cestu k databazy.

Tak bych potřeboval, aby se pokaždý změnila cesta databaze.

Mám tam tyto parametry :
DSN=Excel Files;DBQ=D:\Aktualizace\Ukončené Akce.xlsm;DefaultDir=D:\Aktualizace;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

Předem moc děkuji.

Neuvěřitelné, ale přišel jsem nato...

Akorát mám jediný problém, nevíte někdo jak přepnout okno z emailu do excelu ? Dal jsem tam dotaz na to jestli odeslat nebo ne, ale vždy se mi před to dostane okno toho vytvořeného emailu a mě se nedaří ho nějak přeskočit, aby byla vidět ta hláška...

Nakonec jsem vyrtvořil velice elegantně :

.To = Range("X2").Value + ";" + Range("X3").Value

Tímto příkazem, tam dám jakékoliv jméno, které vyfiltruji v buňce X2 + další a další. Díky funkci remove duplicate a trochy kopírování :-). Není to elegantní, ale rychlí a funkční :-).

Dobrý den,
oboum moc děkuji. Zkusil jsem oboje a oboje funguje, to druhé má určíte plus, a tím je možnosti HTML. Díky tomu mám text zprávy vyplnění a nikdo nepozná, že to posílal automat :-).

No jediný problém teď je ta proměná komu to posílat. Problém je v tom, že já ty hodnoty .To a .CC nevím. Ty se mění podle množství artiklů a druhu zboží. Jedná se o jména vedoucích oddělení a jejich nadřízených. Pomocí makra, si vygeneruji jména, komu jaký artikl patří a jaký je jeho nadřízení. Díky tomu oni pak následně mohou filtrovat. A já bych potřeboval ze sloupce "D" dosadit jména do .To a ze sloupce "E" do .CC.

A to je zatím to nejtěžší pro mě.

Jinak nejsem programátor, ale snažím se a učím se jak to jde, ale bohužel občas narazím ajsem v koncích. Proto jsem se přihlásil i na toto forum. Snažím se si prvně poradit sám, ale někdy to prostě neprojde.

PS : Nevíte nějaký web, kde jsou ikonky/obrázky ?

Ahoj,
řeším jednu věc, která by mi do budoucna měla šetřit čas, ale zatím to je nějak naopak :-(. Už nad tím sedím týden a jsem stále na začátku.

Přiložil jsem obrázek jak vypadá tabulka a potřebuji udělat tři kroky, než pošlu email.

1- přiložit přílohu, to bylo jednoduchí i pojmenování.

2- vygenerovat příjemce, tady jsem už v konci a stále nevím jak na to. Mám předefinovaných asi 10 emailů a pokud se někdo z těchto emailu ukáže v sloupku TL oddělení, tak bych potřeboval na něj odeslat tento email + podle nich bych potřeboval poslat i kopii na jeho nadřízeného. Jména a emaili samozřejmě vím, ale jak vygenerovat seznam a ten pak přidat do adres komu a kopie ?

3- Jak do emailu dostanu nějaký text s podpisem ? Na tohle jsem vůbec nepřišel, našel jsem moře věcí na netu, ale všechno k ničemu :-(. Předmět se my vygeneruje v pořádku, ale tělo je prázdné a já bych tam potřeboval jednu dvě věty dostat + podpis :-(.

Počítám s tím, že to je asi neřešitelné, ale chtěl jsem to aspoň zkusit.

Moc děkuji za pomoc.

Košinár

Díky za odpovědi.

To AL : Díky, to by použít šlo a zatím to nej, co jsem našel. Nechci použít obyčejný filtr, to mě nevyhovuje. Tohle splňuje co chci a snad to zvládnu. Mám návod stažený a uvidím...

To kmarecek : sorry, tabulka asi přesně jak jsem chtěl, ale nemáš tam to hledání ? Máš tam jen filtr a jak píšu nahoře, ten nechci použít. Tedy pokud jsem něco nepřehlídnul ?

Jen ještě dodám, že základ tabulky je kontingenční tabulka z milionem všech možných dat. Z ní si pak vyberu akce za jednotlivé oddělení a roky. Pak teprve chci dál třídit. Mám to v podobné tabulce jako ta příloha a z ní na samostatný sešit chci výsledek. Ten parametrický dotaz na MS QUERY vypadá na to ideálně (Crait - mám schované a mrknu, je fakt dobrej...).

Máte ještě nějaký jiný super weby nebo i lidi co to takhle umí a radí ? Nebo super weby jak je tento ?

A autorovy WEBU - MOC DÍKY ZA RADY, SUPER PRÁCE.

Dobrý den pánové.

Mám na vás prosbičku, pracuji v obchodě a hodně věcí si usnadnuji díky excelu, bohužel jsem začátečník amatér a někdy jsem v koncím s něčím, co možná je jednoduché.

Na jednom listě mám soupis prodeje výrobků za celí rok, sezařeních podle EANU. A v jiném listu bych chtěl vyhodnotit prodej jednoho EANU. S tím, že po zapsání eanu, potřebuji zobrazit všechny prodeje pod sebe. A to je právě kámen úrazu. Pokud by to bylo jen jedna hodnota, tak vím jak na to, ale těch hodnot je desítky a já netuším jak si s tím poradit.

Napadá vás něco ? Stačí radu, potřebuji jen nasměrovat tím správným směrem. Pak si již poradím.

Chci to udělat jednoduše, pokud zapíšu hodnotu (EAN) do řádku A1. Chci pod tím pak následně vydět všechny odprodeje a je jedno jestli se jedná o 1 nebo 10 prodejů.

Moc díky za radu...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje